numerotation automatique pour debutant

Bonjour !
J'aimerai plus de précision (y'a peut être pas que moi !!)
Ce numéro auto, il va s'afficher où ??
1) Les un sous les autres dans les cellules d'une colonne ?? Ou peut être
les un à coté des autres sur une ligne ??
2) Automatiquement lors de quelle manip ?? Saisie ?? Clic ??
Ce serai mieux avec un exemple !!
M.M
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"povslip" <povslip@tiscali.fr> a écrit dans le message de news:
cque48$d8n$1@news.tiscali.fr...

bonjour a tous et à toutes,

j'utilise une feuille sous excel et j'aimerai bien avoir une numérotation
automatique qui commencerai par 200500001 sur ma cellule E1

le modele de document à pour nom laboratoire ainsi que ma feuille sous
excel

n'ayant aucune connaissance sur les programmes, j'ai essaye de suivre une
methode mais sans resultat,

si quelqu'un pouvait me faire passer une feuille deja prete afin que je
fasse juste un copier coller sa serai le pied.

merci encore pour vos aides et commentaires

bonjour,
desole pour mon manque d'informations

j'utilise une feuille de calcul excel pour effectuer des echantillons,
chaque essais doit etre numeroter
la numerotation doit etre faite a chaque ouverture de ma feuille.

le tout me permet par la suite de gerer mon essais numeroter et une feuille
de production.

voila en esperant avoir ete explicite

cordialement


"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news: OEQF5Fc7EHA.128@TK2MSFTNGP15.phx.gbl...

Bonjour !
J'aimerai plus de précision (y'a peut être pas que moi !!)
Ce numéro auto, il va s'afficher où ??
1) Les un sous les autres dans les cellules d'une colonne ?? Ou peut être
les un à coté des autres sur une ligne ??
2) Automatiquement lors de quelle manip ?? Saisie ?? Clic ??
Ce serai mieux avec un exemple !!
M.M
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"povslip" <povslip@tiscali.fr> a écrit dans le message de news:
cque48$d8n$1@news.tiscali.fr...

bonjour a tous et à toutes,

j'utilise une feuille sous excel et j'aimerai bien avoir une numérotation
automatique qui commencerai par 200500001 sur ma cellule E1

le modele de document à pour nom laboratoire ainsi que ma feuille sous
excel

n'ayant aucune connaissance sur les programmes, j'ai essaye de suivre une
methode mais sans resultat,

si quelqu'un pouvait me faire passer une feuille deja prete afin que je
fasse juste un copier coller sa serai le pied.

merci encore pour vos aides et commentaires

Ta demande parait simple mais ne l'est pas.
Si
par "ouverture de ma feuille" tu veux dire en fait ouverture du classeur où se
trouve ta feuille
alors
tu peux à chaque ouverture du classeur incrémenter la valeur d'une cellule
quelconque avec une procédure comme celle-ci dans le module ThisWorkbook de ce
classeur (pour agir sur la cellule A1 de la feuille "Feuil1" :

Private Sub Workbook_Open()
With Sheets("Feuil1").Range("A1")
If .Text = "" Then
.Value = 200500001
Else
Application.EnableEvents = False
.Value = .Value + 1
Application.EnableEvents = True
End If
End With
End Sub

Mais si
ce n'est pas tout à fait ça (si l'incrémentation, par exemple, doit être liée à
l'activation d'une feuille d'un classeur qui en comporte plusieurs et que tu
peux passer de l'une à l'autre et que chaque changement est considéré comme un essai
alors
précise un peu plus ton besoin.

--
Gaenonius

bonjour,
desole pour mon manque d'informations

j'utilise une feuille de calcul excel pour effectuer des echantillons,
chaque essais doit etre numeroter
la numerotation doit etre faite a chaque ouverture de ma feuille.

le tout me permet par la suite de gerer mon essais numeroter et une feuille
de production.

voila en esperant avoir ete explicite

cordialement


"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news: OEQF5Fc7EHA.128@TK2MSFTNGP15.phx.gbl...

Bonjour !
J'aimerai plus de précision (y'a peut être pas que moi !!)
Ce numéro auto, il va s'afficher où ??
1) Les un sous les autres dans les cellules d'une colonne ?? Ou peut être
les un à coté des autres sur une ligne ??
2) Automatiquement lors de quelle manip ?? Saisie ?? Clic ??
Ce serai mieux avec un exemple !!
M.M
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"povslip" <povslip@tiscali.fr> a écrit dans le message de news:
cque48$d8n$1@news.tiscali.fr...

