Discussion :

[kermitdive]

Bonjour,

j'ai ecris cette macro toute simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

Bonjour,
Ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[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

[riaolle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour changer la valeur de la cellule A1 par exemple.

Pour ton code, ça donnera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kermitdive]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Deviens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Philippe Tulliez]

Bonjour,

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à ?