Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19340591
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"
Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K sont
vides ?
Merci
Pascal
pb
Le #19340571
Avant que je fasse une bourde
il s'agit de supprimer par exemple la Ligne 68 si K68 est vide
"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"
Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K
sont
vides ?
Merci
Pascal




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



"pb"
Avant que je fasse une bourde
il s'agit de supprimer par exemple la Ligne 68 si K68 est vide
"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"
Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K
sont
vides ?
Merci
Pascal




pb
Le #19340931
Je te remercie

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



"pb"
Avant que je fasse une bourde
il s'agit de supprimer par exemple la Ligne 68 si K68 est vide
"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"
Bonjour,
Comment supprimer toutes les lignes d'un tableau si des cellules en K:K
sont
vides ?
Merci
Pascal







Publicité
Poster une réponse
Anonyme