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
ilies - 4 oct. 2010 à 21:34
A voir également:
- Macro selection plage
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
3 oct. 2010 à 18:55
3 oct. 2010 à 18:55
Bonjour,
Essaie ce code :
Patrice
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
4 oct. 2010 à 21:34