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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
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: %
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
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: %
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
JR
Excellent !
fonctionne parfaitement !
merci bcp jacky !
Cordialement
JR "Jacky" a écrit dans le message de news:
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: %
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
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: %
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
Bernard Flavignard
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:
Excellent !
fonctionne parfaitement !
merci bcp jacky !
Cordialement
JR "Jacky" a écrit dans le message de news:
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: %
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
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:
Excellent !
fonctionne parfaitement !
merci bcp jacky !
Cordialement
JR "Jacky" a écrit dans le message de news:
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: %
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
JR
bonjour,
je m'occupe pour l'instant de la partie excel ^^... on verra lundi pour le reste....
Cordialement
JR
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de news: 470544c0$0$5097$
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:
Excellent !
fonctionne parfaitement !
merci bcp jacky !
Cordialement
JR "Jacky" a écrit dans le message de news:
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: %
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,
je m'occupe pour l'instant de la partie excel ^^... on verra lundi pour le
reste....
Cordialement
JR
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news: 470544c0$0$5097$ba4acef3@news.orange.fr...
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
je m'occupe pour l'instant de la partie excel ^^... on verra lundi pour le reste....
Cordialement
JR
"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de news: 470544c0$0$5097$
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:
Excellent !
fonctionne parfaitement !
merci bcp jacky !
Cordialement
JR "Jacky" a écrit dans le message de news:
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: %
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