recherche V en VBA

Question

Bonjour, 

j'ai plusieurs valeur dans la colonne A
pour faire simple, par exemple M21, M22, ...E21, E22
je voudrais via VBA, rechercher dans la colonne A toutes les valeurs qui contiennent un M au début, sélectionner toutes les lignes correspondantes et les supprimer!!
est-ce possible, je suis pas doué pour ce genre de truc !!


merci à tous


Configuration: Windows XP / Internet Explorer 7.0

Bidouilleu_R · Answer

ce code regarde si le premier charactère est un M majuscule
si c'est le cas il supprime la ligne entière.



Sub recherchesupprime()
Dim derlig As Integer
Dim i As Integer
derlig = Range("a65635").End(xlUp).Row

For i = 2 To derlig
    If Left(Range("A" & i).Value, 1) = "M" Then
    ' si la première lettre est un "M"
        Range("A" & i).EntireRow.Delete
        i = i - 1
        derlig = Range("a65635").End(xlUp).Row
     
    End If
    If i > derlig Then Exit For
Next

End Sub

Mike-31 · Answer

Salut,

Tu peux faire plus court

Sub test()
    Dim cell As Range
    Set DataRange = ActiveSheet.Range("A:A")
    For Each cell In DataRange
        If Left$(cell.Value, 1) = "M" Then cell.EntireRow.Delete
    Next
End Sub

Recherche V en VBA

2 réponses

Votre réponse

Discussions similaires

Newsletters