Macro excel 2003 vers 2007
Résolu
yassina1
Messages postés
132
Date d'inscription
Statut
Membre
Dernière intervention
-
Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 2973 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
A voir également:
- Macro excel 2003 vers 2007
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
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
Mytå
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å