Option "commence par" sous VB
Fermé
scoubi05
Messages postés
4
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
5 juillet 2009
-
5 juil. 2009 à 22:48
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 5 juil. 2009 à 23:10
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 5 juil. 2009 à 23:10
A voir également:
- Option "commence par" sous VB
- Excel commence par ✓ - Forum Bureautique
- Sql commence par ✓ - Forum Webmastering
- Regex ne commence pas par ✓ - Forum PHP
- Cette option de connexion est désactivée - Forum Ordinateur portable
- Numero qui commence par 09 ✓ - Forum Mobile
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 196
5 juil. 2009 à 23:10
5 juil. 2009 à 23:10
Bonjour,
Je suppose que tes numéros de compte sont de type numérique.
Tu peux faire, par exemple, en admettant que les n° de compte sont sur la feuille 1 en colonne A et commence par la ligne 2, que la colonne à recopier et en colonne B :
A toi de l'adapter à ton besoin.
Bon courage
;o)
Je suppose que tes numéros de compte sont de type numérique.
Tu peux faire, par exemple, en admettant que les n° de compte sont sur la feuille 1 en colonne A et commence par la ligne 2, que la colonne à recopier et en colonne B :
Dim lig As Long
Dim ws As Worksheet
Dim ligCpt6 As Long
Dim ligCpt7 As Long
Set Ws = ThisWorkbook.Worksheets(1)
lig = 2
ligCpt6 = 8
ligCpt7 = 8
With ws
While .Range("A" & lig).Value <> ""
If .Range("A" & lig).Value > 60600000 And .Range("A" & lig).Value < 70600000 Then
.Range("V" & ligCpt6).Value = .Range("B" & lig).Value
ligCpt6 = ligCpt6 + 1
End If
If .Range("A" & lig).Value > 70600000 And .Range("A" & lig).Value <80600000 Then
.Range("W" & ligCpt7).Value = .Range("B" & lig).Value
ligCpt7 = ligCpt7 + 1
End If
lig = lig + 1
Wend
End With
A toi de l'adapter à ton besoin.
Bon courage
;o)