Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres ajouter un msgbox si la recherche est faux mrci pour aide

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

issam salem

XLDnaute Junior
With ThisWorkbook.Sheets("Inventaire")
For Each Nom In .Range("L4:L" & .[L65000].End(xlUp).Row)
If CStr(Nom) = CStr(Me.Ithemmag.Value) And .Cells(Nom.Row, 1) = Me.TextBox1.Text Then
Me.Ithemcate.Caption = .Cells(Nom.Row, 2)
Me.Ithemstock.Caption = .Cells(Nom.Row, 4)
Me.Ithemdes.Caption = .Cells(Nom.Row, 6)
Me.Ithemref.Caption = .Cells(Nom.Row, 7)
Me.Ithemuni.Caption = .Cells(Nom.Row, 8)
End If
Next
End With
 

Pièces jointes

  • Capture.PNG recherche.PNG
    27.3 KB · Affichages: 13
Solution
Essayez ça :
VB: 
flag = 0
With ThisWorkbook.Sheets("Inventaire")
    For Each Nom In .Range("L4:L" & .[L65000].End(xlUp).Row)
        If CStr(Nom) = CStr(Me.Ithemmag.Value) And .Cells(Nom.Row, 1) = Me.TextBox1.Text Then
            Me.Ithemcate.Caption = .Cells(Nom.Row, 2)
            Me.Ithemstock.Caption = .Cells(Nom.Row, 4)
            Me.Ithemdes.Caption = .Cells(Nom.Row, 6)
            Me.Ithemref.Caption = .Cells(Nom.Row, 7)
            Me.Ithemuni.Caption = .Cells(Nom.Row, 8)
            flag = 1
        End If
    Next
    If flag = 0 Then
        MsgBox "Ce code article n'existe pas.dans le magasin.Veuillez saisir un code article valide", vbInformation + vbOKOnly, "Article non trouvé"
        Me.Ithemcate.Caption = ""...
Trier par date Trier par votes
Tout d'abord Bonjour Issam Salem,
Ensuite prenez l'habitude d'utiliser la balise </> pour le code, c'est plus lisible.
Pour le code utilisez l'indentation, là aussi c'est plus lisible.
Enfin je suppose que le Msgbox dois être émis dans le cas où le IF est faux. Dans ce cas :
Code: 
With ThisWorkbook.Sheets("Inventaire")
    For Each Nom In .Range("L4:L" & .[L65000].End(xlUp).Row)
        If CStr(Nom) = CStr(Me.Ithemmag.Value) And .Cells(Nom.Row, 1) = Me.TextBox1.Text Then
            Me.Ithemcate.Caption = .Cells(Nom.Row, 2)
            Me.Ithemstock.Caption = .Cells(Nom.Row, 4)
            Me.Ithemdes.Caption = .Cells(Nom.Row, 6)
            Me.Ithemref.Caption = .Cells(Nom.Row, 7)
            Me.Ithemuni.Caption = .Cells(Nom.Row, 8)
        Else
            MsgBox "Désolé, pas trouvé !"
        End If
    Next
End With
 
Vote positif 0 Vote négatif
Tout d'abord Re Bonsoir Issam Salem,

D'où ma question :
sylvanu à dit:
je suppose que le Msgbox dois être émis dans le cas où le IF est faux
Cliquez pour agrandir...
Si vous ne voulez qu'un Msgbox une fois tous les For exécuté, alors il faut créer une variable Flag.
Au départ elle vaut 0. Si on passe dans un IF ok, on la met à 1.
En sortant si ce flag vaut 1 on fait le msgbox.
VB: 
Sub rt()
Flag = 0
With ThisWorkbook.Sheets("Inventaire")
    For Each Nom In .Range("L4:L" & .[L65000].End(xlUp).Row)
        If CStr(Nom) = CStr(Me.Ithemmag.Value) And .Cells(Nom.Row, 1) = Me.TextBox1.Text Then
            Me.Ithemcate.Caption = .Cells(Nom.Row, 2)
            Me.Ithemstock.Caption = .Cells(Nom.Row, 4)
            Me.Ithemdes.Caption = .Cells(Nom.Row, 6)
            Me.Ithemref.Caption = .Cells(Nom.Row, 7)
            Me.Ithemuni.Caption = .Cells(Nom.Row, 8)
            Flag = 1
        End If
    Next
    If Flag = 1 Then MsgBox "Désolé, pas trouvé !"
End With
End Sub
 
Vote positif 0 Vote négatif
merci ca marche juste je Jai changé le flag=0 sur if .
j ajoute le code pour vider les labels après if ms sa fonctionne pas :

