-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par le
biais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),
puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" a écrit dans le message
de news:
071c01c33fb0$6c797900$
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr
(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0, 3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par le
biais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),
puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" <regis@luxanimation.com> a écrit dans le message
de news:
071c01c33fb0$6c797900$a501280a@phx.gbl...
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr
(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0, 3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par le
biais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),
puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" a écrit dans le message
de news:
071c01c33fb0$6c797900$
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr
(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0, 3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par le
biais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),
puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" a écrit dans le message
de news:
071c01c33fb0$6c797900$
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr
(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0, 3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par le
biais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),
puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" <regis@luxanimation.com> a écrit dans le message
de news:
071c01c33fb0$6c797900$a501280a@phx.gbl...
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr
(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0, 3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par le
biais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),
puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" a écrit dans le message
de news:
071c01c33fb0$6c797900$
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr
(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0, 3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
-----Message d'origine-----
Bonjour,
Je suis toujours dans le doute.
Quelques réflexions :
avec le format de cellule suivant :
"EE" ##0 ##0 ##0 "FR"
le code est correctement formaté, mais c'est toujours une
chaîne.
Avec le code suivant, on supprime les textes de début et
de fin :
Option Explicit
Sub test()
Dim sCode As String
Dim taille As Long
sCode = "EE 000 000 000 FR"
taille = Len(sCode)
If Not IsNumeric(sCode) Then
sCode = Right$(sCode, taille - 3)
Debug.Print sCode
taille = Len(sCode)
sCode = Left$(sCode, taille - 3)
Debug.Print sCode
End If
End Sub
Mais, c'est toujours une chaîne...
Hélas ! Je sèche.
Bonne journée quand même.
Claude Mani.
"Régis" a écrit dans le message
de news:
300801c33fbf$62e05bc0$
Bonjour Claude,
J'ai essayé mais malheureusement ça ne foncitonne pas. Le
pb tient à la multiplicité des options. A l'origine, j'ai
trois options (nature de l'envoi) qui elles mêmes ouvrent
3 options (principaux) coursiers. Dans e cas du premier
coursier, le format de son tracking number est full
numérique donc "aisé" à traiter. Le second coursier lui a
un format alpha num. Don, l'information est comprise par
la cellule comme Alphabétique puisque la donnée commence
par 2 alphas, variable bien entendu.
J'epsère être clair, mais n'en suis pas trop sûr.
Merci toutefois de t'être interresé à la question,
j'attends de tes nouvelles si toutefois tu peux me
dépanner.
MErci-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par lebiais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" a écrit dans le message
de news:071c01c33fb0$6c797900$
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en
fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0,
3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en
rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
.
-----Message d'origine-----
Bonjour,
Je suis toujours dans le doute.
Quelques réflexions :
avec le format de cellule suivant :
"EE" ##0 ##0 ##0 "FR"
le code est correctement formaté, mais c'est toujours une
chaîne.
Avec le code suivant, on supprime les textes de début et
de fin :
Option Explicit
Sub test()
Dim sCode As String
Dim taille As Long
sCode = "EE 000 000 000 FR"
taille = Len(sCode)
If Not IsNumeric(sCode) Then
sCode = Right$(sCode, taille - 3)
Debug.Print sCode
taille = Len(sCode)
sCode = Left$(sCode, taille - 3)
Debug.Print sCode
End If
End Sub
Mais, c'est toujours une chaîne...
Hélas ! Je sèche.
Bonne journée quand même.
Claude Mani.
"Régis" <regis@luxanimation.com> a écrit dans le message
de news:
300801c33fbf$62e05bc0$a401280a@phx.gbl...
Bonjour Claude,
J'ai essayé mais malheureusement ça ne foncitonne pas. Le
pb tient à la multiplicité des options. A l'origine, j'ai
trois options (nature de l'envoi) qui elles mêmes ouvrent
3 options (principaux) coursiers. Dans e cas du premier
coursier, le format de son tracking number est full
numérique donc "aisé" à traiter. Le second coursier lui a
un format alpha num. Don, l'information est comprise par
la cellule comme Alphabétique puisque la donnée commence
par 2 alphas, variable bien entendu.
J'epsère être clair, mais n'en suis pas trop sûr.
Merci toutefois de t'être interresé à la question,
j'attends de tes nouvelles si toutefois tu peux me
dépanner.
MErci
-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par le
biais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),
puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" <regis@luxanimation.com> a écrit dans le message
de news:
071c01c33fb0$6c797900$a501280a@phx.gbl...
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en
fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr
(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0,
3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en
rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
.
-----Message d'origine-----
Bonjour,
Je suis toujours dans le doute.
Quelques réflexions :
avec le format de cellule suivant :
"EE" ##0 ##0 ##0 "FR"
le code est correctement formaté, mais c'est toujours une
chaîne.
Avec le code suivant, on supprime les textes de début et
de fin :
Option Explicit
Sub test()
Dim sCode As String
Dim taille As Long
sCode = "EE 000 000 000 FR"
taille = Len(sCode)
If Not IsNumeric(sCode) Then
sCode = Right$(sCode, taille - 3)
Debug.Print sCode
taille = Len(sCode)
sCode = Left$(sCode, taille - 3)
Debug.Print sCode
End If
End Sub
Mais, c'est toujours une chaîne...
Hélas ! Je sèche.
Bonne journée quand même.
Claude Mani.
"Régis" a écrit dans le message
de news:
300801c33fbf$62e05bc0$
Bonjour Claude,
J'ai essayé mais malheureusement ça ne foncitonne pas. Le
pb tient à la multiplicité des options. A l'origine, j'ai
trois options (nature de l'envoi) qui elles mêmes ouvrent
3 options (principaux) coursiers. Dans e cas du premier
coursier, le format de son tracking number est full
numérique donc "aisé" à traiter. Le second coursier lui a
un format alpha num. Don, l'information est comprise par
la cellule comme Alphabétique puisque la donnée commence
par 2 alphas, variable bien entendu.
J'epsère être clair, mais n'en suis pas trop sûr.
Merci toutefois de t'être interresé à la question,
j'attends de tes nouvelles si toutefois tu peux me
dépanner.
MErci-----Message d'origine-----
Bonjour,
Je ne suis pas sûr d'avoir tout compris.
La "lecture simplifiée du numéro de colis", est-ce celle
qui se fait par lebiais de : Private Sub CommandButton1_Click() ?
Si oui, rajoutez dans le code : if not isnumeric (ou else
tout simplement),puis traitez depuis là ces codes particuliers.
Dans l'attente de plus amples explications.
Meilleures salutations.
Claude Mani
"Régis" a écrit dans le message
de news:071c01c33fb0$6c797900$
Bonjour,
Je suis en train de terminer une application de suivi de
colis express.
Je dois envoyer un numéro de colis dans une cellule X lui
applicant un format particlier et un lien hypertext qui
renvoit sur le site de tracking du coursier.
J'ai différents coursiers qui utilisent tous un format de
numéro de colis différent. Le principal coursier utilise
le format suivant 0000 0000 0000 C'est simple et j'ai
traité le pb de la manière suivante :
Dans un module, je prépare le format de la cellule
Sub MachinFormat(ByVal tracklink As Range)
ActiveSheet.Hyperlinks.Add Anchor:=tracklink,
Address:= _
"http://www.machin.com/"
tracklink.NumberFormat = "????#"" ""???#"" ""????"
tracklink.Font.Size = 8
End Sub
Dans le bouton de validation, j'appel la macro en
fonction
de contions selon la méthode suivante :
Const MachinTNMax = 12
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If OptionButton1 = True Then
If IsNumeric(TextBox1) Then
ActiveCell.Offset(0, 2).Value = Calendar1
ActiveCell.Offset(0, 3).Value = CDbl(TextBox1)
If OptionButton5 = True Then
If Len(TextBox1) <> MachinTNMax Then
MsgBox "Tracking number non conforme" &
Chr(13) & "Vérifiez le nombre de caratères"
Exit Sub
Else
Call MachinFormat(ActiveCell.Offset(0,
3))
End If
End If
End If
ElseIf OptionButton2 = True Then
Etc...
Là où le problème se corse c'est qu'un autre coursier
utilise le format de numéro de colis suivant :
EE 000 000 000 FR.
Pour ce qui est du sufixe FR, pas de problème pour le
traiter. En revanche, comme le numéro commence par 2
alpha, Excel lui applique automatiquement un format texte
qui de néserve pas les espaces nécessaires à une lecture
simplifiée du numéro de colis.
Quelqu'un peut-il me donner la solution, je tourne en
rond
depuis 2 heures sur le problème.
D'avance un grand merci à qui pourra m'aider.
Bien cordialement,
.
.
