Nom onglet dans une variable

[JORDAN]

Bonjour tout le monde,

Je n'arrive pas à trouver le code pour sélectionner un onglet avec son nom dans une variable, j'ai essayé ceci mais sans succès

Sheets(RefClient).Select

Par avance merci pour votre aide

 

[Pierrot93]

Re : Nom onglet dans une variable

Bonjour,

ceci fonctionne chez moi, code placé dans un module standard, agit sur le classeur actif :

Dim RefClient As String
RefClient = "Feuil1"
Sheets(RefClient).Select

Attention, la feuille ne doit pas être masquée.

bonne journée
@+

 

[Orodreth]

Re : Nom onglet dans une variable

Bonjour,

J'avais galéré aussi sur cette question, et au final j'ai contourné le problème:
Je boucle sur les onglets, je compare le nom, si je trouve, je sélectionne.

      Dim WS as Worksheet
      For each WS in thisWorkbook.Worksheets
            If WS.Name = maVariable Then
                 WS.Select
                 Exit for
            End If
      Next WS

Pas forcément le plus optimisé, mais ça marche à tous les coups.

Cordialement,
Orodreth

 

[JORDAN]

Re : Nom onglet dans une variable

Bonjour Pierrot,
Je ne sais pas ce que j'ai fabriqué, j'ai testé ton code qui a fonctionné, remis le mien et ça marche !!!
Pas tout compris
Merci pour ton aide

 

[JORDAN]

Re : Nom onglet dans une variable

Bonjour Orodreth,

Merci pour ton code qui va m'éviter d'éventuels problème
Cdt

 

[Pierrot93]

Re : Nom onglet dans une variable

Re, bonjour Orodreth

A noter qu'il n'est pas nécessaire de sélectionner une feuille pour agir desus avec vba...

 

[Orodreth]

Re : Nom onglet dans une variable

Re le forum, bonjour Pierrot,

Entièrement d'accord avec toi. Nul besoin de sélectionner la feuille pour la manipuler en VBA.

Petite remarque: le code que j'ai formulé permet justement de retrouver la feuille, puis de travailler dessus directement avec l'objet Worsheet (dans mon code, c'est la variable WS), tout en permettant de sécuriser l'appli si la feuille n'existe pas.

Cordialement,

 

[Pierrot93]

Re : Nom onglet dans une variable

Re,

si l'on veut tester l'existence d'une feuille, on peut égalementutiliser un code de ce type :

Sub Test()
Dim nomfeuille As String
nomfeuille = "Feuil1"
If Not FeuilleExiste(nomfeuille) Is Nothing Then MsgBox "OK, existe..."
End Sub

Function FeuilleExiste(f As String) As Worksheet
On Error Resume Next
Set FeuilleExiste = Worksheets(f)
End Function

 

[JORDAN]

Re : Nom onglet dans une variable

Bonsoir,

Merci Pierrot pour ton code qui est intégré dans mon projet
Cdt