bonjour a tous
j ai essayé de faire ma premiere macro pour afficher ou masquer des lignes.
cette macro fonctionne mais est tres longue a s executer je voudrai donc l optimiser
mais n etant doué en vba je vous demande un petit coup de main.
soi dans une feuille 2 tableaux qui se remplissent automatiquement
le 1er en A5:V28
LE 2eme en A34:V56
Le but est de masquer les lignes vide
ou d afficher les lignes non vide de chaque tableau
sachant que ces ligne sont toujours en fin de tableau
pas de ligne vide entre les lignes non vides
et en fin que cette macro se declanche a l ouverture de la feuille
merci d avance a tous pour votre aide
voici ma macro:
Sub afficher_masquer_lignes()
For Each c In Range("A5", "A28")
For i = 0 To Range("v5").Column
If c.Offset(0, i) <> "" Then
n = 1
End If
Next
If n <> 1 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
n = 0
Next
For Each c In Range("A34", "A56")
For i = 0 To Range("v34").Column
If c.Offset(0, i) <> "" Then
n = 1
End If
Next
If n <> 1 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
n = 0
Next
End Sub
salutations
djeanphi