Suppression .select en VBA

Version imprimable

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:

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

Bonjour,

Voici un exemple de ce que tu peux faire

Code:

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

Code:

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

bonjour,
pas vérifié la logique!

Code:

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

04/09/2019, 13h12
Igloobel
Citation:
Envoyé par Thumb down

bonjour,
pas vérifié la logique!

Code:

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+

je n'es pas cherché de logique, juste donné un exemple de code sans sélect et sélection!
Citation:
Envoyé par AntoineBQ
Code:

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

Merci à vous deux.

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

Code:

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:

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

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

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

Citation:

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... :roll:

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

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

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

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:

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.

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:

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:

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

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

Code:

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.

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:

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

04/09/2019, 16h42
MarcelG

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).
04/09/2019, 16h44
AntoineBQ

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.

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:

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 :P:P :ccool:)
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.

04/09/2019, 17h07
AntoineBQ

Marcel,

Citation:

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 ! :mrgreen:
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é.

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

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:

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.