Je n'arrive pas à ateindre une feuille à partir de son nom mis ds une variable

[Yves]

Encore moi …!

Bonjour à tous de ce géantissime FORUM

' Voilà où j'en suis; et cette partie là fonctionne bien.

Sub Bouton1_QuandClic()

HAUTEUR = Range("Feuil1!B5") '(Donnée récupérée dans un USF)
LARGEUR = Range("Feuil1!A5") '(Donnée récupérée dans un USF)

Range("D10").Value = Worksheets("TARIF1").Cells(HAUTEUR, LARGEUR)


' Mais voici ce que j'aimerais pouvoir faire:

'BASE = 1 ou 2 et c...

'Range("D10").Value = Worksheets("TARIF [BASE] ").Cells(HAUTEUR, LARGEUR)


' Ou éventuellement le nom complet:

'BASE = TARIF1 ou TARIF2 et c...

'Range("D10").Value = Worksheets("[BASE]").Cells(HAUTEUR, LARGEUR)

D'avance merci à tous et bon Week-end valentinesque.


P.S. Petit coucou sympa à Jean Marie, s'il me lit.
Il se souviendra sans doute des "INDEX" et "EQUIV" de la recherche dans un abaque !

 

[omicron]

Bonjour Yves

Tu peux essayer :
Range("D10").Value = Worksheets("TARIF" & Base).Cells(HAUTEUR, LARGEUR)

Cela devrait marcher

Cordialement ...

 

[Yves]

Merci beaucoup,

j'avais soupçonné les possiblités de "&" mais pas osé...!

Je viens de gagner vachement de pages de "If..then"
et des imbroglios qui s'en suivent.

Sympa à toi, cela marche.

Maintenant je poursuis en cherchant comment incorporer
des formules mathématiques dans les macros.

Bon Week-end.
et adorable Valentine