Bonsoir,
Je suis resté muet ces derniers jours car j'ai tout d'abord bien profité de mon weekend de 3 jours, puis je me suis collé au problème (qui effectivement fut une sorte de patate chaude qu'on ma refilée alors que j'étais en bout de chaîne ^^).
Et j'ai trouvé cette solution, certainement optimisable, mais qui me convient!
Private Sub CommandButton1_Click()
Dim i As Integer
i = 1
Do While Cells(i, 1).Value <> ""
Dim j As Integer
j = 1
Do While Worksheets("Attributs").Cells(j, 1) <> ""
If (InStr(Cells(i, 6).Value, Worksheets("Attributs").Cells(j, 1).Value) > 0) Then
If (InStr(Cells(i, 12).Value, Worksheets("Attributs").Cells(j, 1).Value) = 0) Then
Cells(i, 12).Value = Cells(i, 12).Value & Worksheets("Attributs").Cells(j, 2).Value
End If
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub
En pièce jointe le même exemple imbuvable, avec les valeurs associées et à tester dans le deuxième feuillet. La magie opère en appuyant sur le bouton!!
Merci pour votre temps et à une prochaine fois si j'ai encore besoin d'aide!
Sébastien