[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
- Incompatibilité de type vba ✓ - Forum Programmation
- Pourquoi ne peut on pas voir tous les commentaires sur facebook ✓ - Forum Facebook
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
