insertion automatique de commentaire

[lesims1000]

Bonjour,

Je souhaiterais insérer un commentaire automatiquement avec écrit "TRANSPORTEUR"
en fonction de la valeurs de la cellule ( il peut y avoir plusieurs valeurs possible)

exemple :

ci la cellule contient :
AAA : un commentaire "transporteur" se crée
BBB : un commentaire "transporteur" se crée
CCC : aucun commentaire sera crée

les références : AAA, BBB, CCC sont référencé dans une feuille à part.

merci d'avance.

 

[olivowitch]

Re : insertion automatique de commentaire

Salut,

Il faudrait un fichier exemple pour savoir où aller chercher AAA, BBB et CCC, si c'est dans une colonne où n'importe où dans une feuille, etc.
Après c'est surement quelques chose type :

If...then
.AddComment
.Comment.Text Text:="transporteur"
end if

bonne journée

 

[sousou]

Re : insertion automatique de commentaire

bonjour a tous
un exmple en utilisant l'évenement change dans la feuille.
Il faut ajouter les test qui regarde si la cellule est concernée
du genre
if target.column= and target.row=
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Comment Is Nothing Then
Set c = Target.AddComment
End If
Set c = Target.Comment
Select Case Target
Case Is = "aaa"
c.Text "aaa"
Case Is = "bbb"
c.Text "bbb"
Case Is = "cccc"
c.Text "cccc"
Case Is = "dddd"
c.Text "dddd"
End Select
End Sub

 

[lesims1000]

Re : insertion automatique de commentaire

voici un fichier exemple Regarde la pièce jointe exemple.xlsx

 

[lesims1000]

Re : insertion automatique de commentaire

es que quelqu'un a une solution ?

 

[sousou]

Re : insertion automatique de commentaire

Bonjour
tu trouveras joint une solution gérée sur la selection d'une cellule.
....

 

[lesims1000]

Re : insertion automatique de commentaire

merci sousou, je vais regarder se que sa donne