[VBA-E] Automatisation Variable

Bonjour,

Je créer actuellement un fichier excel qui vise à recenser différentes informations et ensuite faire différents calculs.

J'essai donc de créer une macro qui insère des lignes en fonction du nombre d'étapes dont j'ai besoin.

Donc j'ai une Cbo avec le nombre d'étapes désirée (entre 1 - 14 ) et ensuite en fonction de ça je "Unhide" les cellules dont j'ai besoin.

Mon problème est que j'ai du mal automatiser le "Hide" / "Unhide" pour que les cellules dont j'ai besoin s'affichent, pour l'instant tout est très basique... :oops:

Mon Code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub unhide_milestones()   Application.ScreenUpdating = False   If ThisWorkbook.ActiveSheet.Range("D20").Value = 1 Then   Sheets("Workplan").Select Rows("7:13").Select Selection.EntireRow.Hidden = False     Sheets("Workplan").Select Rows("13:97").Select Selection.EntireRow.Hidden = True   End If     If ThisWorkbook.ActiveSheet.Range("D20").Value = 2 Then   Sheets("Workplan").Select Rows("7:20").Select Selection.EntireRow.Hidden = False

---

Bref j'en ai 14 comme ça mais comme pour l'instant mon automatisation ne fonctionne pas alors c'est mieux que rien...

Et deuxième petite chose, comment puis-je faire pour que la macro s'execute quand je choisi un valeur dans ma combo box? Pour l'instant, je choisis une valeur, qui est liée à une cellule et en cliquant sur un bouton d'action, la macro vérifie le nombre dans la cellule puis déclenche le nombre de ligne à intégrer ... Moi qui aime bien le code claire, là je suis honteux !

Code:

---

1 2 3 4 5

Select ThisWorkbook.ActiveSheet.Range("D20").Value Case 1 Sheets("Workplan").Rows("7:13").EntireRow.Hidden = False Case 2 Sheets("Workplan").Rows("13:97").EntireRow.Hidden = False

---

Au fait, pendant que j'y suis "hide" c'est Masquer et "Unhide" enlever le masque ou dé-masquer. J'ai dû lire le code pour comprendre que l'instruction Hide appliquée à une cellule n'avait pas été inventée pendant que je tournais le dos ;)
Pour ta seconde question, je regarde

Citation:

---

Envoyé par En 2, tu

Et deuxième petite chose, comment puis-je faire pour que la macro s'execute quand je choisi un valeur dans ma combo box? Pour l'instant, je choisis une valeur, qui est liée à une cellule et en cliquant sur un bouton d'action, la macro vérifie le nombre dans la cellule puis déclenche le nombre de ligne à intégrer ...

---

Elle est où cette combo ? Dans la feuille de calcul ? Créé à partir de quelle Barre de contrôles ? Outils ou formulaire ?
Où bien se trouve-t-elle dans un userform ?

Merci pour cette réponse,

Dsl pour le Hide / Unhide je n'ai jamais utilisé Excel en Français.. Merci pour la traduction ;)

J'essayais d'utiliser Select Case depuis un moment mais j'avais des problèmes.

Pour la Combo, je n'ai pas de formulaire, c'est juste un objet dans une feuille de calcul, les données sont simplement dans cette même feuille sous forme de liste, je peux aussi l'insérer en VBA, peut m'iporte !

Le truc c'est juste qu'au lieu de passer par la cellule D20 je voudrais directement selectionner la combo box et que la macro s'execute.

Cependeant à chaque fois que la macro s'execute, Excel va directement à l'endroit ou l'action a eu lieu... Et je n'arrive pas à rester sur la même feuille malgré l'application de la macro...

Tu vas nous la montrer cette macro ? 8O
......................:mouarf:

on va trouver du select:P :mouarf: :mouarf:

Hello,

Désolé petit problème au boulot hier du coup pas le temps de répondre,

Ma macro maintenant que gentillement ouskel'nor me l'a améliorée est celle là :

Code:

---

1 2 3 4 5 6 7 8 9

Select ThisWorkbook.ActiveSheet.Range("D20").Value   Case 1 Sheets("Workplan").Rows("7:13").EntireRow.Hidden = False Sheets("Workplan").Rows("13:97").EntireRow.Hidden = True Case 2 Sheets("Workplan").Rows("7:20").EntireRow.Hidden = False Sheets("Workplan").Rows("21:97").EntireRow.Hidden = True ' Je vous Epargne les 14 autres cas...

---

Le but est très simple, je souhaite dé-masquer (merci ouskeln'or !) 7 lignes par 7 lignes et inversement masquer 'celles dont je n'ai pas besoin. Si 3 est selectioné alors je dé-masque les 21 première lignes et masque le reste...

Donc très basic, le fait est que lorsque que j'essai de choisir ma Combo Box qui s'appel "cbomilestones" ca me met "Object Required".

Ce qui est bizare c'est que même lorsque je définis cette objet as String ou autre ca passe pas... Alors pour l'instant je stock cette valeur dans une cellule du feuille "LookUpTable" et j'active la macro.. Au fond ce n'est pas essentiel mais pkoi avoir un code super lourd qd je peux avoir un bcp plus simple ??? (Enfin

Sinon je pense pouvoir créer un bouton qui activera toutes les macros présente sur ma première feuille en même temps... Je ne suis pas fou ca peut se faire ??

Tu as lu mes question, là
Ça sert à quoi que l'autre il se décarcasse à poser des questions... Il vient d'où ton combo ?

Citation:

---

Envoyé par Tu

Pour la Combo, je n'ai pas de formulaire, c'est juste un objet dans une feuille de calcul, les données sont simplement dans cette même feuille sous forme de liste, je peux aussi l'insérer en VBA, peut m'importe !

---

A moi, pour te répondre, ça m'importe beaucoup ! Ce n'est pas une liste dans une cellule ? Si c'est un "vrai" combo, tu l'as bien pris quelque part, non ? :cry: Dans qu'elle barre d'outils ? :cry:

Hum alors si ça importe beaucoup je vais te répondre !

Le Combo je l'ai inséré à partir de la barre d'outils "Form" (je pense "Formulaire" en Francais).

Les Données proviennent d'une liste qui est présente dans une feuille cachée.

Voilà !

un grand merci d'avance,

Ouf !
Donc tu peux associer du code à ta combo. Fais deux clics dessus, en mode création et ça va t'ouvrir des horizons nouveaux :mouarf:

J'ajoute que depuis "Private Sub ComboBox1_Click()" tu peux appeler une macro placée "ailleurs", comme dans un module par exemple ;)