contrôle chaîne de caractère

bonjour,

dans une macro, je demande à l'utilisateur à l'aide d'inputbox d'entrer un
numéro de projet.

j'aimerais ensuite vérifier comment l'utilisateur à entrer le numéro de
projet, sachant qu'un numéro de projet est formater C0XXX.

donc si l'utilisateur à enter :

123 il faut que ça devienne C0123
0123 il faut que ça devienne C0123
C0123 on ne change rien

j'espère que mon explication est clair.

mon début de prog est :

sub demandenumprojet()

If MsgBox("Voulez-vous modifier les attributs du cartouche automatiquement
?", vbYesNo, "Modification automatique") = vbYes Then
numprojet = InputBox("veuillez entrer le numéro du projet", "Numéro du
projet")
If

TEST DE LA VALEUR numprojet

End If
End if
End sub



Cordialement

JR

Bonjour,
Peut-être ceci
'---------
Sub demandenumprojet()
If MsgBox("Voulez-vous modifier les attributs du cartouche automatiquement
?", 4, "; Modification; automatique; ") = vbYes Then
Do
numprojet = InputBox("Veuillez entrer le numéro du projet" & Chr(10) &
"Format obligatoire: COxxx", "Numéro du projet ")
If numprojet = "" Then Exit Sub
numprojet = "C" & Format(Right(numprojet, 4), "0000")
Loop Until IsNumeric(Mid(numprojet, 2, Len(numprojet)))
End If
MsgBox numprojet
End Sub
'----------------

--
Salutations
JJ


"JR" <jruegsegger(NOSPAME)@daril-sa.com> a écrit dans le message de news:
%23jLL8jlBIHA.1208@TK2MSFTNGP05.phx.gbl...

bonjour,

dans une macro, je demande à l'utilisateur à l'aide d'inputbox d'entrer
un numéro de projet.

j'aimerais ensuite vérifier comment l'utilisateur à entrer le numéro de
projet, sachant qu'un numéro de projet est formater C0XXX.

donc si l'utilisateur à enter :

123 il faut que ça devienne C0123
0123 il faut que ça devienne C0123
C0123 on ne change rien

j'espère que mon explication est clair.

mon début de prog est :

sub demandenumprojet()

If MsgBox("Voulez-vous modifier les attributs du cartouche
automatiquement ?", vbYesNo, "Modification automatique") = vbYes Then
numprojet = InputBox("veuillez entrer le numéro du projet", "Numéro du
projet")
If

TEST DE LA VALEUR numprojet

End If
End if
End sub



Cordialement

JR

Excellent !

fonctionne parfaitement !

merci bcp jacky !

Cordialement

JR
"Jacky" <dupont@martin.fr> a écrit dans le message de news:
eAhCHRmBIHA.536@TK2MSFTNGP06.phx.gbl...

Bonjour,
Peut-être ceci
'---------
Sub demandenumprojet()
If MsgBox("Voulez-vous modifier les attributs du cartouche
automatiquement ?", 4, "; Modification; automatique; ") = vbYes Then
Do
numprojet = InputBox("Veuillez entrer le numéro du projet" & Chr(10)
& "Format obligatoire: COxxx", "Numéro du projet ")
If numprojet = "" Then Exit Sub
numprojet = "C" & Format(Right(numprojet, 4), "0000")
Loop Until IsNumeric(Mid(numprojet, 2, Len(numprojet)))
End If
MsgBox numprojet
End Sub
'----------------

--
Salutations
JJ


"JR" <jruegsegger(NOSPAME)@daril-sa.com> a écrit dans le message de news:
%23jLL8jlBIHA.1208@TK2MSFTNGP05.phx.gbl...

bonjour,

dans une macro, je demande à l'utilisateur à l'aide d'inputbox d'entrer
un numéro de projet.

j'aimerais ensuite vérifier comment l'utilisateur à entrer le numéro de
projet, sachant qu'un numéro de projet est formater C0XXX.

donc si l'utilisateur à enter :

123 il faut que ça devienne C0123
0123 il faut que ça devienne C0123
C0123 on ne change rien

j'espère que mon explication est clair.

mon début de prog est :

sub demandenumprojet()

If MsgBox("Voulez-vous modifier les attributs du cartouche
automatiquement ?", vbYesNo, "Modification automatique") = vbYes Then
numprojet = InputBox("veuillez entrer le numéro du projet", "Numéro
du projet")
If

TEST DE LA VALEUR numprojet

End If
End if
End sub



Cordialement

JR

Tiens un AutoCADien ici !!
Tu avances dans tu VBA AutoCAD ?
--
Bernard Flavignard
www.guidonchalettois.fr
"JR" <jruegsegger(NOSPAME)@daril-sa.com> a écrit dans le message de news:
eTKGKYmBIHA.5652@TK2MSFTNGP02.phx.gbl...

Excellent !

fonctionne parfaitement !

merci bcp jacky !

Cordialement

JR
"Jacky" <dupont@martin.fr> a écrit dans le message de news:
eAhCHRmBIHA.536@TK2MSFTNGP06.phx.gbl...

Bonjour,
Peut-être ceci
'---------
Sub demandenumprojet()
If MsgBox("Voulez-vous modifier les attributs du cartouche
automatiquement ?", 4, "; Modification; automatique; ") = vbYes Then
Do
numprojet = InputBox("Veuillez entrer le numéro du projet" & Chr(10)
& "Format obligatoire: COxxx", "Numéro du projet ")
If numprojet = "" Then Exit Sub
numprojet = "C" & Format(Right(numprojet, 4), "0000")
Loop Until IsNumeric(Mid(numprojet, 2, Len(numprojet)))
End If
MsgBox numprojet
End Sub
'----------------

--
Salutations
JJ


"JR" <jruegsegger(NOSPAME)@daril-sa.com> a écrit dans le message de
news: %23jLL8jlBIHA.1208@TK2MSFTNGP05.phx.gbl...

bonjour,

dans une macro, je demande à l'utilisateur à l'aide d'inputbox d'entrer
un numéro de projet.

j'aimerais ensuite vérifier comment l'utilisateur à entrer le numéro de
projet, sachant qu'un numéro de projet est formater C0XXX.

donc si l'utilisateur à enter :

123 il faut que ça devienne C0123
0123 il faut que ça devienne C0123
C0123 on ne change rien

j'espère que mon explication est clair.

mon début de prog est :

sub demandenumprojet()

If MsgBox("Voulez-vous modifier les attributs du cartouche
automatiquement ?", vbYesNo, "Modification automatique") = vbYes Then
numprojet = InputBox("veuillez entrer le numéro du projet", "Numéro
du projet")
If

TEST DE LA VALEUR numprojet

End If
End if
End sub



Cordialement

JR