Séparation chaine de caractères [Résolu]
laurentsimon
- Messages postés
-
18
- Date d'inscription
- dimanche 20 janvier 2008
- Statut
- Membre
- Dernière intervention
- 12 avril 2008
-
laurentsimon
- Messages postés
-
18
- Date d'inscription
- dimanche 20 janvier 2008
- Statut
- Membre
- Dernière intervention
- 12 avril 2008
-
Bonjour à tous !
J'ai une chaine de caractère composée de variables séparées par un tiret - : 1254-2004 ou 45689-6587...
En fait je souhaite fractionner ces chaines :
var1 = 1254
var2 = 2004
J'ai commencé avec ça, mais... :
Dim Lon, Cpt As Integer
Lon = Len(DesOf)
Cpt = 1
OfOr = ""
OfDest = ""
For Cpt = 1 To Lon + 1
If Right(Left(DesOf, Cpt), 1) = "-" Then
Else
OfOr = OfOr & Right(Left(DesOf, Cpt), 1)
MsgBox OfOr
End If
Cpt = Cpt + 1
Next
Comment faire?
Merci de votre aide...