Bonjour à tous,

Je viens à vous à la suite de recherche peu fructueuse sur le net pour améliorer une VBA et outre-passer le .select qui, aux topics consultés, ne feraient qu’alourdir les VBA.

Ma VBA s'exprime ainsi et comme je débute, je mets beaucoup de commentaire pour comprendre ce que je fais.
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
Sub Détail_Commandes_CPT_REG()
 
    'Je rends visible le TCD caché
    Sheets("TCD caché").Visible = True
 
        'Je sélectionne les informations nécessaires
        Sheets("TCD caché").Select
        Range("C5").Select
            Selection.ShowDetail = True
 
        Sheets("TCD caché").Select
        Range("C7").Select
            Selection.ShowDetail = True
 
            'Je modifie le nom de la feuille
            Worksheets(2).Name = "Comptoirs non-rcp"
            Worksheets(3).Name = "Régul non-rcp"
 
    'Je masque à nouveau le TCD
    Sheets("TCD caché").Visible = False
 
End Sub
Je suis à votre écoute