Masquer des lignes avec une condition

Bonjour,

Je veux masquer des lignes avec une condition dans Excel 2003.

Si la cellule "a4" est à "O", afficher les lignes 21:28, si la cellule "a4" est à "N", masquer les lignes 21:28.

En cherchant sur internet et dans un livre j'ai réussi à trouver quelque chose comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Masque les lignes 21 à 28 si la case A4 est égal à N If Range("a4") = "N" Then Rows("21:28").Select Selection.EntireRow.Hidden = True End If   'Affiche les lignes 21 à 28 si la case A4 n'est pas égal à N If Range("a4") = "O" Then Rows("21:28").Select Selection.EntireRow.Hidden = False End If

---

Je veux que ça fonctionne tout le temps sans que je sois obligée de demander d'exécuter la macro.

Mon problème c'est que je n'ai aucune idée où je dois aller écrire cette formule car je commence dans ce language. Je suis dans Excel je vais dans Outils , macro ou dans Outils, Visual Basic éditor, mais je ne sais pas où aller ensuite.

Merci de m'indiquer où écrire tout ça ou s'il y a un tutorial qui peut m'aider à comprendre le tout.

Merci beaucoup

mjp06

Bonjour et bienvenue sur le forum,

Dans ce cas il faut utiliser une procédure événementielle Worksheet_Change à placer non pas dans un module mais directement dans l'objet Feuil en question.

Dans le Visual Basic Editor, colonne de gauche, double clic sur la feuille concernée (Feuil1 ou feuil2 ou Feuil3 ou ...) et insère le bout de code ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug If Target.Address = "$A$4" Then '<-- vérification que la modification se passe dans la cellule A4 Select Case Target.Value Case "N": Rows("21:28").Hidden = True Case "O": Rows("21:28").Hidden = False End Select End If End Sub

---

La procédure (macro) sera automatiquement exécutée à chaque modification dans la cellule A4

Plus d'explications dans le tuto ci-dessous
Les évènements dans la feuille de calcul Excel
.

Salut mjp06, fring et le forum
souris sur le nom de l'onglet de la feuille concernée
Clic-droit => Menu contextuel>>Visualiser le code et tu colles la macro de
fring.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug If Target.Address = "$A$4" Then '<-- vérification que la modification se passe dans la cellule A4 Select Case Target.Value Case "N": Rows("21:28").Hidden = True Case "O": Rows("21:28").Hidden = False End Select End If End Sub

---

A+

Merci beaucoup ça fonctionne très bien.

Cependant j'ai remarqué en faisant des tests que si j'ajoute des lignes ou en enlève ça ne suit plus.

Donc si ma cellule $A$4 (ça c'est encore bon)

Est-ce que je peux lui dire d'afficher ou masquer la plage "note3" (qui fait référence aux lignes 21:28) au lieu de lui dire Rows("21:28"). J'ai remarqué que si j'ajoute une ligne dans une plage, la nouvelle ligne fait automatiquement partie de la plage, donc je ne serait pas obligé de corrigé la valeur de Rows...

Merci encore mille fois,

mjp06

Oui, comme ceci :

Code:

---

Range("note3").EntireRow.Hidden = True 'ou False pour les réafficher

---

Merci beaucoup c'est super ! Vous m'avez sauvé beaucoup de temps !

Bye,

mjp06

Il est d'usage, ici, lorsqu'on a obtenu ou trouvé réponse à son problème, de cliquer sur le bouton :resolu:, en bas de discussion.

Merci

Citation:

---

Envoyé par fring

Oui, comme ceci :

Code:

---

Range("note3").EntireRow.Hidden = True 'ou False pour les réafficher

---

---

Bonjour,

Pouvez vous m'aider?? Je voudrait savoir comme faire pour remplacer le terme ("$A$4") dans (If Target.Address = "$A$4" Then '<-- vérification que la modification se passe dans la cellule A4) par le nom défini la case A4.

Par exemple si je défini la case A4 par Largeur_Voiture. est ce que je remplace directement comme cesi : If Target.Address = "Largeur_Voiture" Then '<-- vérification que la modification se passe dans la cellule A4)??????


Merci d'avance

Bonjour,
Bien que ce ne soit pas vraiment dans le sujet de cette discussion et de plus très ancienne
La propriété Address de l'objet Range a plusieurs arguments dont la valeur False rend l'a référence relative

Code:

---

Range("A1").Address

---

renvoie $A$1

Code:

---

range("A1").Address(rowabsolute:=false)

---

renvoie $A1

Je te laisse découvrir la suite