Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel numérotation automatique d'une cellule par rapport à .....

numérotation automatique d'une cellule par rapport à .....

15 réponses
Avatar
ksandre
Bonjour à tous

Je viens faire appel aux grands Duc d'excel ........

Voilà ma question:
Sur un classeur de plusieurs onglets mon premier s'appelle" modèle
", j'ai une Macro qui enregistre les données dans un nouvel onglet ..... dans
une des cellules correspond un numéro .....
J'aimerai que dans mon onglet " modèle" le numéro se mette à jour
automatiquement.
Exemple : onglet " DUrand" cellule B5 = 145
il faudrait que l'onglet " modèle " soit cellule B5= onglet"
durand", cellule B5+1.

D'avance merci.... à ceux qui se pencheront au problème

Ksandre
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
1 2
Avatar
ksandre
re....

On approche de très près de la solution ........

le seul hic .... c'est que le numéro de l'onglet est différent de celui de
la fiche ..... mais ça je crois que je vais pouvoir y remedier.
http://cjoint.com/?lrq53x3L2k

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon onglet
rapidement ....
Sub rechercheclient()
client = UCase(InputBox("Entrez un nom de client", "Recherche client"))
If client = "" Then Exit Sub
For i = 1 To Sheets.Count
If UCase(Sheets(i).Name) = client Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Client inexistant"
End Sub

peut-on la transformer afin qu'elle soit moins catégorique?
Je m'explique : pour retrouver l'onglet "DURAND" je suis obligée de ne pas
faire de faute d'orthographe sur le nom, donc il faudra que je connaisse le
numéro attribué au nom obligatoirement?

encore merci


