J'ai une centaine de cellules auxquelles sont associés autant de
commentaires différents.
Je dois ajouter un caractère à chaque commentaire ce chaque cellule.
Pour l'instant, je fais ça manuellement en demandant la modif du commentaire
et en ajoutant le caratèr désiré.
Mais c'est long et fastidieux.
Y a t-il un autre moyen plus simple et plus rapide de faire ça ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Selection c.Comment.Text c.Comment.Text & "*" Next c End Sub
La macro ajoute le caractère "*" à la fin du commentaire. A modifier suivant tes besoins. Cordialement. Daniel "JLM" a écrit dans le message de news: 452ca302$0$30842$
Bonjour
J'ai une centaine de cellules auxquelles sont associés autant de commentaires différents. Je dois ajouter un caractère à chaque commentaire ce chaque cellule. Pour l'instant, je fais ça manuellement en demandant la modif du commentaire et en ajoutant le caratèr désiré. Mais c'est long et fastidieux.
Y a t-il un autre moyen plus simple et plus rapide de faire ça ?
(je précise que je suis nul en écriture de macro)
J-L
Bonjour.
Essaie :
Sub test()
Dim c As Range
For Each c In Selection
c.Comment.Text c.Comment.Text & "*"
Next c
End Sub
La macro ajoute le caractère "*" à la fin du commentaire. A modifier suivant
tes besoins.
Cordialement.
Daniel
"JLM" <alphomega_nospam@free.fr> a écrit dans le message de news:
452ca302$0$30842$426a74cc@news.free.fr...
Bonjour
J'ai une centaine de cellules auxquelles sont associés autant de
commentaires différents.
Je dois ajouter un caractère à chaque commentaire ce chaque cellule.
Pour l'instant, je fais ça manuellement en demandant la modif du
commentaire et en ajoutant le caratèr désiré.
Mais c'est long et fastidieux.
Y a t-il un autre moyen plus simple et plus rapide de faire ça ?
Sub test() Dim c As Range For Each c In Selection c.Comment.Text c.Comment.Text & "*" Next c End Sub
La macro ajoute le caractère "*" à la fin du commentaire. A modifier suivant tes besoins. Cordialement. Daniel "JLM" a écrit dans le message de news: 452ca302$0$30842$
Bonjour
J'ai une centaine de cellules auxquelles sont associés autant de commentaires différents. Je dois ajouter un caractère à chaque commentaire ce chaque cellule. Pour l'instant, je fais ça manuellement en demandant la modif du commentaire et en ajoutant le caratèr désiré. Mais c'est long et fastidieux.
Y a t-il un autre moyen plus simple et plus rapide de faire ça ?
(je précise que je suis nul en écriture de macro)
J-L
AV
A adapter
Sub zzz() varAjout = "zaza" For Each c In Selection If Not c.Comment Is Nothing Then c.Comment.Text c.Comment.Text & varAjout End If Next c End Sub
AV
A adapter
Sub zzz()
varAjout = "zaza"
For Each c In Selection
If Not c.Comment Is Nothing Then
c.Comment.Text c.Comment.Text & varAjout
End If
Next c
End Sub
