selection feuilles

[Alex]

Bonjour tout le monde


J'ai une userform qui posséde des checkbox correspondant aux années 2003-2004
2004-2005....
et je voudrais trouver une facon automatique pour executer mon code en fonction de
l'année choisi

voici une partie de code :

If CheckBox1.Value = True Then 'checkbox de l'année 2003-3004
'2003 2004

fiche_personnel.TextBox5.Text = Sheets("RTT 2003-2004").Range("c" & Ligne).Value

fiche_personnel.TextBox6.Text = Sheets("RTT 2003-2004").Range("e" & Ligne).Value

fiche_personnel.TextBox3.Text = Sheets("RTT 2003-2004").Range("d" & Ligne).Value

Je voudrai ne pas avoir a réécrire le code pour l'année 2004-2005... en changeant seulement "RTT 2003-2004" par "RTT 2004-2005"


Comment dois je faire??

Merci d'avance

 

[Robert]

Salut Alex, salut le forum,

Pourquoi pas ça :

Dim test as String
If CheckBox1.Value = True Then
test="2003-2004"
Else
test="2004-2005"

fiche_personnel.TextBox5.Text = Sheets("RTT " & test).Range("c" & Ligne).Value

fiche_personnel.TextBox6.Text = Sheets("RTT " & test).Range("e" & Ligne).Value

fiche_personnel.TextBox3.Text = Sheets("RTT " & test).Range("d" & Ligne).Value

À plus,

Robert

 

[bil]

c si simple ke ca ??
merci si ca marche