Macro excel 2003 vers 2007 Résolu/Fermé

Question

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
Configuration: Windows XP / Internet Explorer 7.0

Mytå · Answer

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å

Macro excel 2003 vers 2007

1 réponse

Discussions similaires