La Boucle For i next ne s'incrémente pas

Bonjour,

Je débute en vba et j'ai un petit souci sur un code pour mon formulaire de recherche. Je prépare un formulaire de recherche sur une base de donnée de 15 colonnes et de n lignes. Je souhaite en fait à partir de le txtboxCritere, dans laquelle je saisi un numéro de contrat, et en appyant sur le bouton de recherche je récupère toutes les valeur dans ma base de données ("Source") correspondantes à ce contrat recherché et les imputer aux 15 txtbox respectives de mon formulaire. Le seul souci est que ma boucle ne fonctionne pas, càd lorsque je saisi n'importe quel contrat existant dans ma base, la valeur renvoyée est toujours celle saisi dans la première ligne (après les en têtes) de ma base de données, la 6ème ligne pour le cas présent. Voici mon code :

Private Sub BtnValidRech_Click ()

Dim Lastrow As Long

Dim i as long

Lastrow = sheets ("Source").Range ("a100000"). End (xlUp)

If Me.txtCritere.Value <> "" Then

For i = 6 to Lastrow

If Sheets ("Source"). Cells (i,2). Value = Me.txtCritere.Value Then

End if

Next i

Txtbox1.Value = cells (i,1).Value

Txtbox2.Value = cells (i,2).Value

Txtbox15.Value = cells (i,15).Value

End if

End Sub

Merci pour votre aide

Bonjour,

une fois le code indenté correctement on s'aperçois que les lignes de remplissage des TextBox sont en dehors de la boucle de recherche !

Private Sub BtnValidRech_Click()
    Dim Lastrow As Long
    Dim i As Long
    Lastrow = Sheets("Source").Range("a100000").End(xlUp)
    If Me.txtCritere.Value <> "" Then

        For i = 6 To Lastrow
            If Sheets("Source").Cells(i, 2).Value = Me.txtCritere.Value Then
                'en fait vous ne faites rien avec ce que vous avez trouvé...
            End If
        Next i

        ' les lignes ci dessous devraient être à la place de mon commentaire ci dessus, non ?
        Txtbox1.Value = Cells(i, 1).Value
        Txtbox2.Value = Cells(i, 2).Value
        Txtbox15.Value = Cells(i, 15).Value
    End If
End Sub

@ bientôt

LouReeD

Merci pour votre réponse,

Je l'avais bien corrigé dans ce sens, mais ça n'a rien changé à l'éxécution de mon code !

Ça ne fonctionne même plus d'ailleurs une fois que je saisis les lignes de remplissage dans ma boucle

En effet,

peut-être fait il mettre le nom du USF avant la référence du TextBox...

MonUSF.TextBox1.value = Sheets("MaFeuille").Cells(i,1).value

Ceci dit, regardez le point n°6 du fil :"comment bien utiliser le Forum"

@ bientôt

LouReeD