Macro excel 2003 vers 2007

Résolu/Fermé
yassina1 Messages postés 132 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 31 août 2014 - 27 juin 2010 à 20:26
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 28 juin 2010 à 00:58
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
A voir également:

1 réponse

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
Modifié par Mytå le 28/06/2010 à 00:59
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å
0