Bonjour J'ai une question mes feuilles sous excel sont tous nommés avec des code de réquisitions exemple 13-5503, la 2e 13-5504, la 3e 13-5505 ainsi de suite et j'ai comme 200 feuilles à faire et je dois toujours déplacer copier renommer avec la uiste de mes numéros c'est long en titi ensuite je dois refaire la même chose pour un autre département avec un autre séquence de numéros différent aidez moi il doit y avoir une macro qui le fera automatiquement ?

Feuille sous excel

Réponse 1 / 10

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
Modifié le 1 nov. 2017 à 13:35

Bonjour

1) Avoir une feuille modèle nommée modele sur laquelle on met un bouton pour lancer la copie
2) une feuille nommée Datas qui recevra en cellule A1 le n° de la dernière feuille créée -Placer cette feuille en tête, suivie de la feuille modèle
3) dans le code du bouton mettre le nom de la macro à lancer : nouvelle
4) dans un module de l’éditeur VBA copier coller la macro suivante :

Sub nouvelle()

    Sheets("modele").Select
    Sheets("modele").Copy After:=Sheets(2)
    Sheets("Datas").Range("A1") = Sheets("Datas").Range("A1") + 1
    Sheets("modele (2)").Select
     ActiveSheet.Shapes("CommandButton1").Select
    Selection.Cut
    Sheets("modele (2)").Name = "13-550" & Sheets("Datas").Range("A1")
   
End Sub

Voir exemple que je viens de poster
https://forums.commentcamarche.net/forum/affich-34968147-avoir-une-incrementation-d-un-numero-pour-chaque-nouvelle-saisie#p34969835

Cdlmnt
Via

"L'imagination est plus importante que le savoir." A. Einstein

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
1 nov. 2017 à 14:13

OUfff attend une minute je ne comprend pas vraiment
je vais te montrer mon classeur si je peux et tu pourras si tu veux m'inscrire exactement ce que je dois mettre dans la macro
merci
regarde mon tableau sous les messages merci

faire une macro qui créerait mes feuilles à ma place. Genre si j'ai 250 noms dans ma liste, juste faire une macro au lieu de 250 clic droit et de taper mes 250 noms de feuilles. ensuite je dois refaire la meme chose avec un autre departement avec une séquence de numéros différent et à chaque fois je dois renommer une à la fois de même que pour mes liens hypertextes je dois un à la fois modifier les liens à mes numéros 13-5500 ainsi de suite aidez moi svp
merci à l'avance

Réponse 2 / 10

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
1 nov. 2017 à 13:48

OUfff attend une minute je ne comprend pas vraiment
je vais te montrer mon classeur si je peux et tu pourras si tu veux m'inscrire exactement ce que je dois mettre dans la macro
merci

faire une macro qui créerait mes feuilles à ma place. Genre si j'ai 250 noms dans ma liste, juste faire une macro au lieu de 250 clic droit et de taper mes 250 noms de feuilles. ensuite je dois refaire la meme chose avec un autre departement avec une séquence de numéros différent et à chaque fois je dois renommer une à la fois de même que pour mes liens hypertextes je dois un à la fois modifier les liens à mes numéros 13-5500 ainsi de suite aidez moi svp
merci à l'avance

Réponse 3 / 10

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
1 nov. 2017 à 18:57

Re,

