Création de macro avec cellule de référence

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 .

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

Bonjour Hollye,

Citation:

---

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:

---

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:

---

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

---

Code:

---

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:

---

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