Macro selection plage

Fermé
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014 - 3 oct. 2010 à 18:25
 ilies - 4 oct. 2010 à 21:34
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

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
3 oct. 2010 à 18:55
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
MERCI monsieur patrice de votre réponse je vais la essaye maintenant et merci encore une fois
0