Supprimer les lignes vidse d'un tableau par macro
ced5757
Messages postés
40
Statut
Membre
-
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,
je cherche a supprimer les lignes vides d'un tableau en passant par un macro.
seulement les manipulation que je peux faire d'habitude ne marche pas
merci d'avance
je cherche a supprimer les lignes vides d'un tableau en passant par un macro.
seulement les manipulation que je peux faire d'habitude ne marche pas
merci d'avance
A voir également:
- Supprimer les lignes vidse d'un tableau par macro
- Supprimer rond bleu whatsapp - Guide
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Supprimer page word - Guide
9 réponses
Salut,
Exemple tu veux supprimer les lignes dont les cellules de la colonne A sont vides, tu peux utiliser cette ligne de code
Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Exemple tu veux supprimer les lignes dont les cellules de la colonne A sont vides, tu peux utiliser cette ligne de code
Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
merci mike tu m'as beaucoup aidé aujourd'hui je vais en profite pour poser une autre question en même temps
j'ai un nom dans une cellule et je voudrais faire une macro qui recherche ce nom dans une colonne d'un tableau
c'est comme si j'utilise le filtre de ma colonne pour rechercher le nom sauf que je prend le nom que je recherche dans un cellule en dehors du tableau
comment faire ? car pour le moment j'arrive a faire la recherche par macro sauf que si le nom change dans ma cellule il n'en tien pas compte
j'ai un nom dans une cellule et je voudrais faire une macro qui recherche ce nom dans une colonne d'un tableau
c'est comme si j'utilise le filtre de ma colonne pour rechercher le nom sauf que je prend le nom que je recherche dans un cellule en dehors du tableau
comment faire ? car pour le moment j'arrive a faire la recherche par macro sauf que si le nom change dans ma cellule il n'en tien pas compte
Re,
Tu peux réexpliquer ça, tu as un nom dans une cellule exemple titi dans A2
et tu veux sélectionner ou l'adresse de la cellule qui contient ce mot titi dans la colonne D par exemple, c'est cela
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Tu peux réexpliquer ça, tu as un nom dans une cellule exemple titi dans A2
et tu veux sélectionner ou l'adresse de la cellule qui contient ce mot titi dans la colonne D par exemple, c'est cela
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Re,
voila
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 4) Like "titi" Then Rows(i).Delete
Next
tu peux également faire référence à une cellule contenant le critère exemple la cellule A1
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 4) Like [A1] Then Rows(i).Delete
Next
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
voila
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 4) Like "titi" Then Rows(i).Delete
Next
tu peux également faire référence à une cellule contenant le critère exemple la cellule A1
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 4) Like [A1] Then Rows(i).Delete
Next
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
c'est parfait mais cela ne marche pas si je mets ma cellule a la place de titi car le nom dans la cellule va changer régulièrement
il faudrait juste que je puisse mettre ma cellule a la place de titi
j'ai fait ceci mais ca ne marche pas
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 4) Like "B11" Then Rows(i).Delete
Next
il faudrait juste que je puisse mettre ma cellule a la place de titi
j'ai fait ceci mais ca ne marche pas
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 4) Like "B11" Then Rows(i).Delete
Next
Re,
dans mon post précédent tu as les deux propositions, soit tu saisis le nom dans le code ou tu fais référence à une cellule dans mon exemple la cellule A1
dans mon post précédent tu as les deux propositions, soit tu saisis le nom dans le code ou tu fais référence à une cellule dans mon exemple la cellule A1
arf je n'ai vus que la moitié de message... mes yeux ne sont plus très performant apparemment.
je pense que ca devrait beaucoup mieux marcher
je pense que ca devrait beaucoup mieux marcher