Bon s'il s'agit de créer des feuilles selon une liste et de faire les liens hypertexte il faut copier cette macro et la coller dans un module (ALt+F11 pour ouvrir éditeur VBA - Insertion - Module - copier coller macro dans page blanche - Modifier si nécessaire la référence de colonne si ce n'est pas la 2eme dans l’instruction Find puis dans les instructions faisnat référence à la colonne B (Range("B" & n)) - Fermer l'éditeur
Depuis la 1ere feuille avec la liste lancer la macro depuis Développeur dans le ruban - Macros - choisir créafeuilles et Exécuter

Sub créafeuilles()

   Dim Ligne As Long
   'Derniere ligne remplie en 2eme colonne
Ligne = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
'boucle de la ligen 2 à la derniere
    For n = 2 To Ligne
    ' valeur de la cellule
    nom = Range("B" & n)
    ' création nouvelle feuille en dernier
    Sheets.Add After:=Sheets(Sheets.Count)
    ' renomme nouvelle feuille
    Sheets(Sheets.Count).Select
    Sheets(Sheets.Count).Name = nom
    'selection 1ere feuille et mise en place lien hypertexte
    Sheets(1).Select
     Sheets(1).Range("B" & n).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & nom & "'!A1", TextToDisplay:=nom
    Next
End Sub

Cdlmnt
Via

Réponse 4 / 10

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
1 nov. 2017 à 19:08

Ok parfait j'essaie ça
Merci
c'est gentil

Réponse 5 / 10

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
1 nov. 2017 à 19:10

OK tiens moi au courant
Et si tu n'y arrives pas poste ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici, je regarderai comment adapter la amcro à ton fichier

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
2 nov. 2017 à 00:15

voici mon fichier
https://mon-partage.fr/f/6dwW1OyU/

merci

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735 > ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022
2 nov. 2017 à 01:39

ton fichier en retour avec la macro pour créer les liens hypertexte
https://mon-partage.fr/f/UuYj6RNp/

Cdlmnt
Via

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1 > via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024
2 nov. 2017 à 13:27

wow super mais tu dois m'expliquer comment je dois faire car je dois faire 5 autres document comme ça avec chacune une nouvelle série de nombres pour chaque dept? et de plus je dois allez copier toutes mes feuilles mais dans chaque feuille il y à des = en référence au tableau principale et quand je copie des feuilles j'ai 7 cellules en B7 - E8-E9-E10-E11-E12 ET B35 Des feuilles que je dois tous refaire le = car en copiant ça copie la formule mais ce sera toujours la même ligne tu comprends merci Lyna

Réponse 6 / 10

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
2 nov. 2017 à 17:43

Bonjour

Ton fichier en retour avec la macro qui crée toutes les feuilles et les liens hypertexte; avec formules dans les feuilles pour rapatrier les données
https://mon-partage.fr/f/daNXp4PO/

Cdlmnt
Via

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
2 nov. 2017 à 18:42

WOW tu es plus que hot mais je dois savoir comment faire pour refaire la meme chose avec de nouvelle séquence numérique pour les autres dept?
merci

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735 > ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022
2 nov. 2017 à 18:51

Pour la macro il suffit de la copier si les colonnes des données sont les mêmes, sinon après la copie il faut changer les references aux colonnes dans la macro (par exemple Range("B" & n) pour la colonne B
Pour les formules dans la feuille MODELE idem, il suffit de modifier les references aux colonnes si elle sont différentes

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1 > via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024
2 nov. 2017 à 19:27

Tout sera pareille sauf les numéros de réquisitions par exemple sur mon fichier
on voit 13-5500 je dois en faire pour le dept incendie 22-2500 et plus ensuite la voirie 32-3500 et pour les loisirs 70-7500 etcccc tu comprends donc je changerai seulement les numéros de réquisitions et je renommerai mes feuilles avec les nouveau numéros ça se fait par le kutools ça s'en prob. mais cest les formules merci

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735 > ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022
2 nov. 2017 à 19:31

Les feuilles sont automatiquement nommées avec la macro qui les créent et n° placé en E8 de chaque feuille donc tu n'as pas à t'en inquiéter seulement à changer les n°s de la colonne B de la Liste
Ensuite les formules sont dans la feuille Modele elles sont copiées par la macro dans les feuilles créees donc là encore pas de souci si le format des feuilles sont identiques tu appliques le même modele

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1 > via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024
2 nov. 2017 à 20:28

Donc si je comprend bien je peux aller dans ma colonne B et mettre par exemple le premier numéro 22-2500 et descendre ça jusqu'en bas ensuite dois-je changer quelques chose dans les macros et pour voir les macros je dois aller dans macro modifier? c'est ça et là dois-je changer des numéros ? pour les nouvelles séquences?
merci et si je voudrais mettre juste 500 feuilles au lieu de 800 comment dois-je faire est ce que je fais juste supprimer mes lignes au dessus de 500?

Réponse 7 / 10

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
13 nov. 2017 à 17:13

Bonjour mon ami
merci de m'avoir sauvé la vie mais j'ai encore une demande spéciale je t'envoie mon fichier et j'ai mis un commentaire et regarde si tu comprends ma demande sinon reviens moi et j'essayerai de mieux m'expliquer.
Merci Lyna

https://mon-partage.fr/f/aom0JBVU/

Réponse 8 / 10

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
13 nov. 2017 à 17:17

De plus tu peux voir dans le bas complètement de ma feuille Budget le total qui prend le montant du départ moins toutes les dépenses et leurs indique le budget restant ? et quand je rajoute des colonnes dans mon tableau de listes des réquisitions le liens hypertexte marchait pus alors j'ai été dans macro et j'ai changé le M pour mettre N mais je ne sais pas si tout est ok peux tu valider pour moi et de plus est-ce qu'il y à un moyen pour ne plus avoir les avertissement il faut faire 3 fois accepter ? merci de ton aide précieuse

Réponse 9 / 10

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
Modifié le 13 nov. 2017 à 18:44

Bonjour Lyna

j'ai bien ouvert le fichier mais je ne trouve pas de commentaire
C'est quoi le souci ?
Ok pour N à la place de M, ça fonctionne
De quels avertissements pour lesquels il faut cliquer 3 fois parle-tu ?

"L'imagination est plus importante que le savoir." A. Einstein

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
13 nov. 2017 à 19:11

Allo
oui regarde j'ai mis un commentaire dans l'onglet Budget en B6
et oui pour les avertissements ça me dit nous ne pouvons pas mettre à jour certaine liaison qui ne parviennent pas à mettre à jour
dis moi si le commentaires y est dans la feuille budget moi je le vois
https://mon-partage.fr/f/jZ9sT3zr/

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735 > ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022
Modifié le 13 nov. 2017 à 20:26

C'est fou ça je n'ai aucun commentaire en B6 ni ailleurs !
Copie directement le commentaire dans une cellule et renvoie moi

Pour les avertissements ce doit être des liens hypertextes qui ne sont pas trouvé
c'est bizarre chez moi ça ne le fait pas

Vérifie pour chaque lien hypertexte que le chemin d'accès complet est correct (en passant la souris sur le lien il s'affiche)

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1 > via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024
13 nov. 2017 à 20:49

EST-CE QUE tu vois la feuille budget?

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
13 nov. 2017 à 21:01

https://mon-partage.fr/f/kuxNxYie/

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
13 nov. 2017 à 21:03

regarde à nouveau sous l'onglet budget
merci

Réponse 10 / 10

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
13 nov. 2017 à 21:44

Voilà :
https://mon-partage.fr/f/AxFxzGL6/
J'ai mis 2 lignes de données dans la 1ere fiche, elles sont retranscrites dans la colonnes de leur code respectifs comme tu peux voir

Via

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
13 nov. 2017 à 21:52

Bin voyons donc comment tu as fait ça ??????
je ne connais pas la formule SIERREUR oufff tu es plus qu'un pro wow mercii

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
13 nov. 2017 à 22:03

Je t'explique :
au départ simple formule RECHERCHEV dans la même plage de chaque feuille basée sur le code
Pour faire changer le nom de la feuille selon le n° de requisition on reconstruit une référnece valide avec INDIRECT et en concatenant le n° de requisition qui est le nom de la feuille aussi et "'!C15:F33"
Enfin pour éviter l'#N/A dans une cellule lorsque RECHERCHEV ne trouve rien et mettre 0 à la place on utilise SIERREUR

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1 > via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024
13 nov. 2017 à 22:36

ok je comprend merci beaucoup tu es mon sauveteur
lyna

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1 > ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022
30 nov. 2017 à 04:10

BONJOUR mon ami Via55 j'ai encore un problème avec mes réquisitions tu m'as fait les sommes à l'onglet budget mais j'ai fait des test et si tu vas voir dans mon fichier sous l'onglet 22-2200 j'ai mis quelques code de grand livre dans la même réquisition pour voir si le système du budget calculera tout les codes par résolutions mais il ne calcul que la 1ere ligne alors je t'envoie mon fichier si tu peux regarder svp
merci
https://mon-partage.fr/f/mz4qn5JY/

ange-lyna Messages postés 111 Date d'inscription mercredi 1 novembre 2017 Statut Membre Dernière intervention 12 janvier 2022 1
30 nov. 2017 à 04:15

j'ai un autre question? est-ce qu'il y à un moyen plus rapide pour sélectionner les fournisseurs dans l'onglet réquisition à la colonne K : fournisseurs j'ai mis une validation de donné pour allez chercher les fournisseurs mais j'ai certain département qu'ils on plus de 1100 fournisseurs et ils trouvent ça long à descendre via ma flèche, existet-t-il quelques chose de plus rapide selon toi ? merci Lyna

Feuille sous excel

10 réponses

Discussions similaires