Commentaire en resultat de recherche

[steph57]

Bonjour le forum

J'aimerais avoir un petit coup de main,sur les commentaires.
Voila mon probleme.
Dans la feuille 1 j'ai 3 colonnes
Colonne 1 la commande
Colonne 2 le client
colonne 3 le lieu

et dans la feuille 2 j'ai aussi 3 colonnes mais 2 sont différentes
Colonne 1 la commande
colonne 2 le programme
et colonne 3 le n°


en fonction de la commande de la feuille 1,j'aimerai avoir dans la colonne 3 le commentaire avec le programme et le n° de la feuille 2
J'ai essayé avec find mais sans succés,je suis novice et curieux
Je vous joins mon exemple en piece jointe en ésperant avoir une réponse
Merci

 

[BOISGONTIER]

Re : Commentaire en resultat de recherche

Bonjour,

Voir PJ

=affichecmt(C11;RECHERCHEV(A11;commande;2;FAUX)&":"&RECHERCHEV(A11;commande;3;FAUX))

Function AfficheCmt(cel, msg As String)
  Application.Volatile
  Set f = Sheets(Application.Caller.Parent.Name)
  If Not cel.Comment Is Nothing Then cel.Comment.Delete
    With cel
      If .Comment Is Nothing Then .AddComment
       .Comment.Shape.Width = Len(msg) * 6
       .Comment.Shape.Height = 10
       .Comment.Shape.Left = .Left + .Width + 5
       .Comment.Shape.Top = .Top - 2
       .Comment.Visible = True
       .Comment.Text Text:=msg
     End With
   AfficheCmt = ""
End Function

JB

 

[steph57]

Re : Commentaire en resultat de recherche

Super Merci beaucoup