Recherche V en VBA

vince_nus -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
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


2 réponses

Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
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
0
vince_nus
 
merci j'ai fais les modif
c'est nikel merci
0
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
bien! tu peux mettre en résolu ( en haut du premier post)
bonne journée
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
0