[VBA] Modifications commentaires en chaines
Bishop
-
Bishop -
Bishop -
Bonjour,
Je suis sous excel 2003 et trés débutant en VBA, tellement que je ne sais même pas ou commencer pour mon code.
J'aimerais remplacer des commentaires dans des cellules Excel.
Exemple de se que je voudrais faire :
Entre la ligne 18 et la ligne 534,
Dans la case D18 (pour la ligne 18) remplacer une partie de commentaire "XXXXXXXX" par le contenu de la cellule A18 (pour la ligne 18)
et ainsi de suite jusqu'à 534.
Merci
Je suis sous excel 2003 et trés débutant en VBA, tellement que je ne sais même pas ou commencer pour mon code.
J'aimerais remplacer des commentaires dans des cellules Excel.
Exemple de se que je voudrais faire :
Entre la ligne 18 et la ligne 534,
Dans la case D18 (pour la ligne 18) remplacer une partie de commentaire "XXXXXXXX" par le contenu de la cellule A18 (pour la ligne 18)
et ainsi de suite jusqu'à 534.
Merci
A voir également:
- [VBA] Modifications commentaires en chaines
- Suivi des modifications word - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Guide
- Comment décrypter les chaines cryptées sur eutelsat 16a - Forum TV & Vidéo
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
1 réponse
Bonjour,
en l'absence de réponse, j'ai tenté de faire quelque chose à base de bout de code que je connais.
Cela ne marche pas, pas étonnant au regard de mon niveau...
Voilà ce que j'ai tenté,
Sub list()
On error resume next
derlg = Range("D534")End(xlUp).Row
For i = derlg To 2 Step -1
If Not IsErreor(Range("D" & i).Value) Then
cel.comment.Text Replace(cel.comment.Text, "100002", ("D" & i).value)
End if
next
End Sub
Merci au bon samaritain voulant m'aider
en l'absence de réponse, j'ai tenté de faire quelque chose à base de bout de code que je connais.
Cela ne marche pas, pas étonnant au regard de mon niveau...
Voilà ce que j'ai tenté,
Sub list()
On error resume next
derlg = Range("D534")End(xlUp).Row
For i = derlg To 2 Step -1
If Not IsErreor(Range("D" & i).Value) Then
cel.comment.Text Replace(cel.comment.Text, "100002", ("D" & i).value)
End if
next
End Sub
Merci au bon samaritain voulant m'aider
