Nommer ou sélectionner : trop de "consignes" dans mes macros ?

Version imprimable

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:

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

19/05/2023, 09h38
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:

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)

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:

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

19/05/2023, 13h17
jurassic pork
Hello,
Normalement tu peux remplacer tes 4 lignes du Copy au Select par ceci :
Code:

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

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:

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é

19/05/2023, 16h01
Philippe Tulliez

Bonjour,

Citation:

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.

Citation:

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]

Citation:

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

Bonjour, teste comme ceci:

Code:

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

19/05/2023, 16h43
Michèle S.

Bonjour,

OK j'ai compris.
Je vous remercie pour vos réponses

Bonjour,

C'est testé, et ça fonctionne, nickel !
(j'ai juste rajouté le "." devant Range)

Merci beaucoup pour ton aide

Citation:

Envoyé par Franc

Bonjour, teste comme ceci:

Code:

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