macro événementielle

FDO94 à dit:

Bonjour, je viens vers la communauté car j'ai besoin d'aide pour résoudre le souci suivant :
Dans la feuille 3, j'ai un tableau où je masque les lignes avec zéro avec une macro. Je veux automatiser cette opération, soit quand je change les chiffres en feuille 2 en liaison avec la feuille 3, la macro se déclenche
Merci pour votre attention

Cliquez pour agrandir...

​

sylvanu à dit:

Re,
La modif est simple :

VB:

Sub Worksheet_Activate()
Dim DL%, L%
Application.ScreenUpdating = False
Range("C2:G29" & DL).EntireRow.Hidden = False
For L = 2 To 29
    If Cells(L, "G") = 0 Then Cells(L, "A").EntireRow.Hidden = True
Next L
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Si la première cellule du tableau synthèse commence par "PRIX", sur le fichier en C32, alors utilisez :

VB:

Sub Worksheet_Activate()
Dim DL%, L%
Application.ScreenUpdating = False
DL = Application.Match("PRIX *", [C:C], 0) - 3
Range("C2:G" & DL + 3).EntireRow.Hidden = False
For L = 2 To DL
    If Cells(L, "G") = 0 Then Cells(L, "A").EntireRow.Hidden = True
Next L
End Sub

Il s'adaptera automatiquement puisqu'il masquera de la ligne 2 à la ligne où il y a "PRIX" -3

Cliquez pour agrandir...

bsalv à dit:

si on utilise un tableau structuré et un filtre, tout se fait tout seul.
Je ne sais pas ce qu'on veut faire avec les 3 lignes en dessous.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Si la première cellule du tableau synthèse commence par "PRIX", sur le fichier en C32, alors utilisez :

VB:

Sub Worksheet_Activate()
Dim DL%, L%
Application.ScreenUpdating = False
DL = Application.Match("PRIX *", [C:C], 0) - 3
Range("C2:G" & DL + 3).EntireRow.Hidden = False
For L = 2 To DL
    If Cells(L, "G") = 0 Then Cells(L, "A").EntireRow.Hidden = True
Next L
End Sub

Il s'adaptera automatiquement puisqu'il masquera de la ligne 2 à la ligne où il y a "PRIX" -3

Cliquez pour agrandir...