For each avec integer

Bonjour

j'ai une 1ere colonne avec des codes (colonne A ) ensuite j'ai le type et l’appellation de la pièce.

j'ai un userform qui s'ouvre me demandant le code je tape le code, une fois fait ce code est copier dans une cellule pour être ramener dans le nouvelle userform qui s'ouvre. Le code est ajouter a la textBox3.

Cette Userform doit afficher toute les info de la pièce (type de pièce, machine, appellation, quantité)selon le code de la textbox3 mais je n'arrive pas a afficher le reste des info, voir ci-dessous pouvez vous m'aider merci.

Cordialement

Dim D, C, E, F

Private Sub B_Quitter_Click()

End Sub

Private Sub ListBox3_Click()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

Application.ScreenUpdating = False

Sheets("Stock modifié").Select

For Each D In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)

If D.Value = TextBox3.Value Then

TextBox4 = D.Offset(0, 1).Value

TextBox5 = D.Offset(0, 2).Value

TextBox6 = D.Offset(0, 3).Value

TextBox2 = D.Offset(0, 9).Value

End If

Next D

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub UserForm_Initialize()

Application.ScreenUpdating = False

Sheets("Stock modifié").Select

'TextBox3.Value = Sheets("Stock modifié").Range("T25")

'Dim C As Long

'Dim D As String

'C = Range("A2:A65000")

'D = CStr(C)

Dim E As Long

Dim F As String

E = Sheets("Stock modifié").Range("T25")

F = CStr(E)

TextBox3.Value = F

End Sub

Bonsoir

L'instruction "For Each" nécessite obligatoirement un objet, impossible d'utiliser un Integer

A+

Bonsoir

Une autre idée

Tu compares du texte (TextBox3.Value) avec un nombre (d'après ce que j'ai compris)

Soit il faut passer en texte celui qui est sur la feuille

If CStr(D.Value) = TextBox3.Value Then

Soit passer en nombre ta TextBox3

If D.Value = Val(TextBox3.Value) Then

Bonjour,

Et là :

For Each D In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
If D.Value = TextBox3.Value Then
TextBox4 = D.Offset(0, 1).Value
TextBox5 = D.Offset(0, 2).Value
TextBox6 = D.Offset(0, 3).Value
TextBox2 = D.Offset(0, 9).Value
End If
Next D

Tu balaies toutes les lignes et à chaque ligne test ok tu remplis tes textbox en écrasant le contenu précédent.

Ca n'a aucun sens...

Ou alors la condition ne peut être remplie qu'une fois mais à ce moment là sort de la boucle. Si c'est le cas rechercher dans la colonne plutôt que de boucler.

Bref, impossible de savoir ce que tu veux faire et tu ne l'expliques même pas en détail.

eric