Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

lignes vides

4 réponses
Avatar
pb
Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K sont
vides ?
Merci
Pascal

4 réponses

Avatar
MichDenis
Bonjour Pb,

En adaptant le nom de la feuille,

'---------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("K:K")
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End With
End Sub
'---------------------------------------




"pb" a écrit dans le message de groupe de discussion :

Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K sont
vides ?
Merci
Pascal
Avatar
pb
Avant que je fasse une bourde
il s'agit de supprimer par exemple la Ligne 68 si K68 est vide
"MichDenis" a écrit dans le message de news:

Bonjour Pb,

En adaptant le nom de la feuille,

'---------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("K:K")
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End With
End Sub
'---------------------------------------




"pb" a écrit dans le message de groupe de discussion :

Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K
sont
vides ?
Merci
Pascal




Avatar
MichDenis
le code publié devrait supprimer les lignes entières dont
le contenu des cellules en colonne K:K est totalement vide.



"pb" a écrit dans le message de groupe de discussion :

Avant que je fasse une bourde
il s'agit de supprimer par exemple la Ligne 68 si K68 est vide
"MichDenis" a écrit dans le message de news:

Bonjour Pb,

En adaptant le nom de la feuille,

'---------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("K:K")
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End With
End Sub
'---------------------------------------




"pb" a écrit dans le message de groupe de discussion :

Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K
sont
vides ?
Merci
Pascal




Avatar
pb
Je te remercie

"MichDenis" a écrit dans le message de news:

le code publié devrait supprimer les lignes entières dont
le contenu des cellules en colonne K:K est totalement vide.



"pb" a écrit dans le message de groupe de discussion :

Avant que je fasse une bourde
il s'agit de supprimer par exemple la Ligne 68 si K68 est vide
"MichDenis" a écrit dans le message de news:

Bonjour Pb,

En adaptant le nom de la feuille,

'---------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("K:K")
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End With
End Sub
'---------------------------------------




"pb" a écrit dans le message de groupe de discussion :

Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K
sont
vides ?
Merci
Pascal