[Catégorie modifiée VB6 -- VBA] macro de selectionRésolu

Question

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

jordane45 · Accepted Answer

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

iliesss · Answer

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

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

2 réponses

Votre réponse

Discussions similaires