créer une boucle dans excel

[menie84]

Bonjour!!

Je vous avais sollicité une première fois alors que je souhaitais masquer les lignes 1 à 18 dans ma feuille 2 lorsque ma case e6 de ma feuille 1 était vide : j'ai réussi grâce au code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$E$6" Then
With Sheets("Feuil2")
.Rows("1:18").Hidden = IIf(Target = "", True, False)
End With
End If

Cependant je souhaite maintenant créer une boucle (je ne sais pas trop comment l'appeler) : je voudrais trouver le moyen de faire une boucle qui fasse que lorsque ma case f6 est vide, les lignes 1à 18 de ma feuille 3 soient masquées, que lorsque ma case g6 est vide les lignes 1 à 18 de ma feuille 4 soient masquées etc. Est-ce possible? Et comment?

Merci d'avance!!

Cordialement,

Mélanie

 

[eriiic]

Re : créer une boucle dans excel

Bonjour,

tu pourrais faire ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   If Target.Row = 6 Then
     If Target.Column >= 5 And Target.Column <= [B]7[/B] Then
            Sheets("Feuil" & Target.Column - 3).Rows("1:18").Hidden = IIf(Target = "", True, False)
      End If
   End If
End Sub

Remplace le 7 par le n° de la dernière colonne concernée.

eric

 

[menie84]

Re : créer une boucle dans excel

Merci beaucoup!! Je vais essayer ça mais je pense que ça va grandement m'aider!!

Merci encore!