Contenu d'une RechercheV dans une MsgBox

[thom02]

Bonjour,

Pour un projet, j'aimerais pouvoir faire apparaitre le contenu d'une recherche dans un mesgbox. Je m'explique, sur ma première page j'ai un menu déroulant qui correspond à mes clients et j'aimerais faire apparaitre dans un MsgBox la caractéristique de ce client qui se trouve dans le deuxième onglet Source.

J'aurais pu faire cela simplement mais j'aimerais automatiser le tout et du coups utiliser du code VBA

Et je me casse la tete avec les Vlookup

Pouvez vous m'aider svp

merci

 

[kjin]

Re : Contenu d'une RechercheV dans une MsgBox

bonsoir,
Si la liste est en A2, dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" And Target.Count = 1 And Not IsEmpty(Target) Then
    msg = Application.VLookup(Target, Sheets("Source").Range("A5:B14"), 2, 0)
    If Not IsError(msg) Then MsgBox msg
End If
End Sub

A+
kjin

 

[Hulk]

Re : Contenu d'une RechercheV dans une MsgBox

Hello Thom, Kjin 🙂, Forum,

Ben vu que je l'ai fait, je retourne ton fichier avec presque le même code que l'ami Kjin, mais toutefois différent.

Bonne soirée !

 

[Staple1600]

Re : Contenu d'une RechercheV dans une MsgBox

Bonsoir à tous


Pour le fun et pour saluer Master kjin (L.P.D.L.M.) 😉
En partant sur son code (que je trouve limpide comme le fond de mon verre)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, msg
x = ((Target.Address = "$A$2") + (Target.Count = 1) + (Not IsEmpty(Target))) + 5
msg = Application.VLookup(Target, Sheets("Source").Range("A5:B14"), x, 0)
If Not IsError(msg) Then MsgBox msg
End Sub

 

[thom02]

Re : Contenu d'une RechercheV dans une MsgBox

Magnifique !!
Un tout grand merci pour votre aide !!

 

[thom02]

Re : Contenu d'une RechercheV dans une MsgBox

Aie...

j'ai peut être répondu trop tot...

J'ai voulu adapter le code de manière à ce qu'il ne se passe rien au cas ou il n'y a aucunes particularités pour le client.

Ceci semblait bien fonctionner mais à présent dès que j'efface le contenu d'une cellule de ma page j'obtiens une erreur d'incompatibilité de type à la partie "Then MsgBox Target....."

Pourriez vous m'aider ?

Un grand merci !!!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, msg
x = ((Target.Address = "$C$25") + (Target.Count = 1) + (Not IsEmpty(Target))) + 5
msg = Application.VLookup(Target, Sheets("Clients").Range("A8:L100"), 12, 0)

If Not IsError(msg) And Not IsEmpty(msg) Then MsgBox Target.Value & Chr(13) & "Particularité : " & msg, vbInformation + vbOKOnly, " A Savoir.... "

End Sub

 

[Staple1600]

Re : Contenu d'une RechercheV dans une MsgBox

Bonsoir

NB: Personnellement j'éviterai d'utiliser mon code (qui n'est que ludique)
En situation réelle , j'utiliserai le code initial de Maitre Kjin (G.O.T.M)

Avec le code VBA modifié ainsi il se passe quoi ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, msg
x = ((Target.Address = "$C$25") + (Target.Count = 1) + (Not IsEmpty(Target))) + 5
msg = Application.VLookup(Target, Sheets("Clients").Range("A8:L100"), 12, 0)

If Not IsError(msg) And Not IsEmpty(msg) Then 
MsgBox Target.Value & Chr(13) & _
"Particularité : " & msg, vbInformation + vbOKOnly, " A Savoir.... "
End if

End Sub

 

[thom02]

Re : Contenu d'une RechercheV dans une MsgBox

Bonsoir

NB: Personnellement j'éviterai d'utiliser mon code (qui n'est que ludique)
En situation réelle , j'utiliserai le code initial de Maitre Kjin (G.O.T.M)

Avec le code VBA modifié ainsi il se passe quoi ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, msg
x = ((Target.Address = "$C$25") + (Target.Count = 1) + (Not IsEmpty(Target))) + 5
msg = Application.VLookup(Target, Sheets("Clients").Range("A8:L100"), 12, 0)

If Not IsError(msg) And Not IsEmpty(msg) Then 
MsgBox Target.Value & Chr(13) & _
"Particularité : " & msg, vbInformation + vbOKOnly, " A Savoir.... "
End if

End Sub

Merci pour ton aide malheureusement j'ai toujours la même erreur d'incompatibilité de type :-(

 

[thom02]

Re : Contenu d'une RechercheV dans une MsgBox

Comme ceci cela semble fonctionner 🙂 Yipiiie

If Not IsError(msg) And Not IsEmpty(msg) And Target.Address = "$C$25" Then
MsgBox Target.Value & Chr(13) & _
"Particularité : " & msg, vbInformation + vbOKOnly, " A Savoir.... "
End If