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

job75

XLDnaute Barbatruc

• 22 Décembre 2023

• #2

Bonsoir mamarus1,

Ca pêche sur Set ôtez ce mot.

A+

 

Vote positif 0 Vote négatif

M

mamarus1

XLDnaute Nouveau

• 22 Décembre 2023

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Décembre 2023

• #4

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.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 31 Décembre 2023

• #5

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: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 31 Décembre 2023

• #6

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 31 Décembre 2023

• #7

Re,

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 31 Décembre 2023

• #8

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: 9

Vote positif 0 Vote négatif

M

mamarus1

XLDnaute Nouveau

• 5 Janvier 2024

• #9

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

 

Vote positif 0 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 5 Janvier 2024

• #10

@mamarus1

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

 

Vote positif 0 Vote négatif