Discussion :

[mjp06]

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 :

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

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

[fring]

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 :

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

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
.

[Gorfael]

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 :

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

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+

[mjp06]

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

[fring]

Oui, comme ceci :

Code :

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

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

[mjp06]

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

Bye,

mjp06

[AlainTech]

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

Merci

[kerkneus]

Oui, comme ceci :

Code :

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

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

[Philippe Tulliez]

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 :

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

Range("A1").Address

renvoie $A$1

Code :

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

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

renvoie $A1

Je te laisse découvrir la suite