XL 2010 VBA Recherche valeur variable dans une autre feuille

[Matt87]

Bonjour,

Je me permet de vous demander votre aide pour ajouter une macro à mon projet.
J'ai tenté de trouvé par moi-même, mais je crois que ce dernier dépasse mes compétences en VBA

J'aimerais ajouter un code me permettant de rechercher un N° de facture se trouvant dans la feuille «Sommaire de factures».
Le bouton se trouve dans la feuille commande et ce dernier ouvre le userform1 qui servira à ladite recherche.
Dans l'éventualité ou le N° de facture est trouvée dans la liste, j'aimerais qu'un message box m'indique «Cette facture à déjà été envoyée» et du coup m'amène automatiquement à la ligne ou se trouve ladite valeur. Dans le cas ou aucune facture n'est retracée, j'aimerais qu'un message box m'indique «Facture inexistante».

Je vous remercie à l'avance pour votre aide et je vous souhaite une agréable journée!

 

[D.D.]

Hello,

Petit code à ajouter dans le Userform1:

Private Sub CommandButton1_Click()
Dim Man As Range
Yo = TextBox1

Sheets("Sommaire de factures").Select
Set Man = Columns("D:D").Find(What:=Yo, LookAt:=xlWhole)
If Man Is Nothing Then
Sheets("Commandes").Select
MsgBox "Facture inexistante"

Else
Man.Activate
MsgBox "Cette facture à déjà été envoyée"

End If
UserForm1.Hide

End Sub

DD

 

[Matt87]

Merci beaucoup D.D., c'est exactement ce que je recherchais
Je vous souhaite une excellente journée