OVH Cloud OVH Cloud

Code VBA pour ajouter en commentaire la valeur des cellules d'une colonne

2 réponses
Avatar
Th2t31
Bonjour,
Je suis à la recherche d'un code VBA qui me permettrait d 'ajouter un commentaire à chaque cellule d'une colonne E de l'onglet toto de mon fichier excel
Ce commentaire serait égal à la valeur de la cellule

Merci beaucoup de votre aide

2 réponses

Avatar
Brat'ac
Th2t31 a utilisé son clavier pour écrire :
Bonjour,
Je suis Í  la recherche d'un code VBA qui me permettrait d 'ajouter un
commentaire Í  chaque cellule d'une colonne E de l'onglet toto de mon fichier
excel
Ce commentaire serait égal Í  la valeur de la cellule
Merci beaucoup de votre aide

Un exemple Í  adapter
With Range("C7")
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Range("C7").Value
End With
Avatar
MichD
Le 07/01/21 Í  11:31, Th2t31 a écrit :
Bonjour,
Je suis Í  la recherche d'un code VBA qui me permettrait d 'ajouter un
commentaire Í  chaque cellule d'une colonne E de l'onglet toto de mon fichier
excel
Ce commentaire serait égal Í  la valeur de la cellule
Merci beaucoup de votre aide

Bonjour.
Voici un exemple de code.
Ce code suggère que la cellule D5 a déjÍ  un commentaire.
Chaque fois que la valeur de la cellule A1 est modifiée,
la valeur dans le commentaire est mise Í  jour automatiquement.
Tu copies ce code dans le module de la feuille. Fais un clic droit sur
l'onglet de la feuille / commande : visualiser le code / copie dans la
page blanche.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Range("G5").Comment.Text "La valeur de la " & _
"cellule A1 est : " & CStr(Range("A1").Value)
End If
End Sub
'------------------------------
IL y a une seconde alternative autre qu'un commentaire.
Tu peux insérer une forme dans ta feuille de calcul du type rectangle
par exemple. Tu sélectionnes cette forme et dans la barre de formule tu
inscris la petite formule : ¡ Si tu modifies le contenu de la cellule
A1, l'affichage dans la forme est mise Í  jour.
MichD