XL 2010 Code VBA pour Appeler un onglet avec texte + variable

mamarus1

XLDnaute Nouveau
Bonjour Le forum,
Je dois appeler un onglet par rapport à une variable qui se trouve dans la cellule D1 de l'onglet "Suivi", exemple 4, les onglets à appeler existants s'appellent Fiche 1, Fiche 2, Fiche 3, Fiche 4 ... , je pensai associer le texte "Fiche " avec la variable contenu dans la cellule D1 pour obtenir le nom de l'onglet à aller chercher.
Le code écrit en vba ne fonctionne pas :
Sheets("Suivi").Activate
Set numpage = "Fiche " & Range("D1")
Sheets (numpage).Select
End sub

Si quelqu'un a une idée ou ça pêche, je l'en remercie,

Cordialement,

Mamarus
 

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour mamarus1, Dranreb, job75

Je suis aussi sous XL2010 et une erreur est générée lors de l'appel de la Sub (Utilisation incorrecte de la propriété). Quelqu'un pourrait il tester avec une version supérieure dès fois qu'il y aurait une incompatibilité avec 2010 ou modifier le code qui n'est peut être pas bon.

VB:
Sub aller_Fiche()
Dim numpage As Sheets
numpage = "Fiche " & Sheets("Suivi").Range("D1").Value
 numpage.Select
End Sub

Bon réveillon à toutes & à tous
Eric c
 

Pièces jointes

  • Classeur4.xlsm
    16.7 KB · Affichages: 3

Dranreb

XLDnaute Barbatruc
C'est bien ce que je disais. Sheets est une Collections donc un objet. Pourquoi l'aviez vous déclaré comme ça ?
Il fallait du coup bien un Set pour pouvoir l'utiliser, mais en lui affectant alors une expression de type Sheets, pas un String ! Mais pas besoin de tout ça pour ce que votre macro semble devoir faire, simplement :
VB:
Sub AllerFiche()
   Sheets("Fiche " & Sheets("Suivi").Range("D1").Value).Activate
   End Sub
 

Phil69970

XLDnaute Barbatruc
Bonjour à tous

@mamarus1
Je te propose ce fichier d’après ce que j'ai compris mais comme on ne sait pas exactement ce que tu veux faire on ne peut faire que des hypothèses 🤔
Voir explication dans le code

Merci de ton retour

Bonne fêtes à tous
 

Pièces jointes

  • Aller à une feuille V1.xlsm
    17.5 KB · Affichages: 7

Discussions similaires

Statistiques des forums

Discussions
313 329
Messages
2 097 230
Membres
106 881
dernier inscrit
tmezni