Bonjour à tous,
J'aimerai supprimer toutes des lignes à partir de la dernière cellule contenant un "." en Colonne [A] et de la dernière cellule vide en Colonne
Cependant cette suppression doit ce faire de la colonne [A à G] (avec décalage des lignes sur le haut) et de [I à J]
la difficulté est : il se peut donc que la dernière ligne pour la zone [A à G] soit la ligne 10 alors que pour la zone [I à J] c'est la ligne 20
Le code ci dessous correspondrait presque , mais il me supprime toutes les lignes et toutes les colonnes lors de ma dernière cellule contenant "." en colonne A
Sub supp_ligne_zero()
With Range("A3:A" & [A65536].End(xlUp).Row)
.Replace What:=".", Replacement:="", LookAt:=xlWhole
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
je vous joint en PJ un fichier avec un onglet avec l'état avant et l'après souhaité
Si vous avez des idées..
Bonne journée 🙂
J'aimerai supprimer toutes des lignes à partir de la dernière cellule contenant un "." en Colonne [A] et de la dernière cellule vide en Colonne
Cependant cette suppression doit ce faire de la colonne [A à G] (avec décalage des lignes sur le haut) et de [I à J]
la difficulté est : il se peut donc que la dernière ligne pour la zone [A à G] soit la ligne 10 alors que pour la zone [I à J] c'est la ligne 20
Le code ci dessous correspondrait presque , mais il me supprime toutes les lignes et toutes les colonnes lors de ma dernière cellule contenant "." en colonne A
Sub supp_ligne_zero()
With Range("A3:A" & [A65536].End(xlUp).Row)
.Replace What:=".", Replacement:="", LookAt:=xlWhole
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
je vous joint en PJ un fichier avec un onglet avec l'état avant et l'après souhaité
Si vous avez des idées..
Bonne journée 🙂