créer macro pour masquer lignes à un partir d'une liste déroulante

Question

Bonjour, 

Je souhaite créer une macro pour masquer certaines lignes d'un fichier selon la sélection effectuée dans un liste déroulante en cellule ac15.

Selon la sélection effectuée les lignes à masquer diffère. Je ne connais pas du tout les macros et souhaiterais obtenir un coup de main urgent si possible.


Ex : liste déroulante choix A -B - C

Si A est sélectionné masquer les lignes 10 à 12 et 15 à 20
Si B est sélectionné masquer les lignes 13 à 14 et 21 à 25
Si C est sélectionné masquer les lignes 10 à 25

Merci de votre retour rapide! 

Cordialement !

Yoyo01000 · Answer

Bonjour, pour partager votre fichier, c'est par ici :

 https://www.cjoint.com/

Déjà qq chose n'ira pas : si les lignes 15 à 20 sont masquées, il n'y aura plus de menu déroulant !

Suivant comment sera écrit la macro, si on lui dit "regarde" la valeur en AC15 pour masquer les lignes concernées, il va y avoir un bug !

Mike-31 · Answer

Bonjour,

le problème dans ton cas est que la cellule de commande AC15 se trouve parmis les lignes masquées dans deux cas, si en AC15 tu as A ou C
et après ces deux cas impossible d'avoir accès à AC15 
peux tu déplacer la liste de validation ! 

autrement un code très simple en changeant AC15

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [AC15]) Is Nothing Then
Range("10:25").EntireRow.Hidden = False
If Target = "A" Then Range("10:12,15:20").EntireRow.Hidden = True
If Target = "B" Then Range("13:14,21:25").EntireRow.Hidden = True
If Target = "C" Then Range("10:25").EntireRow.Hidden = True
End If
End Sub
 

Edit: ajout des balises de code

jordane45 · Answer

Bonjour,

ça devrait donner un truc du genre

Private Sub Worksheet_Change(ByVal Target As Range)

'Si la valeur modifiée se trouve bien dans la cellule AC15
    If Not Application.Intersect(Target, Range("AC15")) Is Nothing Then
        'on réaffiche toutes les lignes
        Rows("10:25").EntireRow.Hidden = False
      'On masque en fonction de la valeur de ta liste
        Select Case Target.Value
            Case "A"
                Rows("10:12").EntireRow.Hidden = True
                Rows("15:20").EntireRow.Hidden = True
            Case "B"
                Rows("13:14").EntireRow.Hidden = True
                Rows("21:25").EntireRow.Hidden = True
            Case "C"
                Rows("10:25").EntireRow.Hidden = True
         End Select
    End If

End Sub

A noter que la cellule AC15 .. se trouvant sur une des lignes à masquer... ta liste ne sera plus visible...

Mike-31 · Answer

Re,

Vous avez dit URGENT, comme c'est bizarre en 15 minutes 3 réponses et toujours pas de retour ! 

il n'y a rien d'urgent que des gens pressés.

Mike-31 · Answer

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [AC15]) Is Nothing Then
Range("17:375").EntireRow.Hidden = True
If Target = "A" Then Range("17:22,32:375").EntireRow.Hidden = False
If Target = "B" Then Range("17:31,38:375").EntireRow.Hidden = False
'etc ...
End If
End Sub
 
 
EDIT : Correction des balises de code. ( Ajout du langage pour avoir la coloration syntaxique et l'indentation)

Mike-31 · Answer

Re,

quel type de message d'erreur !

Mike-31 · Answer

écrit le code comme cela, j'étais resté sur le code initial avec toute les lignes affichées

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [AC15]) Is Nothing Then
Range("17:375").EntireRow.Hidden = False
If Target = "A" Then Range("17:22,32:375").EntireRow.Hidden = True
If Target = "B" Then Range("17:31,38:375").EntireRow.Hidden = True
If Target = "C" Then Range("17:375").EntireRow.Hidden = False
End If
End Sub

Créer macro pour masquer lignes à un partir d'une liste déroulante

7 réponses

Newsletters