Bonjour a tous,

Voila, j'ai un petit souci, je m'explique:

J'ai ce bout de code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Public Sub NouveauPuissanceActiveOK_Click()
TABPactive(1) = TBPerAcqG1.Text
TABPactive(2) = TBLimHG1.Text
TABPactive(3) = TBLimBG1.Text
TABPactive(4) = TBGradG1.Text
TABPactive(5) = TBCoefEchG1.Text
TABPactive(6) = TBTalG1.Text
TABPactive(7) = TBCoefFiltG1.Text
TABPactive(8) = TBNbAcqDefG1.Text
TABPactive(9) = TBAcqAutoDefG1.Text
TABPactive(10) = TBPerAcqG2.Text
TABPactive(11) = TBLimHG2.Text
TABPactive(12) = TBLimBG2.Text
TABPactive(13) = TBGradG2.Text
TABPactive(14) = TBCoefEchG2.Text
TABPactive(15) = TBTalG2.Text
TABPactive(16) = TBCoefFiltG2.Text
TABPactive(17) = TBNbAcqDefG2.Text
TABPactive(18) = TBAcqAutoDefG2.Text
TABPactive(19) = TBPerAcqG3.Text
TABPactive(20) = TBLimHG3.Text
TABPactive(21) = TBLimBG3.Text
TABPactive(22) = TBGradG3.Text
TABPactive(23) = TBCoefEchG3.Text
TABPactive(24) = TBTalG3.Text
TABPactive(25) = TBCoefFiltG3.Text
TABPactive(26) = TBNbAcqDefG3.Text
TABPactive(27) = TBAcqAutoDefG3.Text
TABPactive(28) = TBPerAcqG4.Text
TABPactive(29) = TBLimHG4.Text
TABPactive(30) = TBLimBG4.Text
TABPactive(31) = TBGradG4.Text
TABPactive(32) = TBCoefEchG4.Text
TABPactive(33) = TBTalG4.Text
TABPactive(34) = TBCoefFiltG4.Text
TABPactive(35) = TBNbAcqDefG4.Text
TABPactive(36) = TBAcqAutoDefG4.Text
TABPactive(37) = TBPerAcqG5.Text
TABPactive(38) = TBLimHG5.Text
TABPactive(39) = TBLimBG5.Text
TABPactive(40) = TBGradG5.Text
TABPactive(41) = TBCoefEchG5.Text
TABPactive(42) = TBTalG5.Text
TABPactive(43) = TBCoefFiltG5.Text
TABPactive(44) = TBNbAcqDefG5.Text
TABPactive(45) = TBAcqAutoDefG5.Text
 
NouveauPuissanceReactive.Show
Unload Me
 
 
End Sub
Vous remarquerez que j'ai écrit cinq fois la même chose, a un détail près

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
TABPactive(1) = TBPerAcqG1.Text
TABPactive(2) = TBLimHG1.Text
TABPactive(3) = TBLimBG1.Text
TABPactive(4) = TBGradG1.Text
TABPactive(5) = TBCoefEchG1.Text
TABPactive(6) = TBTalG1.Text
TABPactive(7) = TBCoefFiltG1.Text
TABPactive(8) = TBNbAcqDefG1.Text
TABPactive(9) = TBAcqAutoDefG1.Text
Le "G1" qui devient "G2" et ainsi de suit jusqu'a "G5".

J'ai essayé pas mal de concatenation et autre, mais rien n'y fait.

Donc je m'en remet a vous pour savoir s'il est possible de manipuler le nom d'un objet d'une feuille.

J'aurais juste voulu faire une boucle en changeant la fin du nom, car ceci n'est que 5% du code hyper repetitif que j'ai récupéré et qu'il me faut clarifier.

J'espère avoir été limpide

Merci d'avance.