Flag = 0
With ThisWorkbook.Sheets("Inventaire")
For Each Nom In .Range("L4:L" & .[L65000].End(xlUp).Row)
If CStr(Nom) = CStr(Me.Ithemmag.Value) And .Cells(Nom.Row, 1) = Me.TextBox1.Text Then
Me.Ithemcate.Caption = .Cells(Nom.Row, 2)
Me.Ithemstock.Caption = .Cells(Nom.Row, 4)
Me.Ithemdes.Caption = .Cells(Nom.Row, 6)
Me.Ithemref.Caption = .Cells(Nom.Row, 7)
Me.Ithemuni.Caption = .Cells(Nom.Row, 8)
Flag = 1
End If
Next
If Flag = 0 Then MsgBox "Ce code article n'existe pas.dans le magasin.Veuillez saisir un code article valide", vbInformation + vbOKOnly, "Article non trouvé"
Me.Ithemcate.Caption = ""
Me.Ithemstock.Caption = ""
Me.Ithemdes.Caption = ""
Me.Ithemref.Caption = ""
Me.Ithemuni.Caption = ""
Exit Sub
End With
 
Vote positif 0 Vote négatif
Re Bonsoir,
issam salem à dit:
sa fonctionne pas :
Cliquez pour agrandir...
Qu'est ce qui ne fonctionne pas ? Le Msgbox, le vidage ?

sylvanu à dit:
Ensuite prenez l'habitude d'utiliser la balise </> pour le code, c'est plus lisible.
Cliquez pour agrandir...
sylvanu à dit:
Pour le code utilisez l'indentation, là aussi c'est plus lisible.
Cliquez pour agrandir...
Ca fait trois fois que je copie colle ce code en vrac pour essayé de comprendre ce que vous voulez faire. Faites un effort.
Je vous souhaite un excellente soirée.
 
Vote positif 0 Vote négatif
Essayez ça :
VB: 
flag = 0
With ThisWorkbook.Sheets("Inventaire")
    For Each Nom In .Range("L4:L" & .[L65000].End(xlUp).Row)
        If CStr(Nom) = CStr(Me.Ithemmag.Value) And .Cells(Nom.Row, 1) = Me.TextBox1.Text Then
            Me.Ithemcate.Caption = .Cells(Nom.Row, 2)
            Me.Ithemstock.Caption = .Cells(Nom.Row, 4)
            Me.Ithemdes.Caption = .Cells(Nom.Row, 6)
            Me.Ithemref.Caption = .Cells(Nom.Row, 7)
            Me.Ithemuni.Caption = .Cells(Nom.Row, 8)
            flag = 1
        End If
    Next
    If flag = 0 Then
        MsgBox "Ce code article n'existe pas.dans le magasin.Veuillez saisir un code article valide", vbInformation + vbOKOnly, "Article non trouvé"
        Me.Ithemcate.Caption = ""
        Me.Ithemstock.Caption = ""
        Me.Ithemdes.Caption = ""
        Me.Ithemref.Caption = ""
        Me.Ithemuni.Caption = ""
        Exit Sub
    End If
End With
 
Vote positif 0 Vote négatif
Solution
Merci sylvanu

ca marche bien
alors mon projet c'est une application de gestion du stock
Jai le tableau inventaire 'image1'. sur l userform d'image 2 je veux consulter le stock d'article "code article par magasin 'dernier ligne'" sachant qu'il est possible de trouver le même code sur le tableau ms de magasin différents.
 

Pièces jointes

  • Capture.PNG inventaire.PNG
    73.2 KB · Affichages: 11
  • Capture.PNG recherche.PNG
    27.3 KB · Affichages: 11
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
782
Usine à gaz
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
984
Nico2978
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
592
tactic6
C
  • Question Question
Autres Enregistrer un code barre dans la cellule avant le titre qui est déja enregistré
Réponses
11
Affichages
839
Chatron
C
  • Résolu(e)
XL 2016 Récupération de Valeur de CheckBox (dans un UserForm) et placement dans une zone de texte
Réponses
2
Affichages
2 K
Jgral
D
  • Question Question
XL 2010 Difficulté à insérer plusieurs dates dans une même textbox pour remplir un tableau
Réponses
14
Affichages
2 K
didi2697
D
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
C
  • Question Question
Ameliorer ma macro pour alimenter mon planning
Réponses
7
Affichages
2 K
Daes
D
B
  • Question Question
Utiliser la macro pour créer un lien vers une fiche créée
2
Réponses
15
Affichages
3 K
beowulf97
B
C
  • Question Question
Report infos USF dans un fichier, choix dernière ligne
Réponses
6
Affichages
2 K
CATA56
C
V
  • Question Question
Multiselect et textbox
Réponses
0
Affichages
2 K
vassili
V
F
  • Question Question
exclure certaine feuille
Réponses
2
Affichages
1 K
fpouzou
F
M
  • Question Question
aide pour formule vba
Réponses
1
Affichages
856
Robert
  • Question Question
Conversion Variant to String : l'indice n'appartient pas à la sélection
Réponses
1
Affichages
2 K
skoobi
G
  • Question Question
eurreur dans un code de filtration
Réponses
7
Affichages
2 K
geraldvc
G
J
  • Question Question
code de recherche ?
Réponses
10
Affichages
1 K
bqtr
K
  • Question Question
Empecher une recherche dans certaines feuilles
Réponses
3
Affichages
763
karinette
K
T
  • Question Question
Problème insertion fonction recherche V dans un userform
Réponses
1
Affichages
2 K
skoobi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…