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 Réseaux sociaux
- Problème réception chaînes 20 21 23 24 25 - Forum Téléviseurs
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