Macro fonctionnant sur toutes mes feuilles

Version imprimable

Bonjour,

j'ai ecris cette macro toute simple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Roulement() ' ' Roulement Macro ' 'Sub MacroavecfeuilleProtect() ActiveSheet.Unprotect "test" Sheets("Modele").Activate Range("B2:Q2").Select Selection.Copy Sheets("Janvier").Activate ActiveSheet.Paste ActiveSheet.Protect "test", True, True, True End Sub
Mais quand je duplique ma feuille la macro ne fonctionne pas

Je voudrais pouvoir copier ma feuille la renommer février et que ma macro fonctionne sur la nouvelle feuille et ainsi de suite

comment faire

Merci d'avance

PS: si il y a une macro qui permet de copier automatiquement ma feuille et de la renommer février puis mars et ainsi de suite je suis preneur

Bonjour,
Ici :

Code:

Sheets("Janvier").Activate

Tu dis que tu veux travailler sur la feuille nommée Janvier, donc tu ne vas pas travailler sur la feuille nommée Février.
Tu peux prendre une variable "mois" et avoir une cellule dans ta feuille Excel qui correspond au mois sur lequel tu veux travailler :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Roulement() ActiveSheet.Unprotect "test" Dim mois As String mois = Sheets("Acceuil").Range("A1").Value Sheets("Modele").Range("B2:Q2").Copy Sheets(mois).Activate 'sans geuillemets !! car c'est une variable ActiveSheet.Paste ActiveSheet.Protect "test", True, True, True End Sub
Tu auras une feuille de calcul "Accueil" où tu indiqueras en cellule A1 le nom de la feuille où les données doivent être copiées.
Tu remarqueras que j'ai un peu "nettoyé" ton code. Evite d'utiliser des Select et Activate autant que possible. Cela entraîne parfois des erreurs difficiles à gérer.

En ce qui concerne la macro qui créé une feuille et la renomme : utilise l'enregistreur de macro pendant que tu fais cette opération "à la main". Tu auras un code A ADAPTER. De même, tu pourras utiliser cette cellule A1 dans la page Acceuil pour indiquer comment tu veux renommer tes feuilles.

29/03/2017, 13h33
kermitdive

Merci beaucoup Rialloe pour ta réponse et ta rapidité

j'essaie cela dans la journée et je reviens faire un retour

bon am
29/03/2017, 13h54
kermitdive

re,

alors j'ai testé et je comprends la logique du code mais c'est pas exactement se que je voulais j'ai du mal m'exprimer.

En fait je commence en janvier et je veux pouvoir utiliser mes macros sur cette feuille puis je fais une copie de cette feuille que je nomme ensuite février, je l'efface et je veux que mon script puisse fonctionner sur cette nouvelle feuille hors quand je l'utilise il me renvoie sur la feuille de janvier normal puisque dans le code c'est janvier d'écrit.

Comment dire a la macro, execute toi sur la feuille sur laquelle tu es actuellement

voila pour le moment

pour la copie auto j'ai trouver deux trois truc sur le web je testerais apres chaque chose a la fois

merci encore

Le code pour dire "fait les operations sur la feuille actuelle" est :

Code:

ActiveSheet

Comme son nom l'indique, c'est la feuille active :) Par contre, si tu fais des aller-retour sur plusieurs feuilles pour les copier-coller, je te conseille de faire la chose suivante :
Code:

1 2 3 4 5 Sub Roulement() Dim feuilCible As Worksheet Set feuilCible = ActiveSheet 'avant de faire toutes les opérations, tu dis que tu définis feuilCIble comme la feuille active en ce moment. 'puis fin du code End Sub
Tu utiliseras feuilCible de la manière suivante:

Code:

feuilCible.Range("A1").Value = "toto"

Pour changer la valeur de la cellule A1 par exemple.

Pour ton code, ça donnera :
Code:

1 2 3 4 5 6 7 8 9 Sub Roulement() Dim feuilCible As Worksheet Set feuilCible = ActiveSheet feuilCible.Unprotect "test" Sheets("Modele").Range("B2:Q2").Copy feuilCible.Paste feuilCible.Protect "test", True, True, True End Sub

Re,

