Y
Yves
Guest
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 !
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 !