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

[mamarus1]

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

 

[job75]

Bonsoir mamarus1,

Ca pêche sur Set ôtez ce mot.

A+

 

[mamarus1]

Bonsoir Job75,
Je l'ai ôté, néanmoins il m'annonce " Erreur d’exécution 91 , variable objet ou variable de bloc with non définie"

Mamarus1

 

[Dranreb]

Bonsoir.
Auriez vous déclaré numpage As un type d'objet ?
Je ne vois que ça qui pourrait occasionner cette erreur dans le code que vous avez reproduit dans votre 1er message.

 

[Eric C]

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.

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

 

[Dranreb]

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 :

Sub AllerFiche()
   Sheets("Fiche " & Sheets("Suivi").Range("D1").Value).Activate
   End Sub

 

[Eric C]

Re,

Merci Dranreb. Encore trop de choses à comprendre et à savoir.
@+ Eric c

 

[Phil69970]

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

 

[mamarus1]

Bonjour et meilleurs voeux à tout le monde,
Avec un peu de retard, cela correspond à ce que je recherchai
Merci pour les explications
Cordialement,
Mamarus1

 

[Phil69970]

@mamarus1

En principe on valide le post qui correspond à la solution attendu pas son propre post. 😵
Car tu n'as rien trouvé du tout