bonjour a tous et à toutes,

j'utilise une feuille sous excel et j'aimerai bien avoir une numérotation
automatique qui commencerai par 200500001 sur ma cellule E1

le modele de document à pour nom laboratoire ainsi que ma feuille sous

excel

n'ayant aucune connaissance sur les programmes, j'ai essaye de suivre une
methode mais sans resultat,

si quelqu'un pouvait me faire passer une feuille deja prete afin que je
fasse juste un copier coller sa serai le pied.

merci encore pour vos aides et commentaires

bonjour et merci gaenonius

je suis dans le premier cas, j'ai fait une copie de ton code puis enregistre
ma feuille comme modele de document.
le probleme c'est que le mumero change uniquement si je re ouvre le dernier
fichier, mon modele ne garde donc pas en memoire le dernier numero!!! existe
t il une solution

je realise plusieurs centaines d'essais via ma feuille de calcul, il
faudrait que je puisse attribuer un numero d'essais a chq produit, de
maniere a pouvoir ressortir à n'importe qu'elle moment une fiche produit
d'apres sont numero.

merci encore pour vos commentaires.




"Gaenonius" <noname@nowhere> a écrit dans le message de news:
ujbmKNd7EHA.1452@TK2MSFTNGP11.phx.gbl...

Ta demande parait simple mais ne l'est pas.
Si
par "ouverture de ma feuille" tu veux dire en fait ouverture du classeur
où se trouve ta feuille
alors
tu peux à chaque ouverture du classeur incrémenter la valeur d'une cellule
quelconque avec une procédure comme celle-ci dans le module ThisWorkbook
de ce classeur (pour agir sur la cellule A1 de la feuille "Feuil1" :

Private Sub Workbook_Open()
With Sheets("Feuil1").Range("A1")
If .Text = "" Then
.Value = 200500001
Else
Application.EnableEvents = False
.Value = .Value + 1
Application.EnableEvents = True
End If
End With
End Sub

Mais si
ce n'est pas tout à fait ça (si l'incrémentation, par exemple, doit être
liée à l'activation d'une feuille d'un classeur qui en comporte plusieurs
et que tu peux passer de l'une à l'autre et que chaque changement est
considéré comme un essai
alors
précise un peu plus ton besoin.

--
Gaenonius

bonjour,
desole pour mon manque d'informations

j'utilise une feuille de calcul excel pour effectuer des echantillons,
chaque essais doit etre numeroter
la numerotation doit etre faite a chaque ouverture de ma feuille.

le tout me permet par la suite de gerer mon essais numeroter et une
feuille de production.

voila en esperant avoir ete explicite

cordialement


"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le
message de news: OEQF5Fc7EHA.128@TK2MSFTNGP15.phx.gbl...

Bonjour !
J'aimerai plus de précision (y'a peut être pas que moi !!)
Ce numéro auto, il va s'afficher où ??
1) Les un sous les autres dans les cellules d'une colonne ?? Ou peut être
les un à coté des autres sur une ligne ??
2) Automatiquement lors de quelle manip ?? Saisie ?? Clic ??
Ce serai mieux avec un exemple !!
M.M
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"povslip" <povslip@tiscali.fr> a écrit dans le message de news:
cque48$d8n$1@news.tiscali.fr...

bonjour a tous et à toutes,

j'utilise une feuille sous excel et j'aimerai bien avoir une
numérotation
automatique qui commencerai par 200500001 sur ma cellule E1

le modele de document à pour nom laboratoire ainsi que ma feuille sous

excel

n'ayant aucune connaissance sur les programmes, j'ai essaye de suivre
une
methode mais sans resultat,

si quelqu'un pouvait me faire passer une feuille deja prete afin que je
fasse juste un copier coller sa serai le pied.

merci encore pour vos aides et commentaires

Si tu pars d'un modèle, le code de cette adresse devrait pouvoir te servir de
point de départ :

http://dj.joss.free.fr/faq.htm#numFacture

--
Gaenonius

bonjour et merci gaenonius

je suis dans le premier cas, j'ai fait une copie de ton code puis enregistre
ma feuille comme modele de document.
le probleme c'est que le mumero change uniquement si je re ouvre le dernier
fichier, mon modele ne garde donc pas en memoire le dernier numero!!! existe
t il une solution

