XL 2016 Automatiser l'exécution d'une macro à chaque mise à jour

J-No 25

XLDnaute Nouveau
Bonjour

Je souhaite automatiser l'exécution de la macro ci-dessous dès qu'une des lignes identifiée est mise à jour.
Merci d'avance pour votre aide

Voici la macro :

Sub Masq_Gar()

Dim Num_Row As Long
For Num_Row = 111 To 126

If Cells(Num_Row, 5) = "Oui" Then
Rows(Num_Row).EntireRow.Hidden = True

Else
Rows(Num_Row).EntireRow.Hidden = False

End If
Next

End Sub
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir @J-No 25 , le Forum

Pour avoir une exécution automatique, à mettre dans le Private Module de la Worksheet en question :

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column <> 5 Then Exit Sub

Call Masq_Gar

End Sub

Ta macro étant dans,un module standard...

Bonne soirée
@+Thierry
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 069
Messages
2 085 040
Membres
102 763
dernier inscrit
NICO26