Discussion :

[hollye]

Bonjour ,

Je dois créer cette macro mais j'ai du mal .
Je ne comprend pas trop le fait de créer un "code " catégorie .

La consigne est de créer une macro qui en faisant référence à l'ensemble des lignes de la feuille produit . (ici prenons une feuille quelconque)
Le nombre de lignes n'est pas connu à l'avance .


En ne faisait référence qu'à la cellule "A1", cette macro :


- doit vous demander un code catégorie
- ajouter cette feuille
-renommer cette feuille avec le nom catégorie saisi
- copier le nom et le prix unitaire des produits de cette catégorie sur cette feuille

Je n'ai pas le fichier contenant la feuille . Mais j'aimerai qu'on m'aide pour la démarche à suivre si cette feuille existait ...

Merci .

[joe.levrai]

Bonjour,

voici pour tes tests, revient avec le code que tu auras réussi à faire si tu veux de l'aide sur la programmation :

- doit vous demander un code catégorie : regarde du côté de l'instruction "INPUTBOX" si tu veux une boite de dialogue. Sinon tu peux utiliser une cellule Excel où l'utilisateur écrira la catégorie

- ajouter cette feuille : utilise l'enregistreur de macro

-renommer cette feuille avec le nom catégorie saisi : utilise l'enregistreur de macro

- copier le nom et le prix unitaire des produits de cette catégorie sur cette feuille : utilise l'enregistreur de macro avec l'outil "filtre avancé" que tu trouveras dans l'onglet "données" pour extraire les lignes correspondant à la catégorie

Tutoriel du filtre avancé : http://philippetulliez.developpez.co...dvancedfilter/


Avec l'enregistreur de macro, tu auras 75% du travail fait, il restera :

- à optimiser ce code (on t'aidera si besoin)
- à régler la façon dont tu veux que l'utilisateur indique la catégorie (une cellule ou une boite de dialogue)
- gérer tous les aléas (si la catégorie n'existe pas ? Si la feuille existe déjà ? Si la catégorie est un mot utilisant des caractères interdits dans un nom de feuille ? etc...)


Bon travaux

[eric4459]

Bonjour Hollye,

En ne faisait référence qu'à la cellule "A1", cette macro :

D’après cette précision, ce qui me vient immédiatement à l'esprit c'est qu'il faut utiliser la fonction "Offset".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Ma_Page as Worksheet
Dim Ma_Ref as Range
Set Ma_Page = Thisworkbook.Sheets("Le Nom de ta Feuille")
Set Ma_Ref = Ma_page.Range("A1") 'Ici tu défini ta cellule A1 comme référence

Ensuite, hormis les autres fonctionnalités de ta macro, si par exemple tu veux copier le contenu de la cellule B5 dans la cellule C1 tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ma_Ref.Offset(0,2) = Ma_Ref.Offset(4,1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ma_Ref.Offset(0,2) est ta cellule C1 : décalage (Offset) de 0 ligne et de 2 colonnes (de A1 on passe en C1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ma_Ref.Offset(4,1) est ta cellule B5 : décalage de 4 lignes et de 1 colonne (de A1 on passe en B5)

J’espère que cette astuce pourra t’être utile en plus des recommandations de Joe.
Eric