je realise plusieurs centaines d'essais via ma feuille de calcul, il
faudrait que je puisse attribuer un numero d'essais a chq produit, de
maniere a pouvoir ressortir à n'importe qu'elle moment une fiche produit
d'apres sont numero.

merci encore pour vos commentaires.




"Gaenonius" <noname@nowhere> a écrit dans le message de news:
ujbmKNd7EHA.1452@TK2MSFTNGP11.phx.gbl...

Ta demande parait simple mais ne l'est pas.
Si
par "ouverture de ma feuille" tu veux dire en fait ouverture du classeur
où se trouve ta feuille
alors
tu peux à chaque ouverture du classeur incrémenter la valeur d'une cellule
quelconque avec une procédure comme celle-ci dans le module ThisWorkbook
de ce classeur (pour agir sur la cellule A1 de la feuille "Feuil1" :

Private Sub Workbook_Open()
With Sheets("Feuil1").Range("A1")
If .Text = "" Then
.Value = 200500001
Else
Application.EnableEvents = False
.Value = .Value + 1
Application.EnableEvents = True
End If
End With
End Sub

Mais si
ce n'est pas tout à fait ça (si l'incrémentation, par exemple, doit être
liée à l'activation d'une feuille d'un classeur qui en comporte plusieurs
et que tu peux passer de l'une à l'autre et que chaque changement est
considéré comme un essai
alors
précise un peu plus ton besoin.

--
Gaenonius

bonjour,
desole pour mon manque d'informations

j'utilise une feuille de calcul excel pour effectuer des echantillons,
chaque essais doit etre numeroter
la numerotation doit etre faite a chaque ouverture de ma feuille.

le tout me permet par la suite de gerer mon essais numeroter et une
feuille de production.

voila en esperant avoir ete explicite

cordialement


"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le
message de news: OEQF5Fc7EHA.128@TK2MSFTNGP15.phx.gbl...

Bonjour !
J'aimerai plus de précision (y'a peut être pas que moi !!)
Ce numéro auto, il va s'afficher où ??
1) Les un sous les autres dans les cellules d'une colonne ?? Ou peut être
les un à coté des autres sur une ligne ??
2) Automatiquement lors de quelle manip ?? Saisie ?? Clic ??
Ce serai mieux avec un exemple !!
M.M
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"povslip" <povslip@tiscali.fr> a écrit dans le message de news:
cque48$d8n$1@news.tiscali.fr...

bonjour a tous et à toutes,

j'utilise une feuille sous excel et j'aimerai bien avoir une
numérotation
automatique qui commencerai par 200500001 sur ma cellule E1

le modele de document à pour nom laboratoire ainsi que ma feuille sous

excel

n'ayant aucune connaissance sur les programmes, j'ai essaye de suivre
une
methode mais sans resultat,

si quelqu'un pouvait me faire passer une feuille deja prete afin que je
fasse juste un copier coller sa serai le pied.

merci encore pour vos aides et commentaires

Ce Wed, 29 Dec 2004 21:54:53 +0100, Gaenonius nous dit :

Bonjour,

Si tu pars d'un modèle, le code de cette adresse devrait pouvoir te servir de
point de départ :
http://dj.joss.free.fr/faq.htm#numFacture

Je viens d'aller voir ce code qui m'intéresse vraiment pour une facture,
mais j'imagine qu'il faut adapter le code à l'emplacement du modèle et à
d'autres choses peut-être aussi, ce que je ne parviens pas à faire (le
code collé tel quel ne me donne pas de résultat).

J'ai bien nommé ma cellule numFact comme indiqué sur le site, mais je
n'ai pas plus de succès.

Voici le code donné par la FAQ :

Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt")
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub

Le chemin de mon modèle est : E:ModèlesGRETAFact.xlt, la cellule à
incrémenter est E6.

Mon classeur contient deux autres feuilles (cela pourrait-il être un
frein au bon fonctionnement de la macro ?)

Un grand merci à qui pourra m'aider à l'adapter.

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !

v < http://perso.wanadoo.fr/cathozie/aideinternet/

J'ai l'impression que ce code pourrait être un peu simplifié :

