Boucler dans un commentaire?

[Claudy]

Bonjour,
J'ai un commentaire en C2, je voudrais y placer le contenu des cellules BC3: BD21...
Impossible via un copier coller.
Et par macro, j'obtiens la dernière ligne de mon tableau!

Sub commentaire()

For i = 3 To 21

Range("C2").Comment.Text Text:=Text & Chr(10) & Range("BC" & i) & " " & Range("BD" & i) & Chr(10)

Next
End Sub
Merci d'avance,
Claudy

 

[Pierrot93]

Re : Boucler dans un commentaire?

Bonjour Claudy

peut être comme ceci, attention, non testé...

Dim montexte As String
For i = 3 To 21
  montexte = montexte & Range("BC" & i) & " " & Range("BD" & i) & Chr(10)
Next
Range("C2").Comment.Text Text:=montexte

bonne journée
@+

 

[Claudy]

Re : Boucler dans un commentaire?

Ok, merci ça roule!
A+