Bonjour à vous tous
Voici mon problème
Je cherche une macro pour supprimer les lignes vides d'une feuille. Dans un
fichier, je peux avoir plusieurs feuilles, alors j'aimerais que la macro
supprime les lignes vides de la feuille active. Est-ce que quelqu'un peut
m'aider?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Vides en colonne A:
On Error Resume Next Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1 If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i
JB http://boisgontierjacques.free.fr/
On 31 août, 15:54, marcus wrote:
Bonjour à vous tous Voici mon problème Je cherche une macro pour supprimer les lignes vides d'une feuille. Dans un fichier, je peux avoir plusieurs feuilles, alors j'aimerais que la macro supprime les lignes vides de la feuille active. Est-ce que quelqu'un peut m'aider?
Merci de votre aide
Marc
Bonjour,
Vides en colonne A:
On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
JB
http://boisgontierjacques.free.fr/
On 31 août, 15:54, marcus <mar...@discussions.microsoft.com> wrote:
Bonjour à vous tous
Voici mon problème
Je cherche une macro pour supprimer les lignes vides d'une feuille. Dans un
fichier, je peux avoir plusieurs feuilles, alors j'aimerais que la macro
supprime les lignes vides de la feuille active. Est-ce que quelqu'un peut
m'aider?
On Error Resume Next Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1 If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i
JB http://boisgontierjacques.free.fr/
On 31 août, 15:54, marcus wrote:
Bonjour à vous tous Voici mon problème Je cherche une macro pour supprimer les lignes vides d'une feuille. Dans un fichier, je peux avoir plusieurs feuilles, alors j'aimerais que la macro supprime les lignes vides de la feuille active. Est-ce que quelqu'un peut m'aider?
Merci de votre aide
Marc
marcus
Bonjour JB Merci de ton aide et bonne journée
Bonjour,
Vides en colonne A:
On Error Resume Next Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1 If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i
JB http://boisgontierjacques.free.fr/
On 31 août, 15:54, marcus wrote:
Bonjour à vous tous Voici mon problème Je cherche une macro pour supprimer les lignes vides d'une feuille. Dans un fichier, je peux avoir plusieurs feuilles, alors j'aimerais que la macro supprime les lignes vides de la feuille active. Est-ce que quelqu'un peut m'aider?
Merci de votre aide
Marc
Bonjour JB
Merci de ton aide et bonne journée
Bonjour,
Vides en colonne A:
On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
JB
http://boisgontierjacques.free.fr/
On 31 août, 15:54, marcus <mar...@discussions.microsoft.com> wrote:
Bonjour à vous tous
Voici mon problème
Je cherche une macro pour supprimer les lignes vides d'une feuille. Dans un
fichier, je peux avoir plusieurs feuilles, alors j'aimerais que la macro
supprime les lignes vides de la feuille active. Est-ce que quelqu'un peut
m'aider?
On Error Resume Next Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1 If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i
JB http://boisgontierjacques.free.fr/
On 31 août, 15:54, marcus wrote:
Bonjour à vous tous Voici mon problème Je cherche une macro pour supprimer les lignes vides d'une feuille. Dans un fichier, je peux avoir plusieurs feuilles, alors j'aimerais que la macro supprime les lignes vides de la feuille active. Est-ce que quelqu'un peut m'aider?
Merci de votre aide
Marc
Gloops
JB a écrit, le 31/08/2007 16:05 :
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1 If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i
Salut,
Juste comme ça histoire de crâner un petit coup, on peut aussi essaye r :
For Each R In UsedRange.Rows If Application.CountA(R) = 0 Then R.Delete Endif Next
Bon, maintenant, je vais aller voir ce que c'est que CountA, car j'avoue que je ne connaissais pas :)
JB a écrit, le 31/08/2007 16:05 :
Vides dans toutes les colonnes:
For i = [A65000].End(xlUp).Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
Salut,
Juste comme ça histoire de crâner un petit coup, on peut aussi essaye r :
For Each R In UsedRange.Rows
If Application.CountA(R) = 0 Then
R.Delete
Endif
Next
Bon, maintenant, je vais aller voir ce que c'est que CountA, car j'avoue
que je ne connaissais pas :)