[Catégorie modifiée VB6 --> VBA] macro de selection [Résolu]

Signaler
Messages postés
113
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
26 octobre 2014
-
Messages postés
113
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
26 octobre 2014
-
Bonjour,

j'ai une plage excel exemple a1:a20 cette plage contienne des chiffres(2514-2574-2595-2684-6584-321-3654-8547-5241-3596) je veux une macro qui sélectionne les chiffres qui commence par 25 et les metre dans une autre plage
merci

2 réponses

Messages postés
28930
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
29 mai 2020
328
Bonjour,
je te propose le code suivant :

Sub Select25()
' Plage de déstination (b1:b20 par exemple)
Dim i As Integer ' sert pour le N° de ligne de la plage de desti
    i = 1
' Definition de la plage à traiter
Dim Plage_a_traiter As Range
Set Plage_a_traiter = Range("A1:A20")

'Boucle sur chaque cellule de la plage
For Each cell In Plage_a_traiter
    If Left(cell.Value, 2) = 25 Then 'On regarde si commence par 25
        Cells(i, "B").Value = cell.Value 'recopie dans l'autre plage
        i = i + 1 'on incrémente le nombre de ligne de la plage de desti.
     End If
Next


End Sub



Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
Messages postés
113
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
26 octobre 2014

merci monsieur jordane de ta réponse je vais la essayé maintenant et merci encore une fois