Recherche avec fenetre
Dans le fichier ci-joint, je souhaite que lorsqu'il s'ouvre il propose une fenetre de recherche demandant un code article et faire OK.
Si le code article se trouve dans la colonne A, alors il met "Fiche retirée en semaine "puis recopie la colonne I ce qui ferait Fiche retirée en S46 par exemple.
Si le code ne se trouve pas dans la colonne A alors "Fiche non présente".
Et si possible avoir la possibilité de fermer la boite de dialogue pour pouvoir rajouter des lignes dans le fichier.
Merci pour votre aide
Bonjour,
Votre fichier en retour avec une proposition. Cliquez sur le bouton à droite pour faire quelques tests.Cordialement
Bonjour Dan,
Ce n'est pas du tout ce que je recherche je me suis mal exprimé probablement.
Quand j'ouvre le fichier je souhaiterais une boite de dialogue qui s 'ouvre directement comme quand tu appuies sur ton bouton.
Mais pour la réponse il faut que ca reste dans cette même boite de dialogue et non dans la colonne I.
Dans le vrai fichier j'ai 1800 références.
Merci à toi.
Bonjour
Quand j'ouvre le fichier je souhaiterais une boite de dialogue qui s 'ouvre directement comme quand tu appuies sur ton bouton.
Ok. Donc vous ne faites ce contrôle qu'une seule fois à l'ouverture du fichier ?
puis recopie la colonne I ce qui ferait Fiche retirée en S46
Que vouliez vous dire par cela ? On oublie ?
Bonjour.
J'ai eu la solution avec des améliorations :
Private Sub Workbook_Open()
Dim x$, i As Variant
x = InputBox("Rentrer le code boiron :", "Recherche fiche stock supprimée")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
MsgBox "Fiche de stock '" & x & "' retirée en semaine " & Cells(i, "I")
Else
MsgBox "Fiche produit '" & x & "' non présente", vbCritical
End If
If MsgBox("Nouvelle recherche ?", 4) = vbYes Then Workbook_Open
End Sub
Merci.