XL 2010 VBA Recherche valeur variable dans une autre feuille

Matt87 · 4 Septembre 2018

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. · 4 Septembre 2018

Hello,

Petit code à ajouter dans le Userform1:

Code:

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 · 4 Septembre 2018

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

XL 2010 VBA Recherche valeur variable dans une autre feuille

Matt87

XLDnaute Nouveau

Pièces jointes

D.D.

XLDnaute Impliqué

Matt87

XLDnaute Nouveau

Discussions similaires