Bonjour
J’ai de code que j’essaye d’améliore, accélère. (je pense qu’il doit avoir trop boucle)
Private Sub CommandButton1_Click()
Do While ActiveCell <> ""
valeur = Mid(ActiveCell.Offset(0, -3), 3)
valeur2 = Mid(ActiveCell.Offset(0, -2), 3)
derl = Sheets("1").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To derl
If Sheets("1").Range("t" & i) Like "*" & valeur & "*" And Sheets("1").Range("u" & i) Like "*" & valeur2 & "*" Then
ActiveCell.Offset(0, 5) = Sheets("1").Range("t" & i).Offset(0, -18)
ActiveCell.Offset(0, 6) = Sheets("1").Range("t" & i)
ActiveCell.Offset(0, 7) = Sheets("1").Range("u" & i)
Next
Loop
End Sub
Je ne suis pas encore très à l’aise avec les tableaux sur VBA j’ai donc commencé à teste ce code qui qui me semble plus rapide mais je sais pas comment boucler avec Do While "erreur" et je ne sais pas où mettre la condition Like "*" & valeur & "*"
Private Sub CommandButton1_Click()
Do While ActiveCell <> ""
valeur = ActiveCell
Set Plage = Sheets("1").Range("a2:h" & Range("h55000").End(xlUp).Row)
For Each c In Plage
If c = valeur Then
ActiveCell.Offset(0, 5) = c.Offset(1, -18)
End If
Next c
ActiveCell(1, 0).Select
Loop
End Sub
Merci pour votre aide et conseil