[Résolu] Problème d'ajout d'une condition

[Lone-wolf]

Bonjour à tous,

j'ai du mal à ajouter une condition dans la macro. Il s'agit d'inscrire un text dans un commentaire personnalisé, si la condition n'est pas remplie.

C'est à dire: si le nom de la personne n'est pas dans la liste, le commentaire doit afficher "No Comment !".



A+ 😎

 

[Modeste]

Re : Problème d'ajout d'une condition

Bonjour Lone-Wolf,

Pas tout regardé, mais il me semble qu'en modifiant ta ligne 13 comme ceci

cmt = IIf(Line1 = "", "No Comment!", Line1 & vbNewLine & Line2)

... ça devrait fonctionner ...

 

[mapomme]

Re : Problème d'ajout d'une condition

Bonjour Lone-wolf,

Un essai avec ce code ?:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Line1$, Line2$, cmt$
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("A2:A100")) Is Nothing Or Target = "" Then Exit Sub
On Error GoTo PasDansListe
  Line1 = Application.VLookup(ActiveCell, Sheets(2).Range("A:C"), 2, 0)
  Line2 = Application.VLookup(ActiveCell, Sheets(2).Range("A:C"), 3, 0)
  cmt = Line1 & vbLf & Line2
  If Not Target.Comment Is Nothing Then Target.Comment.Delete
  Target.AddComment cmt
  Exit Sub

PasDansListe:
  If Not Target.Comment Is Nothing Then Target.Comment.Delete
  Target.AddComment "No Comment !"
End Sub

 

[Lone-wolf]

Re : Problème d'ajout d'une condition

Bonjour Modeste, mapomme.

Merci pour votre intervention, les deux codes font une merveille; merci à vous deux. 😉 😀

Excellente journée 😎