Discussion :

[AntoineBQ]

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

[Igloobel]

Bonjour,

Voici un exemple de ce que tu peux faire

Code :

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

1
2
3
4
 'Je sélectionne les informations nécessaires
        Sheets("TCD caché").Select
        Range("C5").Select
            Selection.ShowDetail = True

Code :

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

1
2
 'Je sélectionne les informations nécessaires
        Sheets("TCD caché").Range("C5").ShowDetail = True

[Thumb down]

bonjour,
pas vérifié la logique!

Code :

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

1
2
3
4
5
6
 'Je rends visible le TCD caché
    With Sheets("TCD caché")
        .Visible = True
        .Range("C5").ShowDetail = True
        .Visible = False
    End With

[Igloobel]

bonjour,
pas vérifié la logique!

Code :

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

1
2
3
4
5
6
 'Je rends visible le TCD caché
    With Sheets("TCD caché")
        .Visible = True
        .Range("C5").ShowDetail = True
        .Visible = False
    End With

Je ne suis pas sûr que le ".Visible = True" suivi ".Visible = False" au sein d'un même With soit pertinent à tenté que cela fonctionne

le genre

• je rend visible
• j'affiche les détails
• je rend invisible (tout de suite après ...)

me laisse septique

ceci dit sans vouloir te vexé

A+

[Thumb down]

je n'es pas cherché de logique, juste donné un exemple de code sans sélect et sélection!

Code :

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

1
2
3
4
5
6
7
8
9
Sub Détail_Commandes_CPT_REG()
 
    'Je rends visible le TCD caché
    Sheets("TCD caché").Visible = True
 
    'Je masque à nouveau le TCD
    Sheets("TCD caché").Visible = False
 
End Sub

[AntoineBQ]

Merci à vous deux.

J'ai une question, est-ce possible de combiner aussi .name à cette suite ?

Code :

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

1
2
3
'Je sélectionne les informations nécessaires
        Sheets("TCD caché").Range("C5").ShowDetail = True
            ThisWorksheets.Name = "Comptoirs non-rcp"

L'idée, c'est que l'extraction ouverte change de nom. Comme j'ai 3-4 macros identiques mon code renomme uniquement les feuilles 2 et 3 (voir ci-dessous) mais les autres continuent à être 'Feuil5', etc.

J'ai essayé ça.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Je sélectionne les informations nécessaires
        Sheets("TCD caché").Range("C5").ShowDetail = True
 
            'Je nomme ma feuille extraite
            For num = 1 To 15
            Worksheets("Feuil" & num").Name = "Comptoirs non-rcp"
            Next num
 
        Sheets("TCD caché").Range("C7").ShowDetail = True
 
            For num = 1 To 15
            Worksheets("Feuil" & num").Name = "Comptoirs non-rcp"
            Next num

[MarcelG]

Bonjour Antoine,

Ton code comprend une double quotte superflue.
Au sein d'un même classeur, d'autre part, 2 feuilles de travail ne peuvent avoir le même nom.
Si une erreur ne survient pas, ce dont je doute, Excel va indicer les noms de feuilles.
Dans le cas présent, affecter un nom comportant un indice lié au compteur me paraît un processus opportun.

[AntoineBQ]

Bonjour Marcel, c'est un plaisir de vous revoir !

Bonjour Antoine,

Ton code comprend une double quotte superflue.
Au sein d'un même classeur, d'autre part, 2 feuilles de travail ne peuvent avoir le même nom.
Si une erreur ne survient pas, ce dont je doute, Excel va indicer les noms de feuilles.
Dans le cas présent, affecter un nom comportant un indice lié au compteur me paraît un processus opportun.

Désolé, mais qu'est-ce qu'une double quotte superflue et affecter un nom comportant un indice lié au compteur ?
En effet, je ne l'avais pas vu. C'était un copié-collé sans avoir pensé à modifier le texte...

Je viens d'essayer ce code avec une parade, ça à l'air de fonctionner.

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
'Je rends visible le TCD caché
    ThisWorkbook.Sheets("TCD caché").Visible = True
 
        'Je sélectionne les informations nécessaires
        ThisWorkbook.Sheets("TCD caché").Range("C5").ShowDetail = True
 
            'Je nomme ma feuille extraite
            ActiveSheet.Name = "Comptoirs non-rcp"
 
        ThisWorkbook.Sheets("TCD caché").Range("C7").ShowDetail = True
 
            ActiveSheet.Name = "Régul non-rcp"
 
    'Je masque à nouveau le TCD
    Sheets("TCD caché").Visible = False

[MarcelG]

Salut,

Plaisir partagé.

Dans le code, il y a un - " - de trop.
Tu peux t'en apercevoir en constatant que la colorisation des mots clés, noms d'objet.... n'est pas homogène.
Beaucoup de texte est reporté en police de couleur rouge.
C'est la raison pour laquelle, dans mon espace VBE, je procède à des colorisations bien tranchées (Vert, Rouge, Bleu, Noir)

Quant à l'indice de nom de feuille, tu pourrais coder ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Sub essai_name()
 
Dim i As Byte
For i = 1 To 2
       ThisWorkbook.Worksheets(i).Name = "Mafeuille_" & i
Next i
 
End Sub

Ma remarque portant sur la partie de propriété "& i".

J'attire ton attention sur le fait que l'objet désigné par

Code :

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

Worksheets(i)

est la feuille de travail indicée tel que reporté dans l'éditeur VBE.
Dans celui-ci, apparaît cet indice suivi du nom affecté à la feuille; celui-ci entre parenthèses.