XL 2021 Masquer ligne vba

NicolasKH · 3 Septembre 2023

bonjour tout le monde
je n'arrive pas a cacher une ligne sous condition
j'ai dans la colonne L une formule =SI([@[Date de fin]]>AUJOURDHUI();"En Cour";"Terminer")

je desirerais que quand dans le colonne L est inscrit Terminer que cette meme ligne sois cacher automatiquement

voici mon code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err
If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target = "Terminer" Then
Rows(Target.Row).EntireRow.Hidden = True
MsgBox "Ligne " & Target.Row & " masquée"
End If
End If
Exit Sub
err:

End Sub

mais rien ne se passe

pouviez vous m'aider s'il vous plait car je suis un nul en vba

NicolasKH · 4 Septembre 2023

mapomme à dit:

Bonjour @NicolasKH 🙂,

J'ai modifié la formule : =SI([@[Date de fin]]>AUJOURDHUI();"En Cours";"Terminé")
Voir le code suivant:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg As Range, x
   If Range("a5").ListObject.ListRows.Count = 0 Then Exit Sub
   If Intersect(Target, Range("a5").ListObject.ListColumns("Date de fin").DataBodyRange) Is Nothing Then Exit Sub
   Application.ScreenUpdating = False
   Set xrg = Range("a5").ListObject.ListColumns("Etat").DataBodyRange
   For Each x In xrg.Cells: Rows(x.Row).EntireRow.Hidden = (x = "Terminé"): Next x
End Sub

.

merci mapomme pour ta reponse superb rapide et j'ai fais le test et tout fonctionne correctement comme je le desirais, je mets que...

mapomme · 3 Septembre 2023

Bonjour @NicolasKH 🙂,

J'ai modifié la formule : =SI([@[Date de fin]]>AUJOURDHUI();"En Cours";"Terminé")
Voir le code suivant:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg As Range, x
   If Range("a5").ListObject.ListRows.Count = 0 Then Exit Sub
   If Intersect(Target, Range("a5").ListObject.ListColumns("Date de fin").DataBodyRange) Is Nothing Then Exit Sub
   Application.ScreenUpdating = False
   Set xrg = Range("a5").ListObject.ListColumns("Etat").DataBodyRange
   For Each x In xrg.Cells: Rows(x.Row).EntireRow.Hidden = (x = "Terminé"): Next x
End Sub

.

NicolasKH · 4 Septembre 2023

mapomme à dit:

Bonjour @NicolasKH 🙂,

J'ai modifié la formule : =SI([@[Date de fin]]>AUJOURDHUI();"En Cours";"Terminé")
Voir le code suivant:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg As Range, x
   If Range("a5").ListObject.ListRows.Count = 0 Then Exit Sub
   If Intersect(Target, Range("a5").ListObject.ListColumns("Date de fin").DataBodyRange) Is Nothing Then Exit Sub
   Application.ScreenUpdating = False
   Set xrg = Range("a5").ListObject.ListColumns("Etat").DataBodyRange
   For Each x In xrg.Cells: Rows(x.Row).EntireRow.Hidden = (x = "Terminé"): Next x
End Sub

.

merci mapomme pour ta reponse superb rapide et j'ai fais le test et tout fonctionne correctement comme je le desirais, je mets que la reponse est resolu

XL 2021 Masquer ligne vba

NicolasKH

XLDnaute Junior

Pièces jointes

NicolasKH

mapomme

XLDnaute Barbatruc

Pièces jointes

NicolasKH

XLDnaute Junior

Discussions similaires

XL 2021 Masquer ligne vba

NicolasKH

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

NicolasKH

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency