Suppression .select en VBA

**AntoineBQ** · 04/09/2019, 12h09

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** · 04/09/2019, 12h36

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** · 04/09/2019, 12h38

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** · 04/09/2019, 13h12

Envoyé par 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

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** · 04/09/2019, 13h32

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

Envoyé par AntoineBQ

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** · 04/09/2019, 13h50

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** · 04/09/2019, 14h12

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** · 04/09/2019, 14h18

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

Envoyé par 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.

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** · 04/09/2019, 14h34

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.

**AntoineBQ** · 04/09/2019, 15h18

Je ne pense pas que la boucle soit nécessaire. Je m'explique. Devant cette macro, c'est une infographie et les gens vont s'amuser à ouvrir et fermer les fenêtres. Je suis déjà à 'Feuil15' pour ma part.

Je pense que j'ai trouvé une solution, qui fonctionne avec ce code.

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
Sub Détail_Reliquat()
 
'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 modifie le nom de cette feuille
            ThisWorkbook.ActiveSheet.Name = "En cours de livraison"
 
'Je masque à nouveau le TCD
ThisWorkbook.Sheets("TCD caché").Visible = False
 
End Sub

Maintenant, ma crainte, c'est qu'ils ré-ouvrent l'extraction et Excel ne pourra pas donner 1 nom à deux feuillets. Il y a-t-il moyen de faire un MsgBox en cas d'erreur qui stoppe la macro et indique "Vous avez déjà cette feuille d'ouverte. Merci de la supprimer pour l'ouvrir à nouveau." J'ai donc essayé ça : sans succès, ça me fait l'inverse...

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
28
29
30
'Déclaration de fonction si la feuille est déjà existante
Function FeuilleExiste(Wk As Workbook, stfeuille) As Boolean
    On Error Resume Next
 
    FeuilleExiste = Not (Wk.Sheets(stfeuille) Is Nothing)
End Function
 
Sub Détail_Commandes_Livrees()
 
If FeuilleExiste(ThisWorkbook, "Livrées non-rcp") Then
 
    'Je rends visible le TCD caché
        ThisWorkbook.Sheets("TCD caché").Visible = True
 
            'Je sélectionne les informations nécessaires
            ThisWorkbook.Sheets("TCD caché").Range("C6").ShowDetail = True
 
                'Je modifie le nom de cette feuille
                ThisWorkbook.ActiveSheet.Name = "Livrées non-rcp"
 
    'Je masque à nouveau le TCD
    ThisWorkbook.Sheets("TCD caché").Visible = False
 
Else
 
MsgBox ("Vous avez déjà cette feuille d'ouverte. Merci de la supprimer pour l'ouvrir à nouveau.")
 
End If
 
End Sub

**MarcelG** · 04/09/2019, 16h11

Tu peux boucler sur les feuilles présentes dans ton classeur en testant leur nom.

Code :

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

1
2
3
4
5
6
7
8
Dim sh as Worksheet
 
For Each sh in Thisworkbook.Worksheets
    If sh.Name = "Mamanlespetitszioszios" Then  
         Msgbox Prompt:=...
         End
    End If
Next sh

A adapter.

**AntoineBQ** · 04/09/2019, 16h31

Parfait, c'est ça.

L'inconvénient, c'est que la boucle ne s'arrête pas alors que la possibilité qu'une feuille est un nom n'est que de 1.
Il y a-t-il la possibilité dans le For Each d'inclure qu'une seule boucle peut-être faite ? J'essaye de placer un End For, sans succès.

Code mis à jour.

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 Détail_Commandes_Livrees()
 
Dim Feuille As Worksheet
 
'Pour chaque feuille du classeur
For Each Feuille In ThisWorkbook.Worksheets
 
    If Feuille.Name <> "Livrées non-rcp" Then
 
        'Je rends visible le TCD caché
        ThisWorkbook.Sheets("TCD caché").Visible = True
                'Je sélectionne les informations nécessaires
            ThisWorkbook.Sheets("TCD caché").Range("C6").ShowDetail = True
                'Je modifie le nom de cette feuille
                ThisWorkbook.ActiveSheet.Name = "Livrées non-rcp"
        'Je masque à nouveau le TCD
        ThisWorkbook.Sheets("TCD caché").Visible = False
 
    Else
 
MsgBox ("Vous avez déjà cette feuille d'ouverte. Merci de la supprimer pour l'ouvrir à nouveau.")
 
    End If
 
Next Feuille
 
End Sub

**MarcelG** · 04/09/2019, 16h42

Erreur d'algorithme.

Je te conseille de bien anticiper l'exécution de ce code en particulier, et de tout code en général..

Tel que, le message apparaîtra pour chaque feuille.
Il te faut tester l'égalité de nom, pas la différence.

Par End For, tu entendais sans doute Exit For (syntaxe correcte).

**AntoineBQ** · 04/09/2019, 16h44

Je pense que je me suis très mal expliqué à l'écrit et par le code.

Je veux que ma macro consulte si de Worksheet(2) à Worksheet(20) le nom "Ici le nom" est déjà présent. Si oui, extraction - sinon, MsgBox.

**MarcelG** · 04/09/2019, 17h03

Clairement.

Tu veux tester si une feuille porte bien le nom souhaité.
Si aucune feuille n'a pour nom celui-ci alors un message d'erreur apparaît et le traitement est terminé.

C'est bien cela?

Dans l'affirmative, une proposition

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
Option Explicit
 
Public Sub test_feuille()
 
Dim existwks As Boolean
Dim SH As Worksheet
 
existwks = False
 
For Each SH In ThisWorkbook.Worksheets
        If SH.Name = "toto" Then
                existwks = True
                Exit For
        End If
Next SH
 
If existwks = False Then
        MsgBox Prompt:="La feuille n'existe pas", Buttons:=vbCritical, Title:="Anomalie"
        End
End If
 
End Sub

2 remarques:
1 - Il existe d'autres processus pour tester la présence d'une feuille
2 - J'ai envisagé une boucle For avec sortie. Une boucle Do While ou Until aurait pu être envisagée (Pour faire plaisir à Tonton Pierre

)
Sérieux: la sortie dénature quelque peu la fonctionnalité de l'instruction For.

Mais, du moins dans un premier temps, tu peux adapter le code proposer.

**AntoineBQ** · 04/09/2019, 17h07

Marcel,

Tu veux tester si une feuille porte bien le nom souhaité.
Si aucune feuille n'a pour nom celui-ci alors un message d'erreur apparaît et le traitement est terminé.

Perdu, c'est l'inverse !

Si aucune feuille ne porte le nom "Extraction", alors je fais l'extraction.
Si "Extraction" est déjà dans une Feuille, pas besoin d'extraire à nouveau alors MsgBox.

Je vais essayer avec le code précédemment partagé.

**MarcelG** · 04/09/2019, 17h17

(citation)
Perdu, c'est l'inverse !

Limite!

2ème remarque
Tu adaptes. Il te faut prendre un peu de recul pour pouvoir aménager le code proposé.
C'est l'un des moyens de progresser.

Code :

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

1
2
3
4
5
6
If existwks = False Then
        Call extraction 'Procédure à créer ou bien liste d'instructions
Else
        MsgBox Prompt:="La feuille existe déjà", Buttons:=vbCritical, Title:="Arrêt"
        End
End If

Bonne soirée au Forum.

Suppression .select en VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager