Suppression de cellules d'une plage
Résolu
balata9
-
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Je souhaite pouvoir supprimer certaines cellules d'une plage de données et que les cellules situées en dessous remontent automatiquement pour reformer une plage de cellule continue.
Quelqu'un pourrait m'aider? Merci d'avance
Balata9
Je souhaite pouvoir supprimer certaines cellules d'une plage de données et que les cellules situées en dessous remontent automatiquement pour reformer une plage de cellule continue.
Quelqu'un pourrait m'aider? Merci d'avance
Balata9
A voir également:
- Suppression de cellules d'une plage
- Forcer suppression fichier - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Suppression compte gmail - Guide
- Image de manchots sur une image de plage - Forum Musique / Radio / Clip
4 réponses
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
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