Macro pour supprimer des lignes
ST31000
Messages postés
10
Statut
Membre
-
Info -
Info -
Bonjour à toutes et à tous,
J'ai besoin de vous!!
j'ai un fichier avec uniquement la colonne A remplie
je souhaite lancer une macro me permettant de supprimer des cellules de cette colonne
je veux pouvoir séléctionner toutes les cellules à partir d'une cellule dont les 4 premiers caractères sont 1234 et ce jusqu'à une cellule dont l'unique caractère est "-" puis supprimer cette séléction
ex:
A1: ZZZ
A2: 123
A3: xxx
A4: -
je veux donc supprimer les cellule A2 et A3....
avez-vous une idée?
Merci pour votre aide précieuse
A très bientôt j'espère
st31000
J'ai besoin de vous!!
j'ai un fichier avec uniquement la colonne A remplie
je souhaite lancer une macro me permettant de supprimer des cellules de cette colonne
je veux pouvoir séléctionner toutes les cellules à partir d'une cellule dont les 4 premiers caractères sont 1234 et ce jusqu'à une cellule dont l'unique caractère est "-" puis supprimer cette séléction
ex:
A1: ZZZ
A2: 123
A3: xxx
A4: -
je veux donc supprimer les cellule A2 et A3....
avez-vous une idée?
Merci pour votre aide précieuse
A très bientôt j'espère
st31000
A voir également:
- Macro pour supprimer des lignes
- Supprimer rond bleu whatsapp - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Supprimer page word - Guide
- Partager des photos en ligne - Guide
- Supprimer pub youtube - Accueil - Streaming
1 réponse
Bonjour,
Info
Option Explicit
Sub SuppressionCellules()
Dim Boucle As Long, Valeur As Variant
Range("A1").Select
Valeur = Range("A1").Value
While Valeur <> ""
If (InStr(1, Valeur, "1234", vbTextCompare) > 0) Then
ActiveCell.EntireRow.Delete
Valeur = ActiveCell.Value
Else
If (Valeur <> "-") Then
ActiveCell.Offset(1, 0).Select
Valeur = ActiveCell.Value
Else
Exit Sub
End If
End If
Wend
End Sub
Info
