J J-No 25 XLDnaute Nouveau 11 Juin 2020 #1 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
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 11 Juin 2020 #2 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 Vote positif 0 Vote négatif
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
J J-No 25 XLDnaute Nouveau 13 Juin 2020 #3 Bonjour Thierry Désolé, j'avais un souci de connexion Merci, j'essaie Vote positif 0 Vote négatif