Suppression de cellules d'une plage
Résolu/Fermé
balata9
-
11 juin 2010 à 18:25
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 - 14 juin 2010 à 16:46
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 - 14 juin 2010 à 16:46
A voir également:
- Suppression de cellules d'une plage
- Forcer suppression fichier - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Suppression page word - Guide
4 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 418
11 juin 2010 à 18:26
11 juin 2010 à 18:26
Bonjour
clic droit sur les cellules, supprimer, décaler les cellules vers le haut;
crdlmnt
clic droit sur les cellules, supprimer, décaler les cellules vers le haut;
crdlmnt
Mike-31
Messages postés
18351
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 décembre 2024
5 110
Modifié par Mike-31 le 11/06/2010 à 22:01
Modifié par Mike-31 le 11/06/2010 à 22:01
Salut,
Ou en VBA si tu as quelques notions, ce code teste la colonne A, si cellules vide, alors ligne supprimée
Sub supprimeLignesVides()
Dim lig, cpt
Application.ScreenUpdating = False
lig = Range("A65000").End(xlUp).Row
For cpt = lig To 1 Step -1
If Range("A" & cpt) = "" Then
Range("A" & cpt).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
ou plus simplement si on connait les limite du tableau exemple de la ligne 2 à la ligne 100
Sub supprimeLignesVides()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Range("A" & i).Value = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Ou en VBA si tu as quelques notions, ce code teste la colonne A, si cellules vide, alors ligne supprimée
Sub supprimeLignesVides()
Dim lig, cpt
Application.ScreenUpdating = False
lig = Range("A65000").End(xlUp).Row
For cpt = lig To 1 Step -1
If Range("A" & cpt) = "" Then
Range("A" & cpt).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
ou plus simplement si on connait les limite du tableau exemple de la ligne 2 à la ligne 100
Sub supprimeLignesVides()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Range("A" & i).Value = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Merci beaucoup pour ta réponse Mike-31, cependant je n'ai pas beaucoup de notions en VBA. J'ai copier tes deux codes dans un classeur vierge mais je n'arrive pas à les faire fonctionner. Est ce qu'il y a quelque chose à changer? Merci pour ton aide,
Balata 9
Balata 9
Mike-31
Messages postés
18351
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 décembre 2024
5 110
14 juin 2010 à 16:46
14 juin 2010 à 16:46
Re,
Ci joint un fichier joint, si tu actives un des deux boutons la plage en jaune qui est vide sera supprimée
https://www.cjoint.com/?goqSYk3yRf
Ci joint un fichier joint, si tu actives un des deux boutons la plage en jaune qui est vide sera supprimée
https://www.cjoint.com/?goqSYk3yRf