bonjour
oui n effet je ne veux garder que ce qui est numerique
de 0 a 9
du genre si c'est 0 tu laisses si c'est 1 tu laisses etc etc
pour le moment j'emploie REPLACE
mais c'est fastidieux le champ qui est assez long peux contenir +-200
, je voudrais si c'est possible nettoyer tout en un clic
merci
bonjour
oui n effet je ne veux garder que ce qui est numerique
de 0 a 9
du genre si c'est 0 tu laisses si c'est 1 tu laisses etc etc
pour le moment j'emploie REPLACE
mais c'est fastidieux le champ qui est assez long peux contenir +-200
, je voudrais si c'est possible nettoyer tout en un clic
merci
bonjour
oui n effet je ne veux garder que ce qui est numerique
de 0 a 9
du genre si c'est 0 tu laisses si c'est 1 tu laisses etc etc
pour le moment j'emploie REPLACE
mais c'est fastidieux le champ qui est assez long peux contenir +-200
, je voudrais si c'est possible nettoyer tout en un clic
merci
"lou" a écrit dans le message de
news:4330f740$0$10952$
> bonjour
> oui n effet je ne veux garder que ce qui est numerique
> de 0 a 9
> du genre si c'est 0 tu laisses si c'est 1 tu laisses etc etc
> pour le moment j'emploie REPLACE
> mais c'est fastidieux le champ qui est assez long peux contenir +-200
mots
> , je voudrais si c'est possible nettoyer tout en un clic
> merci
>
Hello Lou,
Essayer le code suivant qui va chercher le "mot" qui suit un mot clé dans
une chaine
Coller le code dans un form avec un bouton de commande "command1"
'Définir un variable utilisateur pour stocker les pesées
Private Type tPesee
NumPesee As Long
Brut As Long
Tare As Long
Net As Long
End Type
Private Sub Command2_Click()
Dim ChaineLue As String
Dim Pesee As tPesee
'Remplacer avec la chaine lue de la balance
ChaineLue = " NUMERO PESEE 00000001 BRUT 1326 kg TARE 0 kg
1326 kgTD"
With Pesee
.NumPesee = ParseChaine(ChaineLue, "NUMERO PESEE")
.Net = ParseChaine(ChaineLue, "NET")
.Brut = ParseChaine(ChaineLue, "BRUT")
.Tare = ParseChaine(ChaineLue, "TARE")
End With
End Sub
Public Function ParseChaine(Chaine As String, Clef As String)
Dim TempArray As Variant
Dim cTemp As String
Dim iTemp As Integer
'couper la chaine au mot clé
TempArray = Split(Chaine, Clef)
'Enelver les espaces en trop au début et à la fin
TempArray(1) = Trim$(TempArray(1))
'trouver l'emplacement de la prochaine espace
iTemp = InStr(1, TempArray(1), " ")
'extraire le premier "mot" de la chaine
cTemp = Left$(TempArray(1), iTemp)
'convertir en numérique et retourner sa valeur
ParseChaine = Val(cTemp)
End Function
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:4330f740$0$10952$ba620e4c@news.skynet.be...
> bonjour
> oui n effet je ne veux garder que ce qui est numerique
> de 0 a 9
> du genre si c'est 0 tu laisses si c'est 1 tu laisses etc etc
> pour le moment j'emploie REPLACE
> mais c'est fastidieux le champ qui est assez long peux contenir +-200
mots
> , je voudrais si c'est possible nettoyer tout en un clic
> merci
>
Hello Lou,
Essayer le code suivant qui va chercher le "mot" qui suit un mot clé dans
une chaine
Coller le code dans un form avec un bouton de commande "command1"
'Définir un variable utilisateur pour stocker les pesées
Private Type tPesee
NumPesee As Long
Brut As Long
Tare As Long
Net As Long
End Type
Private Sub Command2_Click()
Dim ChaineLue As String
Dim Pesee As tPesee
'Remplacer avec la chaine lue de la balance
ChaineLue = " NUMERO PESEE 00000001 BRUT 1326 kg TARE 0 kg
1326 kgTD"
With Pesee
.NumPesee = ParseChaine(ChaineLue, "NUMERO PESEE")
.Net = ParseChaine(ChaineLue, "NET")
.Brut = ParseChaine(ChaineLue, "BRUT")
.Tare = ParseChaine(ChaineLue, "TARE")
End With
End Sub
Public Function ParseChaine(Chaine As String, Clef As String)
Dim TempArray As Variant
Dim cTemp As String
Dim iTemp As Integer
'couper la chaine au mot clé
TempArray = Split(Chaine, Clef)
'Enelver les espaces en trop au début et à la fin
TempArray(1) = Trim$(TempArray(1))
'trouver l'emplacement de la prochaine espace
iTemp = InStr(1, TempArray(1), " ")
'extraire le premier "mot" de la chaine
cTemp = Left$(TempArray(1), iTemp)
'convertir en numérique et retourner sa valeur
ParseChaine = Val(cTemp)
End Function
"lou" a écrit dans le message de
news:4330f740$0$10952$
> bonjour
> oui n effet je ne veux garder que ce qui est numerique
> de 0 a 9
> du genre si c'est 0 tu laisses si c'est 1 tu laisses etc etc
> pour le moment j'emploie REPLACE
> mais c'est fastidieux le champ qui est assez long peux contenir +-200
mots
> , je voudrais si c'est possible nettoyer tout en un clic
> merci
>
Hello Lou,
Essayer le code suivant qui va chercher le "mot" qui suit un mot clé dans
une chaine
Coller le code dans un form avec un bouton de commande "command1"
'Définir un variable utilisateur pour stocker les pesées
Private Type tPesee
NumPesee As Long
Brut As Long
Tare As Long
Net As Long
End Type
Private Sub Command2_Click()
Dim ChaineLue As String
Dim Pesee As tPesee
'Remplacer avec la chaine lue de la balance
ChaineLue = " NUMERO PESEE 00000001 BRUT 1326 kg TARE 0 kg
1326 kgTD"
With Pesee
.NumPesee = ParseChaine(ChaineLue, "NUMERO PESEE")
.Net = ParseChaine(ChaineLue, "NET")
.Brut = ParseChaine(ChaineLue, "BRUT")
.Tare = ParseChaine(ChaineLue, "TARE")
End With
End Sub
Public Function ParseChaine(Chaine As String, Clef As String)
Dim TempArray As Variant
Dim cTemp As String
Dim iTemp As Integer
'couper la chaine au mot clé
TempArray = Split(Chaine, Clef)
'Enelver les espaces en trop au début et à la fin
TempArray(1) = Trim$(TempArray(1))
'trouver l'emplacement de la prochaine espace
iTemp = InStr(1, TempArray(1), " ")
'extraire le premier "mot" de la chaine
cTemp = Left$(TempArray(1), iTemp)
'convertir en numérique et retourner sa valeur
ParseChaine = Val(cTemp)
End Function
un grand merci a tous
fred décidement c'est ta foncion qui est la plus interessante dans mon
mais comment envoyer dans un champ disons(test)
les numeriques qui sont extrait en se suivant et avec un espace ex: 123
2564 39 4571
un grand merci a tous
fred décidement c'est ta foncion qui est la plus interessante dans mon
mais comment envoyer dans un champ disons(test)
les numeriques qui sont extrait en se suivant et avec un espace ex: 123
2564 39 4571
un grand merci a tous
fred décidement c'est ta foncion qui est la plus interessante dans mon
mais comment envoyer dans un champ disons(test)
les numeriques qui sont extrait en se suivant et avec un espace ex: 123
2564 39 4571
"lou" a écrit dans le message de
news:433115a1$0$17773$
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text > NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:433115a1$0$17773$ba620e4c@news.skynet.be...
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text > NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
"lou" a écrit dans le message de
news:433115a1$0$17773$
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text > NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
yes!!!
merci
"Clive Lumb" a écrit dans le
message
de news:
"lou" a écrit dans le message de
news:433115a1$0$17773$
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
123> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par
une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text >> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
yes!!!
merci
"Clive Lumb" <clumb2@gratuit_en_anglais.fr.invalid> a écrit dans le
message
de news: O4JnyjovFHA.1392@tk2msftngp13.phx.gbl...
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:433115a1$0$17773$ba620e4c@news.skynet.be...
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
123
> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par
une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text >> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
yes!!!
merci
"Clive Lumb" a écrit dans le
message
de news:
"lou" a écrit dans le message de
news:433115a1$0$17773$
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
123> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par
une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text >> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
allez je te remets ma fonction en ajoutant un espace entre chaque chiffre
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
NouvChaine = NouvChaine = " " & Car
Case Else
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
Et tu utilises
MonTexteBox.Text = ExtraitNum(ChaineReçue)
Driss
"lou" a écrit dans le message de news:
43315647$0$29288$yes!!!
merci
"Clive Lumb" a écrit dans le
message
de news:
"lou" a écrit dans le message de
news:433115a1$0$17773$
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans
> mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
123> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par
une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
allez je te remets ma fonction en ajoutant un espace entre chaque chiffre
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
NouvChaine = NouvChaine = " " & Car
Case Else
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
Et tu utilises
MonTexteBox.Text = ExtraitNum(ChaineReçue)
Driss
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
43315647$0$29288$ba620e4c@news.skynet.be...
yes!!!
merci
"Clive Lumb" <clumb2@gratuit_en_anglais.fr.invalid> a écrit dans le
message
de news: O4JnyjovFHA.1392@tk2msftngp13.phx.gbl...
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:433115a1$0$17773$ba620e4c@news.skynet.be...
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans
> mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
123
> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par
une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
allez je te remets ma fonction en ajoutant un espace entre chaque chiffre
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
NouvChaine = NouvChaine = " " & Car
Case Else
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
Et tu utilises
MonTexteBox.Text = ExtraitNum(ChaineReçue)
Driss
"lou" a écrit dans le message de news:
43315647$0$29288$yes!!!
merci
"Clive Lumb" a écrit dans le
message
de news:
"lou" a écrit dans le message de
news:433115a1$0$17773$
> un grand merci a tous
>
> fred décidement c'est ta foncion qui est la plus interessante dans
> mon
cas
>
> mais comment envoyer dans un champ disons(test)
> les numeriques qui sont extrait en se suivant et avec un espace ex:
123> 2564 39 4571
>
Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
un
label un on utilise ".label"
Mais il convient de reconvertir les numéros en chaine pour les
accoller/mettre dans le "champ".
En prenant l'example de Fred:
.....
For i = LBound(a) To UBound(a)
MsgBox a(i)
Next
.....
Devient:
'Vider le textbox
NomDeTonFormulaire.NomDeTonTextBox.Text =""
For i = LBound(a) To UBound(a)
'Ajouter la représentation chaine de chaque numéro, suivie par
une
espace.
NomDeTonFormulaire.NomDeTonTextBox.Text >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
Next
Clive
Cela ne change rien puisque qu'on remplace chaque chiffre par espace &
chiffre
Voici comment il faudrait faire (je suppose bien entendu qu'il n'y a que
nombres entiers positifs)
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
Dim Ecriturenombre as boolean
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
If Not EcritureNombre then NouvChaine=NouveChaine & " "
NouvChaine = NouvChaine & Car
EcritureNombre=true
Case Else
EcritureNombreúlse
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
"driss hanib" a écrit dans le message de news:
> allez je te remets ma fonction en ajoutant un espace entre chaque
>
> Function ExtraitNum(MaChaine As String) As String
> Dim Car As String
> Dim NouvChaine As String
> NouvChaine = vbNullString
> For I = 1 To Len(MaChaine)
> ' extraction de chaque caractère
> Car = Mid$(MaChaine, I, 1)
> Select Case Asc(Car)
> Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
> chiffres de 0 à 9
> NouvChaine = NouvChaine = " " & Car
> Case Else
> End Select
> Next
> ' on enlève ensuite les espaces extérieur
> NouvChaine = trim$(NouvChaine)
>
> ExtraitNum = NouvChaine
> End Function
>
> Et tu utilises
> MonTexteBox.Text = ExtraitNum(ChaineReçue)
>
> Driss
>
> "lou" a écrit dans le message de news:
> 43315647$0$29288$
>> yes!!!
>> merci
>>
>> "Clive Lumb" a écrit dans le
>> message
>> de news:
>>>
>>> "lou" a écrit dans le message de
>>> news:433115a1$0$17773$
>>> > un grand merci a tous
>>> >
>>> > fred décidement c'est ta foncion qui est la plus interessante dans
>>> > mon
>>> cas
>>> >
>>> > mais comment envoyer dans un champ disons(test)
>>> > les numeriques qui sont extrait en se suivant et avec un espace ex:
>> 123
>>> > 2564 39 4571
>>> >
>>> Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
>>> un
>>> label un on utilise ".label"
>>> Mais il convient de reconvertir les numéros en chaine pour les
>>> accoller/mettre dans le "champ".
>>>
>>> En prenant l'example de Fred:
>>> .....
>>> For i = LBound(a) To UBound(a)
>>> MsgBox a(i)
>>> Next
>>> .....
>>>
>>> Devient:
>>> 'Vider le textbox
>>> NomDeTonFormulaire.NomDeTonTextBox.Text =""
>>> For i = LBound(a) To UBound(a)
>>> 'Ajouter la représentation chaine de chaque numéro, suivie par
>>> une
>>> espace.
>>> NomDeTonFormulaire.NomDeTonTextBox.Text > >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
>>> Next
>>>
>>>
>>> Clive
>>>
>>>
>>
>>
>
>
Cela ne change rien puisque qu'on remplace chaque chiffre par espace &
chiffre
Voici comment il faudrait faire (je suppose bien entendu qu'il n'y a que
nombres entiers positifs)
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
Dim Ecriturenombre as boolean
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
If Not EcritureNombre then NouvChaine=NouveChaine & " "
NouvChaine = NouvChaine & Car
EcritureNombre=true
Case Else
EcritureNombreúlse
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
"driss hanib" <dhanib@club-internet.fr> a écrit dans le message de news:
e2guB0qvFHA.2064@TK2MSFTNGP09.phx.gbl...
> allez je te remets ma fonction en ajoutant un espace entre chaque
>
> Function ExtraitNum(MaChaine As String) As String
> Dim Car As String
> Dim NouvChaine As String
> NouvChaine = vbNullString
> For I = 1 To Len(MaChaine)
> ' extraction de chaque caractère
> Car = Mid$(MaChaine, I, 1)
> Select Case Asc(Car)
> Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
> chiffres de 0 à 9
> NouvChaine = NouvChaine = " " & Car
> Case Else
> End Select
> Next
> ' on enlève ensuite les espaces extérieur
> NouvChaine = trim$(NouvChaine)
>
> ExtraitNum = NouvChaine
> End Function
>
> Et tu utilises
> MonTexteBox.Text = ExtraitNum(ChaineReçue)
>
> Driss
>
> "lou" <colluluigi@skynet.be> a écrit dans le message de news:
> 43315647$0$29288$ba620e4c@news.skynet.be...
>> yes!!!
>> merci
>>
>> "Clive Lumb" <clumb2@gratuit_en_anglais.fr.invalid> a écrit dans le
>> message
>> de news: O4JnyjovFHA.1392@tk2msftngp13.phx.gbl...
>>>
>>> "lou" <colluluigi@skynet.be> a écrit dans le message de
>>> news:433115a1$0$17773$ba620e4c@news.skynet.be...
>>> > un grand merci a tous
>>> >
>>> > fred décidement c'est ta foncion qui est la plus interessante dans
>>> > mon
>>> cas
>>> >
>>> > mais comment envoyer dans un champ disons(test)
>>> > les numeriques qui sont extrait en se suivant et avec un espace ex:
>> 123
>>> > 2564 39 4571
>>> >
>>> Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
>>> un
>>> label un on utilise ".label"
>>> Mais il convient de reconvertir les numéros en chaine pour les
>>> accoller/mettre dans le "champ".
>>>
>>> En prenant l'example de Fred:
>>> .....
>>> For i = LBound(a) To UBound(a)
>>> MsgBox a(i)
>>> Next
>>> .....
>>>
>>> Devient:
>>> 'Vider le textbox
>>> NomDeTonFormulaire.NomDeTonTextBox.Text =""
>>> For i = LBound(a) To UBound(a)
>>> 'Ajouter la représentation chaine de chaque numéro, suivie par
>>> une
>>> espace.
>>> NomDeTonFormulaire.NomDeTonTextBox.Text > >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
>>> Next
>>>
>>>
>>> Clive
>>>
>>>
>>
>>
>
>
Cela ne change rien puisque qu'on remplace chaque chiffre par espace &
chiffre
Voici comment il faudrait faire (je suppose bien entendu qu'il n'y a que
nombres entiers positifs)
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
Dim Ecriturenombre as boolean
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
If Not EcritureNombre then NouvChaine=NouveChaine & " "
NouvChaine = NouvChaine & Car
EcritureNombre=true
Case Else
EcritureNombreúlse
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
"driss hanib" a écrit dans le message de news:
> allez je te remets ma fonction en ajoutant un espace entre chaque
>
> Function ExtraitNum(MaChaine As String) As String
> Dim Car As String
> Dim NouvChaine As String
> NouvChaine = vbNullString
> For I = 1 To Len(MaChaine)
> ' extraction de chaque caractère
> Car = Mid$(MaChaine, I, 1)
> Select Case Asc(Car)
> Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
> chiffres de 0 à 9
> NouvChaine = NouvChaine = " " & Car
> Case Else
> End Select
> Next
> ' on enlève ensuite les espaces extérieur
> NouvChaine = trim$(NouvChaine)
>
> ExtraitNum = NouvChaine
> End Function
>
> Et tu utilises
> MonTexteBox.Text = ExtraitNum(ChaineReçue)
>
> Driss
>
> "lou" a écrit dans le message de news:
> 43315647$0$29288$
>> yes!!!
>> merci
>>
>> "Clive Lumb" a écrit dans le
>> message
>> de news:
>>>
>>> "lou" a écrit dans le message de
>>> news:433115a1$0$17773$
>>> > un grand merci a tous
>>> >
>>> > fred décidement c'est ta foncion qui est la plus interessante dans
>>> > mon
>>> cas
>>> >
>>> > mais comment envoyer dans un champ disons(test)
>>> > les numeriques qui sont extrait en se suivant et avec un espace ex:
>> 123
>>> > 2564 39 4571
>>> >
>>> Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
>>> un
>>> label un on utilise ".label"
>>> Mais il convient de reconvertir les numéros en chaine pour les
>>> accoller/mettre dans le "champ".
>>>
>>> En prenant l'example de Fred:
>>> .....
>>> For i = LBound(a) To UBound(a)
>>> MsgBox a(i)
>>> Next
>>> .....
>>>
>>> Devient:
>>> 'Vider le textbox
>>> NomDeTonFormulaire.NomDeTonTextBox.Text =""
>>> For i = LBound(a) To UBound(a)
>>> 'Ajouter la représentation chaine de chaque numéro, suivie par
>>> une
>>> espace.
>>> NomDeTonFormulaire.NomDeTonTextBox.Text > >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
>>> Next
>>>
>>>
>>> Clive
>>>
>>>
>>
>>
>
>
"lou" a écrit dans le message de
news:433115a1$0$17773$un grand merci a tous
fred décidement c'est ta foncion qui est la plus interessante dans
mon cas
mais comment envoyer dans un champ disons(test)
les numeriques qui sont extrait en se suivant et avec un espace ex:
123 2564 39 4571
Si le "champ" est un textbox on utilise la propriéte ".Text". Si
c'est un label un on utilise ".label"
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:433115a1$0$17773$ba620e4c@news.skynet.be...
un grand merci a tous
fred décidement c'est ta foncion qui est la plus interessante dans
mon cas
mais comment envoyer dans un champ disons(test)
les numeriques qui sont extrait en se suivant et avec un espace ex:
123 2564 39 4571
Si le "champ" est un textbox on utilise la propriéte ".Text". Si
c'est un label un on utilise ".label"
"lou" a écrit dans le message de
news:433115a1$0$17773$un grand merci a tous
fred décidement c'est ta foncion qui est la plus interessante dans
mon cas
mais comment envoyer dans un champ disons(test)
les numeriques qui sont extrait en se suivant et avec un espace ex:
123 2564 39 4571
Si le "champ" est un textbox on utilise la propriéte ".Text". Si
c'est un label un on utilise ".label"
Cela ne change rien puisque qu'on remplace chaque chiffre par espace &
chiffre
Voici comment il faudrait faire (je suppose bien entendu qu'il n'y a que
nombres entiers positifs)
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
Dim Ecriturenombre as boolean
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
If Not EcritureNombre then NouvChaine=NouveChaine & " "
NouvChaine = NouvChaine & Car
EcritureNombre=true
Case Else
EcritureNombreúlse
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
"driss hanib" a écrit dans le message de news:
> allez je te remets ma fonction en ajoutant un espace entre chaque
>
> Function ExtraitNum(MaChaine As String) As String
> Dim Car As String
> Dim NouvChaine As String
> NouvChaine = vbNullString
> For I = 1 To Len(MaChaine)
> ' extraction de chaque caractère
> Car = Mid$(MaChaine, I, 1)
> Select Case Asc(Car)
> Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
> chiffres de 0 à 9
> NouvChaine = NouvChaine = " " & Car
> Case Else
> End Select
> Next
> ' on enlève ensuite les espaces extérieur
> NouvChaine = trim$(NouvChaine)
>
> ExtraitNum = NouvChaine
> End Function
>
> Et tu utilises
> MonTexteBox.Text = ExtraitNum(ChaineReçue)
>
> Driss
>
> "lou" a écrit dans le message de news:
> 43315647$0$29288$
>> yes!!!
>> merci
>>
>> "Clive Lumb" a écrit dans le
>> message
>> de news:
>>>
>>> "lou" a écrit dans le message de
>>> news:433115a1$0$17773$
>>> > un grand merci a tous
>>> >
>>> > fred décidement c'est ta foncion qui est la plus interessante dans
>>> > mon
>>> cas
>>> >
>>> > mais comment envoyer dans un champ disons(test)
>>> > les numeriques qui sont extrait en se suivant et avec un espace ex:
>> 123
>>> > 2564 39 4571
>>> >
>>> Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
>>> un
>>> label un on utilise ".label"
>>> Mais il convient de reconvertir les numéros en chaine pour les
>>> accoller/mettre dans le "champ".
>>>
>>> En prenant l'example de Fred:
>>> .....
>>> For i = LBound(a) To UBound(a)
>>> MsgBox a(i)
>>> Next
>>> .....
>>>
>>> Devient:
>>> 'Vider le textbox
>>> NomDeTonFormulaire.NomDeTonTextBox.Text =""
>>> For i = LBound(a) To UBound(a)
>>> 'Ajouter la représentation chaine de chaque numéro, suivie par
>>> une
>>> espace.
>>> NomDeTonFormulaire.NomDeTonTextBox.Text > >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
>>> Next
>>>
>>>
>>> Clive
>>>
>>>
>>
>>
>
>
Cela ne change rien puisque qu'on remplace chaque chiffre par espace &
chiffre
Voici comment il faudrait faire (je suppose bien entendu qu'il n'y a que
nombres entiers positifs)
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
Dim Ecriturenombre as boolean
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
If Not EcritureNombre then NouvChaine=NouveChaine & " "
NouvChaine = NouvChaine & Car
EcritureNombre=true
Case Else
EcritureNombreúlse
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
"driss hanib" <dhanib@club-internet.fr> a écrit dans le message de news:
e2guB0qvFHA.2064@TK2MSFTNGP09.phx.gbl...
> allez je te remets ma fonction en ajoutant un espace entre chaque
>
> Function ExtraitNum(MaChaine As String) As String
> Dim Car As String
> Dim NouvChaine As String
> NouvChaine = vbNullString
> For I = 1 To Len(MaChaine)
> ' extraction de chaque caractère
> Car = Mid$(MaChaine, I, 1)
> Select Case Asc(Car)
> Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
> chiffres de 0 à 9
> NouvChaine = NouvChaine = " " & Car
> Case Else
> End Select
> Next
> ' on enlève ensuite les espaces extérieur
> NouvChaine = trim$(NouvChaine)
>
> ExtraitNum = NouvChaine
> End Function
>
> Et tu utilises
> MonTexteBox.Text = ExtraitNum(ChaineReçue)
>
> Driss
>
> "lou" <colluluigi@skynet.be> a écrit dans le message de news:
> 43315647$0$29288$ba620e4c@news.skynet.be...
>> yes!!!
>> merci
>>
>> "Clive Lumb" <clumb2@gratuit_en_anglais.fr.invalid> a écrit dans le
>> message
>> de news: O4JnyjovFHA.1392@tk2msftngp13.phx.gbl...
>>>
>>> "lou" <colluluigi@skynet.be> a écrit dans le message de
>>> news:433115a1$0$17773$ba620e4c@news.skynet.be...
>>> > un grand merci a tous
>>> >
>>> > fred décidement c'est ta foncion qui est la plus interessante dans
>>> > mon
>>> cas
>>> >
>>> > mais comment envoyer dans un champ disons(test)
>>> > les numeriques qui sont extrait en se suivant et avec un espace ex:
>> 123
>>> > 2564 39 4571
>>> >
>>> Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
>>> un
>>> label un on utilise ".label"
>>> Mais il convient de reconvertir les numéros en chaine pour les
>>> accoller/mettre dans le "champ".
>>>
>>> En prenant l'example de Fred:
>>> .....
>>> For i = LBound(a) To UBound(a)
>>> MsgBox a(i)
>>> Next
>>> .....
>>>
>>> Devient:
>>> 'Vider le textbox
>>> NomDeTonFormulaire.NomDeTonTextBox.Text =""
>>> For i = LBound(a) To UBound(a)
>>> 'Ajouter la représentation chaine de chaque numéro, suivie par
>>> une
>>> espace.
>>> NomDeTonFormulaire.NomDeTonTextBox.Text > >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
>>> Next
>>>
>>>
>>> Clive
>>>
>>>
>>
>>
>
>
Cela ne change rien puisque qu'on remplace chaque chiffre par espace &
chiffre
Voici comment il faudrait faire (je suppose bien entendu qu'il n'y a que
nombres entiers positifs)
Function ExtraitNum(MaChaine As String) As String
Dim Car As String
Dim NouvChaine As String
Dim Ecriturenombre as boolean
NouvChaine = vbNullString
For I = 1 To Len(MaChaine)
' extraction de chaque caractère
Car = Mid$(MaChaine, I, 1)
Select Case Asc(Car)
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
chiffres de 0 à 9
If Not EcritureNombre then NouvChaine=NouveChaine & " "
NouvChaine = NouvChaine & Car
EcritureNombre=true
Case Else
EcritureNombreúlse
End Select
Next
' on enlève ensuite les espaces extérieur
NouvChaine = trim$(NouvChaine)
ExtraitNum = NouvChaine
End Function
"driss hanib" a écrit dans le message de news:
> allez je te remets ma fonction en ajoutant un espace entre chaque
>
> Function ExtraitNum(MaChaine As String) As String
> Dim Car As String
> Dim NouvChaine As String
> NouvChaine = vbNullString
> For I = 1 To Len(MaChaine)
> ' extraction de chaque caractère
> Car = Mid$(MaChaine, I, 1)
> Select Case Asc(Car)
> Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 ' codes ascii des
> chiffres de 0 à 9
> NouvChaine = NouvChaine = " " & Car
> Case Else
> End Select
> Next
> ' on enlève ensuite les espaces extérieur
> NouvChaine = trim$(NouvChaine)
>
> ExtraitNum = NouvChaine
> End Function
>
> Et tu utilises
> MonTexteBox.Text = ExtraitNum(ChaineReçue)
>
> Driss
>
> "lou" a écrit dans le message de news:
> 43315647$0$29288$
>> yes!!!
>> merci
>>
>> "Clive Lumb" a écrit dans le
>> message
>> de news:
>>>
>>> "lou" a écrit dans le message de
>>> news:433115a1$0$17773$
>>> > un grand merci a tous
>>> >
>>> > fred décidement c'est ta foncion qui est la plus interessante dans
>>> > mon
>>> cas
>>> >
>>> > mais comment envoyer dans un champ disons(test)
>>> > les numeriques qui sont extrait en se suivant et avec un espace ex:
>> 123
>>> > 2564 39 4571
>>> >
>>> Si le "champ" est un textbox on utilise la propriéte ".Text". Si c'est
>>> un
>>> label un on utilise ".label"
>>> Mais il convient de reconvertir les numéros en chaine pour les
>>> accoller/mettre dans le "champ".
>>>
>>> En prenant l'example de Fred:
>>> .....
>>> For i = LBound(a) To UBound(a)
>>> MsgBox a(i)
>>> Next
>>> .....
>>>
>>> Devient:
>>> 'Vider le textbox
>>> NomDeTonFormulaire.NomDeTonTextBox.Text =""
>>> For i = LBound(a) To UBound(a)
>>> 'Ajouter la représentation chaine de chaque numéro, suivie par
>>> une
>>> espace.
>>> NomDeTonFormulaire.NomDeTonTextBox.Text > >>> NomDeTonFormulaire.NomDeTonTextBox.Text & Str$(a(i)) & " "
>>> Next
>>>
>>>
>>> Clive
>>>
>>>
>>
>>
>
>
Salut Patrice,
peux tu me dire quel est l'intérêt de ta variable booléenne EcritureNombre
?
Driss
Salut Patrice,
peux tu me dire quel est l'intérêt de ta variable booléenne EcritureNombre
?
Driss
Salut Patrice,
peux tu me dire quel est l'intérêt de ta variable booléenne EcritureNombre
?
Driss