'''''''''''''''''''''''''''
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveWorkbook.Path = "" Then
ActiveWorkbook.Close False
End If
End Sub

Private Sub Workbook_Open()
If ActiveWorkbook.Path <> "" Then
If ActiveWorkbook.Name = "Fact.xlt" Then Exit Sub
With Sheets("Feuil1")
.Range("C6").Value = .Range("C6").Value + 1
End With
End If
End Sub
''''''''''''''''''''''''''''

Code à copier dans le module ThisWorkbook du classeur modèle Fact.xlt. Il faut
adapter le nom de la feuille.
A tester.

--
Gaenonius

Ce Wed, 29 Dec 2004 21:54:53 +0100, Gaenonius nous dit :

Bonjour,

Si tu pars d'un modèle, le code de cette adresse devrait pouvoir te servir de
point de départ :
http://dj.joss.free.fr/faq.htm#numFacture

Je viens d'aller voir ce code qui m'intéresse vraiment pour une facture,
mais j'imagine qu'il faut adapter le code à l'emplacement du modèle et à
d'autres choses peut-être aussi, ce que je ne parviens pas à faire (le
code collé tel quel ne me donne pas de résultat).

J'ai bien nommé ma cellule numFact comme indiqué sur le site, mais je
n'ai pas plus de succès.

Voici le code donné par la FAQ :

Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt")
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
..Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub

Le chemin de mon modèle est : E:ModèlesGRETAFact.xlt, la cellule à
incrémenter est E6.

Mon classeur contient deux autres feuilles (cela pourrait-il être un
frein au bon fonctionnement de la macro ?)

Un grand merci à qui pourra m'aider à l'adapter.

Ce Thu, 30 Dec 2004 19:27:57 +0100, Gaenonius nous dit :

Code à copier dans le module ThisWorkbook du classeur modèle Fact.xlt. Il faut
adapter le nom de la feuille.
A tester.

Merci beaucoup pour la réponse, mais je n'arrive pas à la faire
fonctionner, même après changement du nom de la feuille et de la cellule
(E6 chez moi).

Si je ne saisis rien dans mon modèle en E6, je n'obtiens rien, et si je
mets une valeur, le numéro de la facture ne s'incrémente pas .

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !

v < http://perso.wanadoo.fr/cathozie/aideinternet/

Ce que tu décris ressemble à ce qui se produirait si tu utilisais seulement le
modèle, et non des classeurs basés sur ce modèle.
Pour créer un classeur à partir du modèle, exécute cette petite macro (tu peux
la conserver dans ton perso.xls par exemple) :

Sub LanceFact()
Workbooks.Add "E:ModèlesGRETAFact.xlt"
End Sub

--
Gaenonius

Ce Thu, 30 Dec 2004 19:27:57 +0100, Gaenonius nous dit :

Code à copier dans le module ThisWorkbook du classeur modèle Fact.xlt. Il faut
adapter le nom de la feuille.
A tester.

Merci beaucoup pour la réponse, mais je n'arrive pas à la faire
fonctionner, même après changement du nom de la feuille et de la cellule
(E6 chez moi).

Si je ne saisis rien dans mon modèle en E6, je n'obtiens rien, et si je
mets une valeur, le numéro de la facture ne s'incrémente pas .

Ce Thu, 30 Dec 2004 20:16:54 +0100, Gaenonius nous dit :

Ce que tu décris ressemble à ce qui se produirait si tu utilisais seulement le
modèle, et non des classeurs basés sur ce modèle.
Pour créer un classeur à partir du modèle, exécute cette petite macro (tu peux
la conserver dans ton perso.xls par exemple) :

Je crée pourtant bien un nouveau classeur attaché au modèle (et
j'obtiens de ce fait un classeur Fact1.

Sub LanceFact()
Workbooks.Add "E:ModèlesGRETAFact.xlt"
End Sub

Même avec cette macro qui me lance bien un classeur attaché au modèle
(merci pour celle-là aussi :-) ), j'ai dû faire une bêtise en copiant la
macro donnée :

J'ai copié le code que tu as donné, puis à l'aide d'un clic-droit sur
l'onglet de la feuille FACTURE, j'ai visualisé le code et fait un coller
dans la fenêtre de droite.

Une chose me semble curieux dans tout cela. D'habitude, lorsque je crée
plusieurs classeurs de suite, attachés à un même modèle, le premier
s'appelle Classeur1, le second Classeur2 etc.

Ici, c'est toujours Fact1 qui s'affiche. Cela pourrait-il être une
piste ?

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !

v < http://perso.wanadoo.fr/cathozie/aideinternet/