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

Messages postés
113
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
26 octobre 2014
- - Dernière réponse : iliesss
Messages postés
113
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
26 octobre 2014
- 4 oct. 2010 à 21:38
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
26809
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 novembre 2019
317
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 223 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jordane45
Messages postés
113
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
26 octobre 2014
0
Merci
merci monsieur jordane de ta réponse je vais la essayé maintenant et merci encore une fois
Commenter la réponse de iliesss