Macro excel 2003 vers 2007
Résolu
yassina1
Messages postés
137
Statut
Membre
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai trouver un code VBA sur un site pour masquer les lignes "si"vides sur excel
Le problem c'est que ce code il marche très bien en mode compatibilité 2003, mais pas en 2007
dés que je l'enregistre en 2007 meme en fichier macro, ça ne marche pas
Voici le code que j'ai trouver sur le net
Sub MasquerLignesVide()
' Macro réalisé par Excel-lent
For i = [A6560].End(xlUp).Row To 5 Step -1
If Application.WorksheetFunction.CountBlank(Range(Cells(i, 2), Cells(i, 5))) = 4 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub
Sub AfficherToutesLesLignes()
' Macro réalisé par Excel-lent
Rows.EntireRow.Hidden = False
End Sub
Merci pour votre aide
j'ai trouver un code VBA sur un site pour masquer les lignes "si"vides sur excel
Le problem c'est que ce code il marche très bien en mode compatibilité 2003, mais pas en 2007
dés que je l'enregistre en 2007 meme en fichier macro, ça ne marche pas
Voici le code que j'ai trouver sur le net
Sub MasquerLignesVide()
' Macro réalisé par Excel-lent
For i = [A6560].End(xlUp).Row To 5 Step -1
If Application.WorksheetFunction.CountBlank(Range(Cells(i, 2), Cells(i, 5))) = 4 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub
Sub AfficherToutesLesLignes()
' Macro réalisé par Excel-lent
Rows.EntireRow.Hidden = False
End Sub
Merci pour votre aide
1 réponse
-
Salut le forum
Je ne vois aucun problème, les deux macros fonctionnent très bien en Excel 2007.
Sinon la déclaration des variables
Sub MasquerLignesVide() Dim i as Long For i = [A6560].End(xlUp).Row To 5 Step -1 If Application.WorksheetFunction.CountBlank(Range(Cells(i, 2), Cells(i, 5))) = 4 Then Rows(i).EntireRow.Hidden = True End If Next i End Sub
Mytå
