Discussion :

[nono le golfeur]

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...

Mon Code :

Code :

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

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 !

[ouskel'n'or]

Code :

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

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

[ouskel'n'or]

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 ?

[nono le golfeur]

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...

[ouskel'n'or]

Tu vas nous la montrer cette macro ?
......................

[alsimbad]

on va trouver du select