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