Recherche V en VBA
Fermé
vince_nus
-
5 mai 2011 à 16:43
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 9 mai 2011 à 09:55
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 9 mai 2011 à 09:55
A voir également:
- Recherche V en VBA
- Recherche musique - Guide
- Google recherche par image - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche adresse - Guide
- Hyper v download - Télécharger - Divers Utilitaires
2 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
6 mai 2011 à 11:43
6 mai 2011 à 11:43
ce code regarde si le premier charactère est un M majuscule
si c'est le cas il supprime la ligne entière.
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
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
9 mai 2011 à 09:55
9 mai 2011 à 09:55
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
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
6 mai 2011 à 20:37
c'est nikel merci
9 mai 2011 à 08:32
bonne journée