Je cherche la meilleure solution pour cr=E9er=20
un "distributeur de num=E9ro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton=20
qui pose la question suivante : pour quel client ?
On remplit ce champ et cela donne le num=E9ro d'ordre=20
disponible (simplement "pr=E9cedent + 1").
Par ailleurs cela remplit mon tableau fait comme suit :
N=B0chrono/client/date
cela est transparent pour l'utilisateur qui ne doit pas=20
rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ?
D'avance merci pour vos r=E9ponses
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
Philippe.R
Bonjour Fanfan, Ce code, à copier dans un module ordinaire du classeur et à associer à un bouton le fait :
Sub incremchrono() 'MPFE Philippe.R 27/08/2003 Dim c As Integer, l As Long, NocHronO As Long Dim leClient As String l = Application.WorksheetFunction.CountA(Range("a:a")) leClient = InputBox("Pour quel client ?", _ "Attribution d'un numéro de chrono") If leClient = "" Then Exit Sub NocHronO = Cells(l, 1).Value Cells(l + 1, 1).Value = NocHronO + 1 Cells(l + 1, 2).Value = leClient Cells(l + 1, 3) = Date End Sub
le champ N°chrono est supposé se trouver en A:A -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Fanfan" a écrit dans le message de news:20ff01c38357$8d4ea200$ Bonjour à tous,
Je cherche la meilleure solution pour créer un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton qui pose la question suivante : pour quel client ? On remplit ce champ et cela donne le numéro d'ordre disponible (simplement "précedent + 1"). Par ailleurs cela remplit mon tableau fait comme suit : N°chrono/client/date cela est transparent pour l'utilisateur qui ne doit pas rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ? D'avance merci pour vos réponses
Bonjour Fanfan,
Ce code, à copier dans un module ordinaire du classeur et à associer à un bouton le fait :
Sub incremchrono()
'MPFE Philippe.R 27/08/2003
Dim c As Integer, l As Long, NocHronO As Long
Dim leClient As String
l = Application.WorksheetFunction.CountA(Range("a:a"))
leClient = InputBox("Pour quel client ?", _
"Attribution d'un numéro de chrono")
If leClient = "" Then Exit Sub
NocHronO = Cells(l, 1).Value
Cells(l + 1, 1).Value = NocHronO + 1
Cells(l + 1, 2).Value = leClient
Cells(l + 1, 3) = Date
End Sub
le champ N°chrono est supposé se trouver en A:A
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Fanfan" <Fidecourt@aol.com> a écrit dans le message de news:20ff01c38357$8d4ea200$a301280a@phx.gbl...
Bonjour à tous,
Je cherche la meilleure solution pour créer
un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton
qui pose la question suivante : pour quel client ?
On remplit ce champ et cela donne le numéro d'ordre
disponible (simplement "précedent + 1").
Par ailleurs cela remplit mon tableau fait comme suit :
N°chrono/client/date
cela est transparent pour l'utilisateur qui ne doit pas
rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ?
D'avance merci pour vos réponses
Bonjour Fanfan, Ce code, à copier dans un module ordinaire du classeur et à associer à un bouton le fait :
Sub incremchrono() 'MPFE Philippe.R 27/08/2003 Dim c As Integer, l As Long, NocHronO As Long Dim leClient As String l = Application.WorksheetFunction.CountA(Range("a:a")) leClient = InputBox("Pour quel client ?", _ "Attribution d'un numéro de chrono") If leClient = "" Then Exit Sub NocHronO = Cells(l, 1).Value Cells(l + 1, 1).Value = NocHronO + 1 Cells(l + 1, 2).Value = leClient Cells(l + 1, 3) = Date End Sub
le champ N°chrono est supposé se trouver en A:A -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Fanfan" a écrit dans le message de news:20ff01c38357$8d4ea200$ Bonjour à tous,
Je cherche la meilleure solution pour créer un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton qui pose la question suivante : pour quel client ? On remplit ce champ et cela donne le numéro d'ordre disponible (simplement "précedent + 1"). Par ailleurs cela remplit mon tableau fait comme suit : N°chrono/client/date cela est transparent pour l'utilisateur qui ne doit pas rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ? D'avance merci pour vos réponses
mhg
Merci également pour vos infos.... Marie.
"Philippe.R" a écrit dans le message de news: O0Kb$
Bonjour Fanfan, Ce code, à copier dans un module ordinaire du classeur et à associer à un bouton le fait :
Sub incremchrono() 'MPFE Philippe.R 27/08/2003 Dim c As Integer, l As Long, NocHronO As Long Dim leClient As String l = Application.WorksheetFunction.CountA(Range("a:a")) leClient = InputBox("Pour quel client ?", _ "Attribution d'un numéro de chrono") If leClient = "" Then Exit Sub NocHronO = Cells(l, 1).Value Cells(l + 1, 1).Value = NocHronO + 1 Cells(l + 1, 2).Value = leClient Cells(l + 1, 3) = Date End Sub
le champ N°chrono est supposé se trouver en A:A -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Fanfan" a écrit dans le message de news:20ff01c38357$8d4ea200$
Bonjour à tous,
Je cherche la meilleure solution pour créer un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton qui pose la question suivante : pour quel client ? On remplit ce champ et cela donne le numéro d'ordre disponible (simplement "précedent + 1"). Par ailleurs cela remplit mon tableau fait comme suit : N°chrono/client/date cela est transparent pour l'utilisateur qui ne doit pas rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ? D'avance merci pour vos réponses
Merci également pour vos infos....
Marie.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
O0Kb$EMhDHA.2224@TK2MSFTNGP10.phx.gbl...
Bonjour Fanfan,
Ce code, à copier dans un module ordinaire du classeur et à associer à un
bouton le fait :
Sub incremchrono()
'MPFE Philippe.R 27/08/2003
Dim c As Integer, l As Long, NocHronO As Long
Dim leClient As String
l = Application.WorksheetFunction.CountA(Range("a:a"))
leClient = InputBox("Pour quel client ?", _
"Attribution d'un numéro de chrono")
If leClient = "" Then Exit Sub
NocHronO = Cells(l, 1).Value
Cells(l + 1, 1).Value = NocHronO + 1
Cells(l + 1, 2).Value = leClient
Cells(l + 1, 3) = Date
End Sub
le champ N°chrono est supposé se trouver en A:A
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Fanfan" <Fidecourt@aol.com> a écrit dans le message de
news:20ff01c38357$8d4ea200$a301280a@phx.gbl...
Bonjour à tous,
Je cherche la meilleure solution pour créer
un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton
qui pose la question suivante : pour quel client ?
On remplit ce champ et cela donne le numéro d'ordre
disponible (simplement "précedent + 1").
Par ailleurs cela remplit mon tableau fait comme suit :
N°chrono/client/date
cela est transparent pour l'utilisateur qui ne doit pas
rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ?
D'avance merci pour vos réponses
"Philippe.R" a écrit dans le message de news: O0Kb$
Bonjour Fanfan, Ce code, à copier dans un module ordinaire du classeur et à associer à un bouton le fait :
Sub incremchrono() 'MPFE Philippe.R 27/08/2003 Dim c As Integer, l As Long, NocHronO As Long Dim leClient As String l = Application.WorksheetFunction.CountA(Range("a:a")) leClient = InputBox("Pour quel client ?", _ "Attribution d'un numéro de chrono") If leClient = "" Then Exit Sub NocHronO = Cells(l, 1).Value Cells(l + 1, 1).Value = NocHronO + 1 Cells(l + 1, 2).Value = leClient Cells(l + 1, 3) = Date End Sub
le champ N°chrono est supposé se trouver en A:A -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Fanfan" a écrit dans le message de news:20ff01c38357$8d4ea200$
Bonjour à tous,
Je cherche la meilleure solution pour créer un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton qui pose la question suivante : pour quel client ? On remplit ce champ et cela donne le numéro d'ordre disponible (simplement "précedent + 1"). Par ailleurs cela remplit mon tableau fait comme suit : N°chrono/client/date cela est transparent pour l'utilisateur qui ne doit pas rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ? D'avance merci pour vos réponses
Philippe.R
C'était avec plaisir marie ! -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"mhg" a écrit dans le message de news:
Merci également pour vos infos.... Marie.
"Philippe.R" a écrit dans le message de news: O0Kb$
Bonjour Fanfan, Ce code, à copier dans un module ordinaire du classeur et à associer à un bouton le fait :
Sub incremchrono() 'MPFE Philippe.R 27/08/2003 Dim c As Integer, l As Long, NocHronO As Long Dim leClient As String l = Application.WorksheetFunction.CountA(Range("a:a")) leClient = InputBox("Pour quel client ?", _ "Attribution d'un numéro de chrono") If leClient = "" Then Exit Sub NocHronO = Cells(l, 1).Value Cells(l + 1, 1).Value = NocHronO + 1 Cells(l + 1, 2).Value = leClient Cells(l + 1, 3) = Date End Sub
le champ N°chrono est supposé se trouver en A:A -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Fanfan" a écrit dans le message de news:20ff01c38357$8d4ea200$
Bonjour à tous,
Je cherche la meilleure solution pour créer un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton qui pose la question suivante : pour quel client ? On remplit ce champ et cela donne le numéro d'ordre disponible (simplement "précedent + 1"). Par ailleurs cela remplit mon tableau fait comme suit : N°chrono/client/date cela est transparent pour l'utilisateur qui ne doit pas rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ? D'avance merci pour vos réponses
C'était avec plaisir marie !
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"mhg" <marie.gandelin@N.O.S.P.A.Mwanadoo.fr> a écrit dans le message de
news:uuqnXOFiDHA.1536@TK2MSFTNGP12.phx.gbl...
Merci également pour vos infos....
Marie.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
O0Kb$EMhDHA.2224@TK2MSFTNGP10.phx.gbl...
Bonjour Fanfan,
Ce code, à copier dans un module ordinaire du classeur et à associer à un
bouton le fait :
Sub incremchrono()
'MPFE Philippe.R 27/08/2003
Dim c As Integer, l As Long, NocHronO As Long
Dim leClient As String
l = Application.WorksheetFunction.CountA(Range("a:a"))
leClient = InputBox("Pour quel client ?", _
"Attribution d'un numéro de chrono")
If leClient = "" Then Exit Sub
NocHronO = Cells(l, 1).Value
Cells(l + 1, 1).Value = NocHronO + 1
Cells(l + 1, 2).Value = leClient
Cells(l + 1, 3) = Date
End Sub
le champ N°chrono est supposé se trouver en A:A
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Fanfan" <Fidecourt@aol.com> a écrit dans le message de
news:20ff01c38357$8d4ea200$a301280a@phx.gbl...
Bonjour à tous,
Je cherche la meilleure solution pour créer
un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton
qui pose la question suivante : pour quel client ?
On remplit ce champ et cela donne le numéro d'ordre
disponible (simplement "précedent + 1").
Par ailleurs cela remplit mon tableau fait comme suit :
N°chrono/client/date
cela est transparent pour l'utilisateur qui ne doit pas
rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ?
D'avance merci pour vos réponses
C'était avec plaisir marie ! -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"mhg" a écrit dans le message de news:
Merci également pour vos infos.... Marie.
"Philippe.R" a écrit dans le message de news: O0Kb$
Bonjour Fanfan, Ce code, à copier dans un module ordinaire du classeur et à associer à un bouton le fait :
Sub incremchrono() 'MPFE Philippe.R 27/08/2003 Dim c As Integer, l As Long, NocHronO As Long Dim leClient As String l = Application.WorksheetFunction.CountA(Range("a:a")) leClient = InputBox("Pour quel client ?", _ "Attribution d'un numéro de chrono") If leClient = "" Then Exit Sub NocHronO = Cells(l, 1).Value Cells(l + 1, 1).Value = NocHronO + 1 Cells(l + 1, 2).Value = leClient Cells(l + 1, 3) = Date End Sub
le champ N°chrono est supposé se trouver en A:A -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Fanfan" a écrit dans le message de news:20ff01c38357$8d4ea200$
Bonjour à tous,
Je cherche la meilleure solution pour créer un "distributeur de numéro chrono de commandes"
En fait, je souhaite que l'on puisse cliquer sur un bouton qui pose la question suivante : pour quel client ? On remplit ce champ et cela donne le numéro d'ordre disponible (simplement "précedent + 1"). Par ailleurs cela remplit mon tableau fait comme suit : N°chrono/client/date cela est transparent pour l'utilisateur qui ne doit pas rentrer dans Excel.
Est-ce quelqu'un voit ce que je veux dire ? D'avance merci pour vos réponses
