Macro selection plage

iliesss Messages postés 120 Statut Membre -  
 ilies -
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
A voir également:

1 réponse

Patrice33740 Messages postés 8931 Date d'inscription   Statut Membre Dernière intervention   1 782
 
Bonjour,

Essaie ce code :

Sub test()
Dim rng As Range
Dim cel As Range
Dim dst As Range

  Set rng = Range("A1:A20")  'Zone à vérifier
  Set dst = Range("C1")      'destination
  For Each cel In rng.Cells
    If Left(Format(cel.Value, "@"), 2) = "25" Then
      dst.Value = cel.Value
      Set dst = dst.Offset(1)
    End If
  Next cel

End Sub

Patrice
0
ilies
 
MERCI monsieur patrice de votre réponse je vais la essaye maintenant et merci encore une fois
0