Macro pour supprimer des lignes

Question

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


Configuration: Windows 7 / Internet Explorer 8.0

Info · Answer

Bonjour,

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

Macro pour supprimer des lignes

1 réponse

Discussions similaires

Newsletters