Discussion :

[Michèle S.]

Bonjour,

J'apprends toute seule à faire des petites macros, et je pense que je répète des consignes.
Quand je sélectionne une feuille de calcul ou bien une cellule, qu'est-ce qui stoppe la sélection et m'oblige à sélectionner à nouveau la feuille ou cellule ?
Dans quel cas vaut-il mieux sélectionner ou nommer ?
je mets mes commentaires sur ce qu'il me semble pourrais être corrigé .
Pouvez-vous me conseillez svp afin d'optimiser ?

Par avance merci

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 Proto1()
'
' Proto1 Macro
' insertion fiche de suivi Proto N° 1
'
    Sheets("PROTO 1").Select
    ActiveWindow.SelectedSheets.Delete          ' mettre plutôt :   SelectedSheets.Delete   (la macro est dans le classeur)
                                                                   'OU : Sheets("PROTO 1").Delete
 
    Sheets("SUIVI MODELE").Visible = True      'suis-obligée d'afficher la feuille masquée pour pouvoir la recopier ?
    Sheets("SUIVI MODELE").Select                 'est-ce utile , vu que je la nomme à la ligne suivante ?
    Sheets("SUIVI MODELE").Copy Before:=Sheets("listes")
    ActiveWindow.SelectedSheets.Visible = False
 
    Sheets("SUIVI MODELE (2)").Select             'idem : est-ce utile vu que je la nomme à la ligne suivante ?
    Sheets("SUIVI MODELE (2)").Name = "PROTO 1"   
    Range("A1:E2").Value = "PROTO N° 1"
 
End Sub

[Philippe Tulliez]

Bonjour,
Sauf si l'on souhaite qu'une feuille ou une cellule particulière soit active, en VBA les méthodes Select, Activate sont à proscrire. Elles ne servent à rien et sont chronophages.
Ainsi par exemple les deux lignes 10 et 11 de votre code publié peuvent être réduite à une seule ligne

Code :

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

Sheets("SUIVI MODELE").Copy Before:=Sheets("listes")

Une feuille masquée peut être copiée sans problème tant que cela se passe dans le même classeur

Il est toujours préférable également de préciser l'objet classeur lorsque vous manipuler des feuilles pour éviter les surprises si d'autres classeurs sont ouverts (lire éventuellement mon billet sur le sujet Excel VBA - La parentalité d’un objet)

[Michèle S.]

Bonjour Philippe,

Tout d'abord, merci de votre réponse...

J'ai "nettoyé" mes macros et cela fonctionne bien; j'ai beaucoup plus de rapidité dans leurs exécutions :-)

il me reste un "Select" ligne 8 que je n'arrive pas à supprimer ; si je ne fais pas ce Select, c'est la feuille "listes" qui s'affiche, et je souhaite qu'à la fin de l'exécution de la macro, ce soit la feuille ajoutée "PROTO 2" qui apparaisse à l'écran.

Est-il possible de n'avoir qu'une seule ligne avec les lignes 6 et 7 svp?

Par avance merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Proto2()
'
' insertion Proto N° 2
'
    Sheets("SUIVI MODELE").Copy Before:=Sheets("listes")
    Sheets("SUIVI MODELE (2)").Visible = True
    Sheets("SUIVI MODELE (2)").Name = "PROTO 2"
    Sheets("PROTO 2").Select          'je suis obligée de la sélectionner pour avoir son affichage à la fin de la macro ?
    Range("A1:E2").Value = "PROTO N° 2"
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete            'je n'ai pas réussi à supprimer ActiveSheet
 
End Sub

[jurassic pork]

Hello,
Normalement tu peux remplacer tes 4 lignes du Copy au Select par ceci :

Code :

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

1
2
    Sheets("SUIVI MODELE").Copy Before:=Sheets("listes")
    ActiveSheet.Name = "PROTO 2"

Amicalement, J.P

[Michèle S.]

Bonjour Jurassic Pork,

Merci pour le retour.

J'ai testé, mais j'ai 2 soucis :
1) la feuille est bien copiée en "SUIVI MODELE (2) " , mais elle reste masquée, comme l'est la matrice de création "SUIVI MODELE" que je veux garder masquée
je suppose que je suis obligée de la rendre "Visible" après création copie?

2) c'est le nom de la feuille "listes" qui est modifié, au lieu de celui de "SUIVI MODELE (2)"
Je ne comprends pas pourquoi c'est "listes" qui devient ActiveSheet, mais c'est ce qui se passe.

Est-ce que l'on peut faire se succéder 3 consignes sur une même ligne ?
J'ai essayé avec des séparations "." ou "," ou ";", mais ça n'est pas accepté (cf ci-dessous svp).

Code :

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

1
2
3
4
5
Sheets("SUIVI MODELE (2)").Visible = True
Sheets("SUIVI MODELE (2)").Name = "PROTO 2"
Sheets("PROTO 2).Select
 
Sheets("SUIVI MODELE (2)").Visible = True.Name = "PROTO 2".Select     'essai qui n'est pas accepté

[Philippe Tulliez]

Bonjour,

1) la feuille est bien copiée en "SUIVI MODELE (2) " , mais elle reste masquée, comme l'est la matrice de création "SUIVI MODELE" que je veux garder masquée
je suppose que je suis obligée de la rendre "Visible" après création copie?

A partir du moment où vous copiez un objet (ici la feuille), la copie hérite de toutes les propriétés de celui-ci donc oui, il faut rendre visible votre nouvel objet si toutes fois c'est votre souhait.

2) c'est le nom de la feuille "listes" qui est modifié, au lieu de celui de "SUIVI MODELE (2)"
Je ne comprends pas pourquoi c'est "listes" qui devient ActiveSheet, mais c'est ce qui se passe.

Lorsque l'on effectue la copie d'une feuille, celle qui est copiée devient la feuille active. C'est exactement pareil si vous le faites manuellement.

[EDIT]

Lorsque l'on effectue la copie d'une feuille, celle qui est copiée devient la feuille active

J'ai omis de préciser, à condition que la feuille qui a servi à la copie soit visible évidemment

[Franc]

Bonjour, teste comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Proto2()
'
' insertion Proto N° 2
'
    Sheets("SUIVI MODELE").Copy Before:=Sheets("listes")
 
    With Sheets("SUIVI MODELE (2)")
        .Visible = True
        .Name = "PROTO 2"
        Range("A1:E2").Value = "PROTO N° 2"
        .Shapes.Range(Array("Button 1")).Delete
        .Activate
    End With
End Sub