Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Script qui effacerait toutes les lignes blanches

Script qui effacerait toutes les lignes blanches

4 réponses
Avatar
bert13
Bonjour

J'aimerai savoir si il existe un script qui permet d 'effacer les
lignes blanches entre des lignes complet=E9s ?

Merci de vos reponses
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
jps
bonjour bert
peut-être quelquechose de ce genre :

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

jps

"bert13" a écrit dans le message de
news:
Bonjour

J'aimerai savoir si il existe un script qui permet d 'effacer les
lignes blanches entre des lignes completés ?

Merci de vos reponses
Avatar
bert13
MERCI

ca marche mais cela me mange la 1er cellule apres la ligne efface.

A voir
Avatar
JB
'---- Cellules vides dans la colonne A
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

'---- cellules vides sur toutes les colonnes
For i = [A65000].End(xlUp).Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i

'---- cellules vides sur toutes les colonnes dans le champ
sélectionné
For Each c In Selection
If Application.CountA(Rows(c.Row)) = 0 Then Rows(c.Row).Delete
Next c

'---- Cellules vides dans le champ sélectionné
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Cordialement JB
Avatar
jps
heureusement que J&B (on concatène comme on peut) était là, bert
jps

"bert13" a écrit dans le message de
news:
MERCI

ca marche mais cela me mange la 1er cellule apres la ligne efface.

A voir