probleme boucle if Résolu

Question

Bonjour,

J'ai petit souci ,j'explique :j'ai un combobox avec des valeurs de 1 à 7 dans un userform où il y a des textbox. 

et j'aimerais que grace à l'item du combo selectionner les valeurs texte s'inscrive dans un tableau où des lignes sont numérotées de 1 à 7 dans la colonne 5 également. 

Voici mon code ????? 

For i = 3 To 13 
If Cells(i, 5).Value = Me.SaisieLogement.Value Then 
Cells(i, 1).Value = SaisieNom.Value 
Cells(i, 2).Value = SaisieCI.Value 
Cells(i, 4).Value = SaisieDate.Value 
End If 
Next 


merci par avance

lermite222 · Answer

Bonjour,
Apparement ta macro est dans le module de UF (parec que 'Me')
Si tu veux mettre dans des cellules d'une feuille tu doit mettre le nom de la feuille
Sheets("Feuil1").Cells(i, 1).Value = SaisieNom.Value 
ou..
    With sheets("Feuill1")
       .Cells(i, 1).Value = SaisieNom.Value 
       etc..
    End With
A=

lermite222 · Answer

C'est comme je dit dans mon poste précédant...
apparement ton code est dans le module de l'userform...
If Cells(i, 5).Value   .... Ca c'est dans une feuille du classeur...
 = Me.SaisieLogement.Value .... Ca c'est te texbox qui est sur ton userform
DONC... 
If Sheets("LeNomDeTaFeuille").Cells(i, 5).Value  = SaisieLogement.list(SaisieLogement.Listindex) Then
ou, mais ca va pas toujours...
If Sheets("LeNomDeTaFeuille").Cells(i, 5).Value  = SaisieLogement.Text Then
et si la cellule est au format nombre..
If Sheets("LeNomDeTaFeuille").Cells(i, 5).Value  = Val(SaisieLogement.Text) Then

A+

Probleme boucle if

2 réponses

Discussions similaires

Newsletters