Discussion :

[lejack]

Bonsoir,

Je souhaiterais cacher automatiquement des lignes selon la valeur que certaines cellules peuvent avoir. J'ai fais des recherches et essayé un code mais pour l'instant, cela ne fonctionne pas. Ai-je fais quelque chose de faux?

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)
 Application.EnableEvents = True
 Application.ScreenUpdating = False
 
           If LCase(Range("CellName").Value) = "The student has good grades" Then
            	Range("T1").EntireRow.Hidden = True
          End if
 Application.EnableEvents = True         
End Sub

Merci d'avance et bonne soirée !

[Jean-Philippe André]

Salut,

ton code met uniquement la premiere ligne en caché, Est-ce voulu ?

[lejack]

Salut,

ton code met uniquement la premiere ligne en caché, Est-ce voulu ?

Salut !

Merci beaucoup pour ta réponse

J'aurais du préciser que "T1" n'est pas la cellule T1 mais le nom d'une cellulle nommé ou d'une plage selon les endroits.

@Menhir:

Oui bien vu... Le soucis étant que les majuscules au début des phrases sont nécessaires sur ce fichier :lole: :lole: y'a t il un moyen d'avoir un "LCase" qui s'applique aussi aux majuscules? Merci beaucoup !

Edit : J'ai enlevé le Lcase et cela semble fonctionner

[MarcelG]

Bonjour à vous et bonjour au Forum,

Je me permets de réitérer une remarque déjà faite.
Une condition booléenne peut très bien se traiter par simple égalité.

Plutôt que

Code :

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

1
2
If LCase(Range("CellName").Value) = "The student has good grades" Then
            	Range("T1").EntireRow.Hidden = True

Nous pouvons écrire

Code :

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

Range("T1").EntireRow.Hidden = (LCase(Range("CellName").Value) = "The student has good grades")

D'autre part, les comparaisons de caractères majuscules/minuscules peuvent se gérer en plaçant en début de module

Code :

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

Option Compare Text

[lejack]

Merci beaucoup pour votre réponse

[Menhir]

Ai-je fais quelque chose de faux?

Ca se voit comme le nez au milieu de la figure :

Code :

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

           If LCase(Range("CellName").Value) = "The student has good grades" Then

Il y a aussi Application.ScreenUpdating = False qui n'est pas remis à True à la fin du code.
Demander à ne pas montrer les changements, ça ne facilite pas la visualisation des effets d'un code.
Je ne sais pas si VBA repasse cette propriété à True à la fin du code. Personnellement, c'est le genre de propriété que je préfère éviter.
Surtout que pour un code aussi court, ça n'aura quasiment aucun effet (du moins pas d'effet positif).

Il y a aussi Application.EnableEvents = True dont on se demande ce qu'il vient faire là.
On a l'impression que tu l'as récupéré d'un autre code et que tu l'as laissé parce que tu n'as pas cherché à savoir à quoi il servait.