bon alors j'ai résolu mon problème d'activation de feuille en bidouillant mais ca marche
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub Roulement() ActiveSheet.Unprotect "test" Dim mois As String mois = ActiveSheet.Name Sheets("Modele").Range("B2:Q2").Copy Sheets(mois).Activate 'sans geuillemets !! car c'est une variable ActiveSheet.Paste ActiveSheet.Protect "test", True, True, True End Sub Sub Efface() ' ' Efface Macro ' ' ActiveSheet.Unprotect "test" If MsgBox("ATTENTION VALERIE TU VAS EFFACER TOUT TON TABLEAU !! TU ES SURE ?", vbOKCancel, _ "Efface tout le Tableau") = vbCancel Then Exit Sub Range("B5:AF11").Select Selection.ClearContents ActiveSheet.Protect "test", True, True, True End Sub
J'ai ensuite trouvé un code qui copie ma feuille et qui ouvre une boite pour que je renomme en vérifiant que le nom n'existe pas déja.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Copie() Sheets("Janvier").Copy After:=Sheets(ThisWorkbook.Sheets.Count) 10: nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _ Title:="Nommer une feuille", Type:=2) If nom = False Or nom = "" Then Exit Sub For Each F In ThisWorkbook.Worksheets If F.Name = nom Then rep = MsgBox("Le nom " & nom & " existe déjà. Voulez-vous entrer un autre nom ?", vbYesNo) If rep = vbYes Then GoTo 10 Else Exit Sub End If End If Next F ActiveSheet.Name = nom End Sub
Le problème est que si le nom n'existe pas ok ca marche
si le nom existe et que je change sa marche

si je me trompe et que le nom existe deja une deuxieme fois ca bug

bon mon code doit pas etre tres propre ce sont des bout de code récupéré de ci de la sur divers forum

Je vais essayé ta proposition riaolle pour voir ce que cela donne

merci encore du coup de main

29/03/2017, 17h29
jpvba
Bonjour Kermitdive,

Je te donne un petit conseil , essaye d'écrire ton copy/paste sur une meme ligne au lieu d'activé, selectionné, copier, selectionner, coller

Cela sauve du temps d'exécution
Code:

1 2 3 4 5 Sheets("Modele").Activate Range("B2:Q2").Select Selection.Copy Sheets("Janvier").Activate ActiveSheet.Paste
Deviens

Code:

Sheets("Modele").Range("B2:Q2").copy Sheets("Janvier") ' là tu mets l'emplacement de la destination

en espérant le tout pouvant t'aider dans future code

amicalement

jpvba

Bonjour,
Tu ne devrais pas laisser le choix à l'utilisateur s'il doit écrire un autre nom, car Excel n'acceptera jamais 2 x le même nom.

Citation:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Copie()
    Sheets("Janvier").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
10:
    nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _
    Title:="Nommer une feuille", Type:=2)
    If nom = False Or nom = "" Then Exit Sub
    For Each F In ThisWorkbook.Worksheets
       If F.Name = nom Then
            rep = MsgBox("Le nom " & nom & " existe déjà. Voulez-vous entrer un autre nom ?", vbYesNo)
            If rep = vbYes Then
                GoTo 10
           Else
                Exit Sub
           End If
    Next F
    ActiveSheet.Name = nom
End Sub

Tu as un End If en trop :

Code:

1
2
3
4
5
If ma condition Then mon action
'OU
If ma condition Then
    mon action
End If

Au lieu de laisser le choix à l'utilisateur, impose un nouveau nom tant que le nom n'est pas valable. De plus, si le nom est vide, on ne peut pas créer de feuille non plus, donc tu devrais mettre la création de feuille à la fin du Sub, une fois que tu es sûr que le nom est OK. Au lieu d'utiliser GoTo, tu peux utiliser une bouclé While (tant que le nom n'est pas OK), mais ça c'est juste une idée :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Copie()
    Dim nomOK As Boolean
    nomOK = False
 
    While nomOK = False
        nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _
        Title:="Nommer une feuille", Type:=2)
        If nom = False Or nom = "" Then Exit Sub
        nomOK = True
        For Each F In ThisWorkbook.Worksheets
           If F.Name = nom Then
                nomOK = False
                Exit For
           End If
        Next F
        If nomOK = False Then MsgBox "Le nom" & nom & "existe déjà. Veuillez entrer un autre nom."
    Wend
    Sheets("Janvier").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = nom
End Sub

Essaie avec ça :)

01/04/2017, 23h22
kermitdive

Bonsoir riaolle,

merci pour ta proposition pour le copie de la feuille ca marche impect et en effet je ne cree pas de feuille si je ne met rien

donc c'est adopté ;-)

JPVBA :

j'ai essayé ton idée mais ca beug qq part la marco ne s'execute pas je continue a investiguer pour avoir un code plus propre

merci des conseils

bonne soirée
02/04/2017, 10h59
Philippe Tulliez

Bonjour,

Citation:

Le problème est que si le nom n'existe pas ok ca marche
si le nom existe et que je change sa marche
si je me trompe et que le nom existe deja une deuxieme fois ca bug

A voir Comment incrémenter le nom d’une feuille Excel, lorsqu’il existe déjà ?