Retrouver une cellule dans une liste par un scan douchette

youky(BJ)

XLDnaute Barbatruc
Hello à tous,

Remplacer
Application.Match(Val(Feuil2.Cells(lg, 2)), Feuil1.[A:A], 0)
par
Application.Match(Feuil2.Cells(lg, 2), Feuil1.[A:A], 0)
A voir si cela fonctionne aussi avec les autres
Bruno
 

youky(BJ)

XLDnaute Barbatruc
hé non ca passe pas pour l'autre donc voici la partie de macro
ceci à faire aussi en 'retour
Bruno
VB:
If Target.Value Like "*/*" = False Then
lng = Len(Target): gtin = Target.Text
gtin = Mid(Target.Text, 3, 14)
lg = Application.Match(gtin, Feuil2.[A:A], 0)
If Not IsNumeric(lg) Then MsgBox "Non trouv?": GoTo fin
If IsNumeric(Feuil2.Cells(lg, 2)) Then
lig = Application.Match(Val(Feuil2.Cells(lg, 2)), Feuil1.[A:A], 0)
Else
lig = Application.Match(Feuil2.Cells(lg, 2), Feuil1.[A:A], 0)
End If
If Not IsNumeric(lig) Then MsgBox "inexistant": GoTo fin
If lng < 29 Then lot1 = Mid(Target, 19, lng) Else lot1 = Mid(Target, 27, lng)
Application.EnableEvents = False
Cells(lig, 7) = lot1: Cells(lig, col) = Cells(lig, col) + 1: Target = "": Beep
Target.Select
Application.EnableEvents = True
GoTo fin
End If
 

Hurricane.Tn

XLDnaute Nouveau
bonjour Bruno,
j'espère que vous allez bien, une nouvelle fois j'ai besoin de votre aide.
cette fois dans le même fichier j'ai essayer de grouper les inventaire possible dans un seul classeur.
ce que je veux c'est que lors de l'ouverture du classeur un userform s'affiche avec une liste des feuilles du classeur dedans sauf la feuille 'BD Articles'
et l'utilisateur peux choisir une ou plusieurs feuilles et a la validation seulement les pages choisis s'afficheront et les autres seront masquées.
mais mon plus grand problème c'est de créer un bouton imprimer que lorsque ont clique dessus il génère un nouveau fichier avec les mouvement réalisés sur toutes les feuilles,
je sais que je demande trop cette fois ci mais vraiment ca va m'aider énormément à organiser le travail et aussi à économiser le papier et merci.
je compte sur vous.
 

Fichiers joints

youky(BJ)

XLDnaute Barbatruc
Bonjour,
J'ai rencontré des PB avec le fichier alors je l'ai refait de zéro.
Il n'y a que les worksheet_change que je n'ai pas remis.
Il serai bon de renommer mes boutons Formulaire en IMPRESSION
Je viens de me rendre compte que je l'ai mis en .xlsm et tu es en .xls (version2003)
Bon je mets les 2 versions
Bruno
 

Fichiers joints

Hurricane.Tn

XLDnaute Nouveau
merci Bruno mais je pense que je n'avais pas bien expliquer mon souci.
ce que je veux c'est que lorsque le fichier s'ouvre un userform se lance directement avec la liste des feuilles du classeur, obligeant l'utilisateur de choisir les feuilles sur les quelles il va travailler et en validant seulement ces feuilles seront afficher et les autres seront masquées.
après il est nécessaire de créer un Bon de livraison résumant l'inventaire des boites qui a été fait c'est pour ca que je pense qu'il faut créer un bouton qui sert a générer un fichier qui va contenir un tableau de l'inventaire réalisé.
bien sûr si vous avez une autre idée n'hésitez pas.
Merci
 

Hurricane.Tn

XLDnaute Nouveau
bonjour Bruno,
merci pour votre aide c'est bien l'idée de créer une feuille 'Bon de Livraison', je pense que tout le travail d'inventaire sera effectué sur cette feuille.
mais si je veux ajouter une feuille dans le classeur est ce qu'il y a une modification a faire dans le classeur ou pas.
 

youky(BJ)

XLDnaute Barbatruc
Re,
tu peux ajouter des feuilles elles seront prisent en compte
tu peux aussi en supprimer sans PB
Fait un test sans enregistrer le fichier
Bruno
 

Hurricane.Tn

XLDnaute Nouveau
Re,
j'ai mis toutes les pages masqués sauf Bon de livraison
je veux juste que l'insertion des lignes se fait a partir de la ligne 19 et que les noms des feuilles choisis dans le formulaire
s'affichent sous la cellule état de la boite.
merci d'avance
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas