Supprimer lignes dans fichier excel
Fermé
danila
Messages postés
27
Date d'inscription
lundi 25 février 2008
Statut
Membre
Dernière intervention
2 décembre 2011
-
18 févr. 2009 à 07:20
hich24 Messages postés 1609 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 17 janvier 2023 - 18 févr. 2009 à 12:24
hich24 Messages postés 1609 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 17 janvier 2023 - 18 févr. 2009 à 12:24
A voir également:
- Supprimer lignes dans fichier excel
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Supprimer une page word - Guide
- Formule excel - Guide
5 réponses
Fanadi
Messages postés
59
Date d'inscription
mardi 10 février 2009
Statut
Membre
Dernière intervention
4 juin 2009
30
18 févr. 2009 à 08:45
18 févr. 2009 à 08:45
« Sélectionner tout » puis clic « trier de A à Z »
Fanadi
Messages postés
59
Date d'inscription
mardi 10 février 2009
Statut
Membre
Dernière intervention
4 juin 2009
30
18 févr. 2009 à 08:50
18 févr. 2009 à 08:50
Ps: Mais, si t’as des formules à chaque ligne, tu sélectionnes avec la souris la première ligne jusqu’au dernier, et tu clic « trier de A à Z » pour que tu ne perdras pas tes formules
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
18 févr. 2009 à 08:52
18 févr. 2009 à 08:52
Bonjour
en se basant sur la colonne A:supprime la ligne vide
Dim derlig As Long
derlig = Range("A65536").End(xlUp).Row
Range("A1:A" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
en se basant sur la colonne A:supprime la ligne vide
Dim derlig As Long
derlig = Range("A65536").End(xlUp).Row
Range("A1:A" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
hich24
Messages postés
1609
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
17 janvier 2023
748
18 févr. 2009 à 09:40
18 févr. 2009 à 09:40
Sub supp()
Dim Cel_vide As Range
Dim ad_cel As Integer
For Each Cel_vide In Range('A1:A21000')
If Cel_vide.Value = '' Then
ad_cel = Cel_vide.Row
Rows(ad_cel).Delete
End If
Next Cel_vide
End Sub
ca vien de ce site : https://www.excel-downloads.com/threads/supprimer-une-ligne-si-une-cellule-est-vide.52934/
Dim Cel_vide As Range
Dim ad_cel As Integer
For Each Cel_vide In Range('A1:A21000')
If Cel_vide.Value = '' Then
ad_cel = Cel_vide.Row
Rows(ad_cel).Delete
End If
Next Cel_vide
End Sub
ca vien de ce site : https://www.excel-downloads.com/threads/supprimer-une-ligne-si-une-cellule-est-vide.52934/
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
18 févr. 2009 à 10:27
18 févr. 2009 à 10:27
Bonjour,
C'est pas nécessaire de faire de la pub pour d'autre site alors que la solution donnée par Michel_m est beaucoup mieux adaptée.
A+
C'est pas nécessaire de faire de la pub pour d'autre site alors que la solution donnée par Michel_m est beaucoup mieux adaptée.
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hich24
Messages postés
1609
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
17 janvier 2023
748
18 févr. 2009 à 12:24
18 févr. 2009 à 12:24
desolé , je vouler seulment mettre la source ( pour garantire un peut les droit intelectuelle )