Bonjour,
Je me permets de revenir vers le forum, j'ai un nouveau blocage sur ma macro.
J'aimerai que la plage de cellules Cells (d,c+1) soit égal à l'ensemble des valeurs de la ligne 8 dont le texte en gras dans la ligne d (concatener avec un espace entre chaque si possible) de la plage cells (8,c-a).
Voir le code ci-dessous, la première boucle For, If et While me permettent de définir la plage c et a. La dernière boucle If fonctionne mais écrit que la dernière valeur de la ligne 8 dont le texte est en gras et pas l'ensemble.
Merci par avance de votre aide.
Dites moi si je suis pas clair, je ne suis pas sur de l'être.
For c = 2 To 200
For d = 9 To 200
If Cells(8, c).Value Like "*Valeurs*" Then 'si une cellule contient valeur
a = 1
While Cells(8, c - a).Value <> ("Fin")
If Cells(d, c - a).Font.Bold = True Then
Cells(d, c + 1) = Cells(8, c - a)
End If
a = a + 1
Wend
End If
Next
Next