Mise a jours textbox

bonjour,

j'ai un petit userform dont le code est ainsi :

Private Sub CommandButton1_Click()

Dim lig As Integer

Sheets("bdd").Select

For lig = 2 To 4

If Range("p" & lig).Value = Range("r1").Value Then

UserForm2.TextBox1.Value = Range("a" & lig).Value
UserForm2.TextBox4.Value = Range("m" & lig).Value
UserForm2.TextBox5.Value = Range("n" & lig).Value
UserForm2.TextBox6.Value = Range("o" & lig).Value

ElseIf Range("p" & lig).Value <> Range("r1").Value Then
UserForm2.TextBox1.Value = ""
UserForm2.TextBox4.Value = ""
UserForm2.TextBox5.Value = ""
UserForm2.TextBox6.Value = ""
End If

Next lig

End Sub

mon compteur marche bien, parcontre il ne veut pas afficher les textbox dans le userform (alors quand mode pas à pas il fonctionne )

si quelqu'un a une idée

j'ai lu la propriét me.repaint

mais je ne vois pas où la mettre dans mon code

pour information le else if peut être retiré si ca aide !!

merci pour tout

cdt

Bonsoir,

Le ElseIf pourrait être remplacé par un Else vu que c'est la vérification contraire du test initial. Et puis si tu vires le ElseIf, ça devrait marcher. En gros, ça ne va marcher que si R1=P4, sinon, les valeurs sont bien placées dans les TextBox (R1=P3 par ex.), mais remplacées par "" si R1<>P4 par ton ElseIf.

super bien

une derniere question

ma procédure est lancer par un bouton mais en faite il boucle tout le temps ce qui est normal avec mon for i = 1 to 6

mais en faite je voudrais qu'il stoppe à chaque fois, il s'agit d'un bouton suivant. donc quand je clique je veux qu'il change dans la boucle

j'espère que je suis clair

merci !!!

Avec ceci peut-être :

Private Sub CommandButton1_Click()
    Static lig As Integer
    if lig=6 then lig=1 else lig = lig + 1
    Sheets("bdd").Select
    If Range("p" & lig).Value = Range("r1").Value Then
        Me.TextBox1.Value = Range("a" & lig).Value
        Me.TextBox4.Value = Range("m" & lig).Value
        Me.TextBox5.Value = Range("n" & lig).Value
        Me.TextBox6.Value = Range("o" & lig).Value
    Else
        Me.TextBox1.Value = ""
        Me.TextBox4.Value = ""
        Me.TextBox5.Value = ""
        Me.TextBox6.Value = ""

    End If
End Sub

merci ca marche super bien