Modifier tous les commentaires d’une sélection

Staple1600

XLDnaute Barbatruc

• 11 Août 2012

• #2

Re : Modifier tous les commentaires d’une sélection

Bonjour

Un fichier exemple serait le bienvenu pour que nous puissions tester nos propositions.

EDITION: Salut Robert, oui on s'est juste frôlé. On a évité la collision à 2 minutes près 😉

 

Dernière édition: 11 Août 2012

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Août 2012

• #3

Re : Modifier tous les commentaires d’une sélection

Bonjour Mumusse, bonjour le forum,

Essaie comme ça :

Code:

Dim cel As Range
For each cel in selection
     With cel.Comment
     '...
     End With
Next cel

[Édition]
Bonjour JM on s'est croisé...

 

Vote positif 0 Vote négatif

M

mumusse

Guest

• 11 Août 2012

• #4

Re : Modifier tous les commentaires d’une sélection

bonjour et merci
j'ai essayé mais mon niveau est proche de zéro
Dim cel As Range
For Each cel In Selection
With cel.Comment
.Shape.TextFrame.AutoSize = True
End With
Next cel
End Sub

mais
erreur d'exécution "91"
variable objet ou variable de bloc with non définie
j'ai oublié quoi ?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Août 2012

• #5

Re : Modifier tous les commentaires d’une sélection

Bonsoir Mumusse, bonsoir le forum,

Tu n'as rien oublié, c'est moi... Si dans ta sélection une cellule n'a pas de commentaire ça plante ! Pour éviter ça, le code corrigé et commenté :

Code:

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)

For Each cel In Selection 'boucle sur toutes les cellules cel de la sélectoin
    On Error Resume Next 'gestion des erreurs (en cas d'erreur, passe à la ligne suivante)
    With cel.Comment 'prend en compte le commentaire de la cellule cel (provoque une erreur si cel n'a pas de commentaire)
        If Err <> 0 Then Err = 0: GoTo suite 'si un erreur a été générée, annule l'erreur, va à l'étiquette "suite"
        .Shape.TextFrame.AutoSize = True 'taille automatique du commentaire
    End With 'fin de la prise en compte du commentaire de la cellule cel
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs
Next cel 'prochaine cellule de la boucle
End Sub

 

Vote positif 0 Vote négatif

M

mumusse

Guest

• 11 Août 2012

• #6

Re : Modifier tous les commentaires d’une sélection

bonsoir barbatruc

tous mes remerciements ça fonctionne
j'ai beaucoup de boulot en VBA mais je vais m'y mettre cet hiver
bonne fin de journée

 

Vote positif 0 Vote négatif

C

compta compta

Guest

• 5 Juillet 2016

• #7

Bonjour,
J'ai besoin de votre précieuse aide.
Je ne connais rien au VBA ni aux macros🙁, mais je pense que la macro fournie à Mumusse en 2012 😳pourrait résoudre mon soucis.
Je souhaite mettre à jour une information à l'intérieur des commentaires qui se trouvent sur ma feuille de calcul.
J'ai toute une plage qui contient pour chaque cellule un même commentaire que je souhaiterai modifier pour l'ensemble de la plage de cellules concernée.
Exemple : pour la plage J11:J278
le commentaire #DC-1{-&706804-&706805=4}@EXP!$J$5@EXP!$J$6@CA:' CENTRES - NATURES'!$B$2@DC:VALL contient la valeur $B$2 qui doit être remplacée par la valeur $B$9
(Le commentaire provient du paramétrage de la cellule par un complément provenant de notre logiciel de compta et qui nous permet d'extraire des données de notre logiciel directement dans un tableau Excel mis en forme librement par nous).
Ce paramétrage insert un commentaire dans la cellule concernée. Je n'ai pas de moyens de mettre à jour de façon globale la totalité des cellules, je dois les traiter unes à unes (ce qui fait beaucoup de travail 😕...)
Quelqu'un pourrait-il m'aider S.V.P ?
D'avance merciiiii 🙂

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Juillet 2016

• #8

Bonjour Compta compta, bonjour le forum,

Si ta plage est fixe, remplace Selection par Range("J11:J278"), sinon, sélectionne d'abord la plage et lance la macro ensuite :
Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)

For Each cel In Selection 'boucle sur toutes les cellules cel de la sélectoin
On Error Resume Next 'gestion des erreurs (en cas d'erreur, passe à la ligne suivante)
With cel 'prend en compte le commentaire de la cellule cel (provoque une erreur si cel n'a pas de commentaire)
If Err <> 0 Then Err = 0: GoTo suite 'si un erreur a été générée, annule l'erreur, va à l'étiquette "suite"
.Comment.Shape.TextFrame.AutoSize = True 'taille automatique du commentaire
.Comment.Delete
.AddComment
.Comment.Text Text:="#DC-1{-&706804-&706805=4}@EXP!$J$5@EXP!$J$6@CA:' CENTRES - NATURES'!$B$9@DC:VALL"
End With 'fin de la prise en compte du commentaire de la cellule cel
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs
Next cel 'prochaine cellule de la boucle
End Sub

 

Vote positif 0 Vote négatif

C

compta compta

Guest

• 6 Juillet 2016

• #9

Merci pour ta réponse Robert !
Le soucis (et je ne l'ai peut-être pas précisé 😳) c'est que chaque cellule contient un commentaire différent.
C'est à dire, dans l'exemple que j'ai pris, le début du commentaire #DC-1{-&706804-&706805=4}....... 706804 et 706805 correspondent à des comptes comptables. Dans une autre cellule, il peut très bien y avoir #DC-1{&601104+&626000=4}.......
Ta solution peut-elle fonctionner dans ce cas ?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Juillet 2016

• #10

Re,

Non ça ne marchera pas ce que je t'ai proposé. Essaie comme ça :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)

For Each cel In Selection 'boucle sur toutes les cellules cel de la sélectoin
On Error Resume Next 'gestion des erreurs (en cas d'erreur, passe à la ligne suivante)
With cel 'prend en compte le commentaire de la cellule cel (provoque une erreur si cel n'a pas de commentaire)
If Err <> 0 Then Err = 0: GoTo suite 'si un erreur a été générée, annule l'erreur, va à l'étiquette "suite"
.Comment.Shape.TextFrame.AutoSize = True 'taille automatique du commentaire
.Comment.Text Text:=Replace(.Comment.Text, "$B$2", "$B$9")
End With 'fin de la prise en compte du commentaire de la cellule cel
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs
Next cel 'prochaine cellule de la boucle
End Sub

 

Vote positif 0 Vote négatif

C

compta compta

Guest

• 7 Juillet 2016

• #11

MAGNIFIQUE !!! Ca fonctionne parfaitement !
Grand merci car grâce à toi, j'échappe à des heures de boulot rébarbatif 😵 !!!
Tout ça me donne encore plus envie de me plonger dans l'univers mystérieux du VBA et des macros !
Merci encore 😉 !

 

Vote positif 0 Vote négatif