VBA excel création d'un catalogue
Fermé
martinol19
Messages postés
6
Date d'inscription
mardi 11 octobre 2011
Statut
Membre
Dernière intervention
9 avril 2013
-
8 avril 2013 à 17:50
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 9 avril 2013 à 12:22
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 9 avril 2013 à 12:22
A voir également:
- VBA excel création d'un catalogue
- Liste déroulante excel - Guide
- Creation compte gmail - Guide
- Si et excel - Guide
- Création compte google - Guide
- Word et excel gratuit - Guide
3 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
9 avril 2013 à 08:50
9 avril 2013 à 08:50
Bonjour,
Peut se faire sans VBA (formule RECHERCHV) ou avec (avez-vous quelque(s) connaissances sur le sujet) , a vous de choisir.
A+
Peut se faire sans VBA (formule RECHERCHV) ou avec (avez-vous quelque(s) connaissances sur le sujet) , a vous de choisir.
A+
martinol19
Messages postés
6
Date d'inscription
mardi 11 octobre 2011
Statut
Membre
Dernière intervention
9 avril 2013
9 avril 2013 à 12:01
9 avril 2013 à 12:01
Bonjour f894009,
J'ai effectivement pensé à utiliser la fonction recherchev mais je ne peux pas faire (ou je ne sais pas faire) :
- Une recherche sur plusieurs onglets
- Si un article est chez plusieurs fournisseurs, il faut faire apparaitre tous les résultats dans mon interface, soit plusieurs lignes. Or la fonction est seulement pour faire apparaitre le résultat sur une case non?
Concernant VBA, je connais les principes de bases : enregistrement d'une macro, je sais lire les codes basiques et j'arrive à "bricoler" à partir d'un code existant.
J'ai d'ailleur commencé un programme qui correspond à la fonction recherchev, il me manque la boucle pour chercher dans tous les onglets et incrémenter les réponses dans mon interface.
mon code pour faire la recherche et afficher le texte dans les lignes de mon interface :
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("C15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 1, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("D15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 2, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("E15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 3, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("F15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 4, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("G15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 5, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("H15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:5000"), 6, False)
End With
J'ai effectivement pensé à utiliser la fonction recherchev mais je ne peux pas faire (ou je ne sais pas faire) :
- Une recherche sur plusieurs onglets
- Si un article est chez plusieurs fournisseurs, il faut faire apparaitre tous les résultats dans mon interface, soit plusieurs lignes. Or la fonction est seulement pour faire apparaitre le résultat sur une case non?
Concernant VBA, je connais les principes de bases : enregistrement d'une macro, je sais lire les codes basiques et j'arrive à "bricoler" à partir d'un code existant.
J'ai d'ailleur commencé un programme qui correspond à la fonction recherchev, il me manque la boucle pour chercher dans tous les onglets et incrémenter les réponses dans mon interface.
mon code pour faire la recherche et afficher le texte dans les lignes de mon interface :
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("C15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 1, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("D15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 2, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("E15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 3, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("F15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 4, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("G15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:H5000"), 5, False)
End With
With Workbooks("catalogue achat maintenance.xls").Sheets("interface")
.Range("H15").Value = WorksheetFunction.VLookup(.Range("D7:E7").Value, _
Workbooks("catalogue achat maintenance.xls").Sheets("Fourn1").Range("C7:5000"), 6, False)
End With
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
9 avril 2013 à 12:22
9 avril 2013 à 12:22
Re,
- Une recherche sur plusieurs onglets pas de probleme
- Si un article est chez plusieurs fournisseurs, il faut faire apparaitre tous les résultats dans mon interface, soit plusieurs lignes. Or la fonction est seulement pour faire apparaitre le résultat sur une case non? Oui, mais vous mettez autant de "case" rechercheV que d'onglets.
dans votre code pourquoi WorksheetFunction.VLookup(.Range("D7:E7").Value, alors que vous avez ecrit au depart je rentre un numéro article dans une case,
Un exemple de code VBA de michel_m CCM: https://www.cjoint.com/c/CDjmt0MObG9
A+
- Une recherche sur plusieurs onglets pas de probleme
- Si un article est chez plusieurs fournisseurs, il faut faire apparaitre tous les résultats dans mon interface, soit plusieurs lignes. Or la fonction est seulement pour faire apparaitre le résultat sur une case non? Oui, mais vous mettez autant de "case" rechercheV que d'onglets.
dans votre code pourquoi WorksheetFunction.VLookup(.Range("D7:E7").Value, alors que vous avez ecrit au depart je rentre un numéro article dans une case,
Un exemple de code VBA de michel_m CCM: https://www.cjoint.com/c/CDjmt0MObG9
A+