Re
Effectivement, ça ne place les données de AF5 à AF8 que pour Christian 1.
C'est la question que je te posais en début de fil :
Les données de la colonne AF sont elles fonction du n° en AB20 que l'on devrait retrouver dans la colonne AD.
Je t'explique les opérations effectuées par le code :
si la cellule O14 n'est pas vide (c'est le nom)
on va cherche le n° dans AB20
on initialise la chaîne de caractères StrResultat
puis, dans la colonne AD, on va chercher si un numéro correspond à AB20
si oui, on prend les données de la colonne AF à partir de cette ligne
et pour les lignes suivantes
jusqu'au moment où soit (AD non vide et <> AB20) soit AF vide
StrResultat est ajustée durant cette recherche.
Si tu ne souhaites que les cellules AF5 à AF8 quelque soit le nom, tu modifies le code ainsi :
Sub Mot2()
'
Dim C As Byte
Dim Numero As Byte
Dim Termine As Boolean
Dim CelluleTrouvee As Range
Dim StrResultat As String
'
If Not IsEmpty(Range('O14').Value) Then
StrResultat = Range('O14').Value & ' : '
Range('AF5').Select
StrResultat = StrResultat & Selection.Value
For i = 1 To 3
StrResultat = StrResultat & ' / ' & Selection.Offset(i, 0).Value
Next i
Range('AB20').Offset(C, 0).Select
Selection.Value = StrResultat
End If
End Sub
Voilà, mais ça te donnera toujours les cellules AF5 à AF8... à toi de voir
Amicalement
Charly