Re....
Un début de piste......
'---------
Sub numérotation()
nom = [b6] & [b3]
[b3] = [b3] + 1
Sheets("Modele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
Sheets("Modele").Select
End Sub
'------------
Il faudra que tu crées (amha) une feuille avec tous les noms déjà en cours,
afin de les comparer sur plusieurs critères pour éviter les doublons. Et
rajouter sur cette feuille les nouveaux noms. (et cela automatiquement bien
sur).

Bon courage
--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
Si on ne fait pas attention ... j'ai un bug ....... donc maintenant je
rentre
DURAND-J
en espèrant ne pas avoir 2 Durand Jean !!!
Mais je suis en train de voir si je n'utilisera pas en plus du nom le
numéro attribué....... mais ça devient un peu compliqué pour ma petite
tête
..... car en plus j'utilise une macro pour retrouver de suite l'onglet en
rentrant le nom dans une fenêtre ... et les personnes ne se souviennent
pas
forcément du numéro attribué
.....

Re...
Et que se passe t'il s'il y a 2 "Durand" ????

--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
Bonjour

J'avais peur de ne pas être très clair dans mes explications ....
et
je
vois que ma peur était justifiée ........

JE vous mets un lien en espérant que cela sera plus compréhensible
http://cjoint.com/?lrkNYxAiSe

dites moi si cela est plus clair

d'avances merci
Ksandre


Bonjour à tous

Je viens faire appel aux grands Duc d'excel ........

Voilà ma question:
Sur un classeur de plusieurs onglets mon premier s'appelle"
modèle
", j'ai une Macro qui enregistre les données dans un nouvel onglet
.....
dans
une des cellules correspond un numéro .....
J'aimerai que dans mon onglet " modèle" le numéro se mette à jour
automatiquement.
Exemple : onglet " DUrand" cellule B5 = 145
il faudrait que l'onglet " modèle " soit cellule B5= onglet"
durand", cellule B5+1.

D'avance merci.... à ceux qui se pencheront au problème

Ksandre
















Avatar
Jacky
Re...
le seul hic .... c'est que le numéro de l'onglet est différent de celui de
la fiche .....
La fiche est prête à recevoir le nom suivant....le nom+le n° du dernier

fichier +1
Faudra utiliser "clearcontents" sur les plages concernées pour effacer les
entrées et retrouver la feuille vierge.

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon onglet
rapidement ....
Si tu as déjà la liste des noms dans une feuille,

Tu peux facilement par une liste de validation (Menu données / validation)
retrouver 'sans erreur' la feuille souhaitée (sur laquelle tu auras pris
soin de nommée la plage des noms(Menu insertion / noms / définir))
Ce qui n'est pas le cas avec la sub que tu utilises, puisqu'elle s'arrête au
premier nom trouvé.
--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
re....

On approche de très près de la solution ........

le seul hic .... c'est que le numéro de l'onglet est différent de celui de
la fiche ..... mais ça je crois que je vais pouvoir y remedier.
http://cjoint.com/?lrq53x3L2k

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon onglet
rapidement ....
Sub rechercheclient()
client = UCase(InputBox("Entrez un nom de client", "Recherche client"))
If client = "" Then Exit Sub
For i = 1 To Sheets.Count
If UCase(Sheets(i).Name) = client Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Client inexistant"
End Sub


Avatar
ksandre
Bonjour

Faudra utiliser "clearcontents" sur les plages concernées pour effacer les
entrées et retrouver la feuille vierge.
A quel endroit faut-il que je mette " clearcontents"?


Tu peux facilement par une liste de validation (Menu données /
validation)

retrouver 'sans erreur' la feuille souhaitée (sur laquelle tu auras pris
soin de nommée la plage des noms(Menu insertion / noms / définir))
Ce qui n'est pas le cas avec la sub que tu utilises, puisqu'elle s'arrête au
premier nom trouvé.
C'est vrai que je n'avais pas pensé à la liste de validation ....

merci


Re...
le seul hic .... c'est que le numéro de l'onglet est différent de celui de
la fiche .....
La fiche est prête à recevoir le nom suivant....le nom+le n° du dernier

fichier +1
Faudra utiliser "clearcontents" sur les plages concernées pour effacer les
entrées et retrouver la feuille vierge.

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon onglet
rapidement ....
Si tu as déjà la liste des noms dans une feuille,

Tu peux facilement par une liste de validation (Menu données / validation)
retrouver 'sans erreur' la feuille souhaitée (sur laquelle tu auras pris
soin de nommée la plage des noms(Menu insertion / noms / définir))
Ce qui n'est pas le cas avec la sub que tu utilises, puisqu'elle s'arrête au
premier nom trouvé.
--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
re....

On approche de très près de la solution ........

le seul hic .... c'est que le numéro de l'onglet est différent de celui de
la fiche ..... mais ça je crois que je vais pouvoir y remedier.
http://cjoint.com/?lrq53x3L2k

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon onglet
rapidement ....
Sub rechercheclient()
client = UCase(InputBox("Entrez un nom de client", "Recherche client"))
If client = "" Then Exit Sub
For i = 1 To Sheets.Count
If UCase(Sheets(i).Name) = client Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Client inexistant"
End Sub







Avatar
Jacky
Re...
A quel endroit faut-il que je mette " clearcontents"?


'-----------
Sub numérotation()
nom = [b6] & [b3]
Sheets("Modele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
Sheets("Modele").Select
[b3] = [b3] + 1
[b4:b15].ClearContents 'par exemple
'ou selection de toutes les cellules à effacer sur la feuille "modèle", les
nommées(par exemple:"Aeffacer" est valider le code ci-dessous.
'ActiveSheet.[Aeffacer].ClearContents
End Sub
'---------------


--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
Bonjour

Faudra utiliser "clearcontents" sur les plages concernées pour effacer
les
entrées et retrouver la feuille vierge.
A quel endroit faut-il que je mette " clearcontents"?


Tu peux facilement par une liste de validation (Menu données /
validation)

retrouver 'sans erreur' la feuille souhaitée (sur laquelle tu auras pris
soin de nommée la plage des noms(Menu insertion / noms / définir))
Ce qui n'est pas le cas avec la sub que tu utilises, puisqu'elle s'arrête
au
premier nom trouvé.
C'est vrai que je n'avais pas pensé à la liste de validation

....
merci


Re...
le seul hic .... c'est que le numéro de l'onglet est différent de celui
de
la fiche .....
La fiche est prête à recevoir le nom suivant....le nom+le n° du dernier

fichier +1
Faudra utiliser "clearcontents" sur les plages concernées pour effacer
les
entrées et retrouver la feuille vierge.

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le
numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon
onglet
rapidement ....
Si tu as déjà la liste des noms dans une feuille,

Tu peux facilement par une liste de validation (Menu données /
validation)
retrouver 'sans erreur' la feuille souhaitée (sur laquelle tu auras pris
soin de nommée la plage des noms(Menu insertion / noms / définir))
Ce qui n'est pas le cas avec la sub que tu utilises, puisqu'elle s'arrête
au
premier nom trouvé.
--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
re....

On approche de très près de la solution ........

le seul hic .... c'est que le numéro de l'onglet est différent de celui
de
la fiche ..... mais ça je crois que je vais pouvoir y remedier.
http://cjoint.com/?lrq53x3L2k

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le
numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon
onglet
rapidement ....
Sub rechercheclient()
client = UCase(InputBox("Entrez un nom de client", "Recherche
client"))
If client = "" Then Exit Sub
For i = 1 To Sheets.Count
If UCase(Sheets(i).Name) = client Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Client inexistant"
End Sub









Avatar
ksandre
Je vais regarder ça .......


je me souviens plus ce qui fait que mes onglet sont répertoriés sur
une autre feuille et du coup ça me bloque pour la mise en place du nouveau
code .....

Mais ....... je te remercie beaucoup beaucoup pour ton aide ..... je te
tiens au courant du déroulement.
à bientôt
Ksandre

Re...
A quel endroit faut-il que je mette " clearcontents"?


'-----------
Sub numérotation()
nom = [b6] & [b3]
Sheets("Modele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
Sheets("Modele").Select
[b3] = [b3] + 1
[b4:b15].ClearContents 'par exemple
'ou selection de toutes les cellules à effacer sur la feuille "modèle", les
nommées(par exemple:"Aeffacer" est valider le code ci-dessous.
'ActiveSheet.[Aeffacer].ClearContents
End Sub
'---------------


--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
Bonjour

Faudra utiliser "clearcontents" sur les plages concernées pour effacer
les
entrées et retrouver la feuille vierge.
A quel endroit faut-il que je mette " clearcontents"?


Tu peux facilement par une liste de validation (Menu données /
validation)

retrouver 'sans erreur' la feuille souhaitée (sur laquelle tu auras pris
soin de nommée la plage des noms(Menu insertion / noms / définir))
Ce qui n'est pas le cas avec la sub que tu utilises, puisqu'elle s'arrête
au
premier nom trouvé.
C'est vrai que je n'avais pas pensé à la liste de validation

....
merci


Re...
le seul hic .... c'est que le numéro de l'onglet est différent de celui
de
la fiche .....
La fiche est prête à recevoir le nom suivant....le nom+le n° du dernier

fichier +1
Faudra utiliser "clearcontents" sur les plages concernées pour effacer
les
entrées et retrouver la feuille vierge.

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le
numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon
onglet
rapidement ....
Si tu as déjà la liste des noms dans une feuille,

Tu peux facilement par une liste de validation (Menu données /
validation)
retrouver 'sans erreur' la feuille souhaitée (sur laquelle tu auras pris
soin de nommée la plage des noms(Menu insertion / noms / définir))
Ce qui n'est pas le cas avec la sub que tu utilises, puisqu'elle s'arrête
au
premier nom trouvé.
--
Salutations
JJ

"ksandre" a écrit dans le message de
news:
re....

On approche de très près de la solution ........

le seul hic .... c'est que le numéro de l'onglet est différent de celui
de
la fiche ..... mais ça je crois que je vais pouvoir y remedier.
http://cjoint.com/?lrq53x3L2k

Par contre sur mon classeur d'origine ... j'ai déjà une feuille qui
répertorie tous les nom déjà entrés ...... mais si je rajoute le
numéro à
coté du nom j'ai une macro qui ne vas plus m'aider à trouvé le bon
onglet
rapidement ....
Sub rechercheclient()
client = UCase(InputBox("Entrez un nom de client", "Recherche
client"))
If client = "" Then Exit Sub
For i = 1 To Sheets.Count
If UCase(Sheets(i).Name) = client Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Client inexistant"
End Sub














1 2