Utiliser les variables dans d'autres variables

Version imprimable

Bonjour,

Ce sujet fait suite à celui ci.

J'ai un problème sur ce code... Il fonctionnait très bien jusqu'à présent parce que je j'avais renseigné les numéros de colonne (exemple : colonne numéro 20 pour "a = CStr(Cells(chc, 20))").
Mon tableau Excel a évolué et des colonnes sont régulièrement insérés dans le tableau, ce qui décale toutes les colonnes. J'ai cherché et trouvé la parade du "Find" pour me référer aux titres des colonnes plutôt qu'à leur adresse.
Ca fonctionne bien pour la première partie du code mais pas pour la suite :( Je ne vois pas pourquoi, pouvez vous m'aider avec cela ?

Code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
Sub Traitement1()
        'Transforme la plage en tableau
        Sheets("J P").Select
        Dim Ws As Worksheet
        Dim NomTable As String
        NomTable = "Table1"
        Set Ws = Worksheets("J P")
            With Ws
                .ListObjects.Add(xlSrcRange, .Range("$A$1").CurrentRegion, , xlYes).Name = NomTable
                .ListObjects(NomTable).TableStyle = "TableStyleLight9"
            End With
                'Compte le nombre de lignes de la Table1
                nblignes = Range("Table1").Rows.Count + 1
                Ctiti= Sheets("J P").Rows("1:1").Find("TITI", , xlValues, xlPart, xlByRows, xlNext, False).Column
            'Applique le format nombre aux cellules non vides de la colonne TITI
            Sheets("J P").Range(Cells(2, Ctiti), Cells(nblignes, Ctiti)).EntireColumn.SpecialCells(xlCellTypeConstants).NumberFormat = "0.00"
End Sub
__________________________________________________________________________________________________________________________
Sub Traitement2()
 
                'Variable a = Ligne chc ET colonne numéro 13
                Dim Ctoto As String, Ctata As String, Ctiti As String, Ctutu As String, Ctyty As String, Ctete As String, Ctoutou As String, Ctautau As String
 
                Ctoto= Sheets("J P").Rows("1:1").Find("TOTO", , xlValues, xlPart, xlByRows, xlNext, False).Column
                Ctata= Sheets("J P").Rows("1:1").Find("TATA", , xlValues, xlPart, xlByRows, xlNext, False).Column
                Ctiti= Sheets("J P").Rows("1:1").Find("TITI", , xlValues, xlPart, xlByRows, xlNext, False).Column
                Ctutu = Sheets("J P").Rows("1:1").Find("TUTU", , xlValues, xlPart, xlByRows, xlNext, False).Column
                Ctyty = Sheets("J P").Rows("1:1").Find("TYTY", , xlValues, xlPart, xlByRows, xlNext, False).Column
                Ctete = Sheets("J P").Rows("1:1").Find("TETE", , xlValues, xlPart, xlByRows, xlNext, False).Column
                Ctoutou = Sheets("J P").Rows("1:1").Find("TOUTOU", , xlValues, xlPart, xlByRows, xlNext, False).Column
                Ctautau = Sheets("J P").Rows("1:1").Find("TAUTAU", , xlValues, xlPart, xlByRows, xlNext, False).Column
 
                a = CStr(Cells(chc, Ctoto))
                'Variable b = Ligne chc ET colonne numéro 31
                b = CStr(Cells(chc, Ctata))
                c = CStr(Cells(chc, Ctiti))
                D = CStr(Cells(chc, Ctutu ))
 
                For chc = 2 To nblignes
                'SI cellule(ligne chc, colonne n°20) est vide, alors = 100
                If c = 0 Or c = Empty Or c = Null Then
                    Cells(chc, CQuotite) = "100"
                End If
                'SI Cellule A = 499040000, alors, Cellules(LigneCHC et Colonne n°Ctiti) = 100
                If a = "499040000" Then
                    Cells(chc, Ctiti) = "100"
                    'colorie la cellule en fond vert
                        With Cells(chc, Ctiti).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                'SI A = 1058020000 ou 1058040000 ou 652040000 ou15020000, alors Cellules(lignechc, colonne n°Ctiti) = 50
                ElseIf a = "1058020000" Or a = "1058040000" Or a = "652040000" Or a = "15020000" Then
                    Cells(chc, Ctiti) = "50"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, Ctiti).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                'Si a = 499010000 ou 499020000 ou 1577010000 ou 500910000 ou 500010000, alors Cellules(lignechc, colonne n°Ctoto = HP
                ElseIf a = "499010000" Or a = "499020000" Or a = "1577010000" Or a = "500910000" Or a = "500010000" Then
                    Cells(chc, Ctoto) = "HP"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, Ctoto).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    'alors, cellule(lignechc, colonne n°20) = 0
                    Cells(chc, Ctiti) = "0"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, Ctiti).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                'SI a = 500900000 ET b = CRPOFIHESDAC alors, Cellules(lignes chc, colonne n°20) = 0
                ElseIf a = "500900000" And b = "CRPOFIHESDAC " Then
                    Cells(chc, Ctiti) = "0"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, Ctiti).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    'alors cellule(ligne chc, colonne Ctyty )
                    Cells(chc, Ctyty ) = "HP"
                        With Cells(chc, CLibPlafDec).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
                'SI Cellule(ligne chc, colonne n°20) = "85.71" alors cellule (ligne chc, colonne n°Ctiti) = 80
                If c = "85.71" Then
                    Cells(chc, Ctiti) = "80"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, Ctiti).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
                'SI cellule(ligne chc, colonne n°41) est vide ET cellule(ligne chc, colonne n°42) est vide ET cellule(ligne chc, colonne n°43) est vide, alors cellule(ligne chc, colonne n°20 = 0
                If Cells(chc, Ctautau ) = "" And Cells(chc, CRCngFormNE) = "" And Cells(chc, CRApprt) = "" Then
                    Cells(chc, Ctiti) = "0"
                    'Colorie le fond de la cellule en vert
                       With Cells(chc, CQuotite).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    ',alors cellule(ligne chc, colonne n°27) = HP
                    Cells(chc, Ctautau ) = "HP"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, CLibPlafDec).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
                If D = Empty Or D = Null Then
                    Cells(chc, CLibPlafDec).Value = Cells(chc, CLibPlafEmp).Value
                'SI cellule(ligne chc, colonne n°27) est vide alors Cellule(ligne chc, colonne n°27) est égal à cellule (ligne chc, colonne n°26)
                End If
                If c = "0" Then
                    Cells(chc, Ctautau ) = "HP"
                        With Cells(chc, CLibPlafDec).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
            Next chc
            For varble1 = 2 To nblignes
                If Cells(varble1, Ctiti) = "0" Then
                    Cells(varble1, Ctautau ) = "HP"
                        With Cells(varble1, Ctautau ).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
            Next varble1
            Set a = Nothing
            Set b = Nothing
            Set c = Nothing
            Set D = Nothing
            Set nblignes = Nothing
 
 
End Sub

Merci d'avance,

Cordialement,

17/02/2016, 10h11
Minise

essaie de mettre tes variables Ctoto, Ctati, Ctonton etc. en Long au lieu de String l'indice de colonne que renvoie ton find est un nombre et pas du texte
17/02/2016, 10h28
Stanler

Bonjour,

Merci de ta réponse :)
J'ai donc changé le String par un Long.
Il n'y a pas eu d'effet sur l'exécution du code :(

Est ce que ce que je souhaite est techniquement possible ? Ce serait merveilleux, mais sinon je pourrais trouver une autre parade. ^^
17/02/2016, 10h33
Minise

explique un peu plus le problème : quand tu dis ça que ça fonctionne pas : y'a un message d'erreur ? sur quelle ligne ? que dit l'erreur ?
17/02/2016, 10h38
Marc-L

Bonjour,

s'il s'agit de trouver des titres de colonnes,
utiliser par exemple la fonction de feuille de calculs EQUIV, Application.Match en VBA …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Citation:

explique un peu plus le problème : quand tu dis ça que ça fonctionne pas : y'a un message d'erreur ? sur quelle ligne ? que dit l'erreur ?

Il n'y a pas de message d'erreur, la macro ne change pas les cellules qu'elle devrait changer. Elle s'arrête sans exécuter les deux "For next".

Ce que je souhaite, c'est que la macro détecte toute seule la colonne qui s'appelle "TOTO" et qu'elle agisse sur celle-ci sans que je doive écrire son numéro de colonne ou sa lettre de colonne. (Car le tableau évolue tous les mois)

Citation:

Bonjour,

s'il s'agit de trouver des titres de colonnes,
utiliser par exemple la fonction de feuille de calculs EQUIV, Application.Match en VBA …

Bonjour Marc,
Merci pour ta réponse, oui c'est cela que je souhaite : Trouver les titres de colonnes, puis en extraire le numéro de colonne et enfin l'utiliser dans une autre variable.
Penses tu que la fonction FIND ne fonctionne pas ? J'ai un autre code qui, lui, fonctionne très bien :
Code:

1 2 3 4 5 6 Sheets("J P").Select Cyoyo= Rows("1:1").Find("YOYO", , xlValues, xlWhole, , , False).Column Columns(Cyoyo).Columns.ClearContents Cells(1, Cyoyo) = "YOYO" Cells(2, Cyoyo).FormulaLocal = "=RECHERCHEV(A2;'feuille2'!A:AO;34;FAUX)" Set Cyoyo= Nothing

17/02/2016, 12h03
Marc-L

Pas de souci avec la méthode Find en lui passant les bons paramètres et en contrôlant le résultat
comme dans l'exemple dans l'aide VBA interne …

EQUIV est juste une autre manière à envisager.
17/02/2016, 12h31
Stanler

D'accord, et dans mon cas, pourquoi ma méthode FIND ne fonctionne pas ? :( Ou est ce autre chose qui ne va pas ? Si je comprends bien ce que tu dis, je devrais essayer avec Equiv ?

bonjour tu trouvera ta réponse dans ce lien!
http://www.developpez.net/forums/d15...r/#post8536078
Code:

1 2 3 4 5 6 'Appretissage du N° de colonnes par entête For C = 1 To ActiveSheet.Range("A1").CurrentRegion.Columns.Count Entete.Add C, ActiveSheet.Cells(1, C).Text Next Cells(chc, Entete("TOTO"))="rr"

Bonjour,

Je viens de réussir ce que je cherchais à faire ! :) J'ai finalement utilisé uniquement la fonction Find, mais le lien de rdurupt m'a beaucoup aidé ^^ Je pense que je devais essentiellement bien comprendre comment je voulais que ça fonctionne :)

Pour les prochains qui voudront faire la même chose, voici mon code :

Code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
Sub Traitement2()
        Sheets("J P").Select
'Je suis déjà en mode tableau et pas en mode plage.
                nblignes = Range("Table1").Rows.Count + 1
                For chc = 2 To nblignes
                Col1= Rows("1:1").Find("Titre1", , xlValues, xlWhole, , , False).Column '15 => Numéros théoriques des colonnes qui bougent d'un mois à l'autre
                Col2= Rows("1:1").Find("Titre2", , xlValues, xlWhole, , , False).Column '22
                Col3= Rows("1:1").Find("Titre3", , xlValues, xlWhole, , , False).Column '28
                Col4= Rows("1:1").Find("Titre4", , xlValues, xlWhole, , , False).Column '29
                Col5= Rows("1:1").Find("Titre5", , xlValues, xlWhole, , , False).Column '34
                Col6= Rows("1:1").Find("Titre6", , xlValues, xlWhole, , , False).Column '44
                Col7= Rows("1:1").Find("Titre7", , xlValues, xlWhole, , , False).Column '45
                Col8= Rows("1:1").Find("Titre8", , xlValues, xlWhole, , , False).Column '46
                If Cells(chc, Col2) = 0 Or Cells(chc, ColQuotite) = Empty Or Cells(chc, Col2) = Null Then
                    Cells(chc, Col2) = "100"
                End If
                'SI Cellule A = 499040000, alors, Cellules(LigneCHC et Colonne n°20) = 100
                If Cells(chc, Col3) = "499040000" Then
                    Cells(chc, Col2) = "100"
                    'colorie la cellule en fond vert
                        With Cells(chc, Col2).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                'SI A = 1058020000 ou 1058040000 ou 652040000 ou15020000, alors Cellules(lignechc, colonne n°20) = 50
                ElseIf Cells(chc, ColCdGd) = "1058020000" Or Cells(chc, ColCdGd) = "1058040000" Or Cells(chc, ColCdGd) = "652040000" Or Cells(chc, ColCdGd) = "15020000" Then
                    Cells(chc, Col2) = "50"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, Col2).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                'Si a = 499010000 ou 499020000 ou 1577010000 ou 500910000 ou 500010000, alors Cellules(lignechc, colonne n°27 = Hors Plafond
                ElseIf Cells(chc, ColCdGd) = "499010000" Or Cells(chc, ColCdGd) = "499020000" Or Cells(chc, ColCdGd) = "1577010000" Or Cells(chc, ColCdGd) = "500910000" Or Cells(chc, ColCdGd) = "500010000" Then
                    Cells(chc, ColLPED) = "HORS PLAFOND"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, ColLPED).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    'alors, cellule(lignechc, colonne n°20) = 0
                    Cells(chc, Col2) = "0"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, 22).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                'SI a = 500900000 ET b = CpRDAC alors, Cellules(lignes chc, colonne n°20) = 0
                ElseIf Cells(chc, ColCdGd) = "500900000" And Cells(chc, ColCtrCts) = "CPRDAC" Then
                    Cells(chc, Col2) = "0"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, ColQuotite).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    'alors cellule(ligne chc, colonne n°27)
                    Cells(chc, ColLPED) = "HORS PLAFOND"
                        With Cells(chc, ColLPED).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
                'SI Cellule(ligne chc, colonne n°20) = "85.71" alors cellule (ligne chc, colonne n°20) = 80
                If Cells(chc, Col2) = "85.71" Then
                    Cells(chc, Col2) = "80"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, Col2).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
                'SI cellule(ligne chc, colonne n°41) est vide ET cellule(ligne chc, colonne n°42) est vide ET cellule(ligne chc, colonne n°43) est vide, alors cellule(ligne chc, colonne n°20 = 0
                If Cells(chc, Col5) = "" And Cells(chc, Col6) = "" And Cells(chc, Col7) = "" Then
                    Cells(chc, Col2) = "0"
                    'Colorie le fond de la cellule en vert
                       With Cells(chc, 22).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    ',alors cellule(ligne chc, colonne n°27) = Hors plafond
                    Cells(chc, ColLPED) = "HORS PLAFOND"
                    'Colorie le fond de la cellule en vert
                        With Cells(chc, ColLPED).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
                If Cells(chc, ColLPED) = Empty Or Cells(chc, ColLPED) = Null Then
                    Cells(chc, ColLPED).Value = Cells(chc, ColLPE).Value
                'SI cellule(ligne chc, colonne n°27) est vide alors Cellule(ligne chc, colonne n°27) est égal à cellule (ligne chc, colonne n°26)
                End If
                If Cells(chc, Col2) = "0" Then
                    Cells(chc, ColLPED) = "HORS PLAFOND"
                        With Cells(chc, ColLPED).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
            Next chc
            For varble1 = 2 To nblignes
                If Cells(varble1, Col2) = "0" Then
                        With Cells(varble1, ColQuotite).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    Cells(varble1, ColLPED) = "HORS PLAFOND"
                        With Cells(varble1, ColLPED).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092288
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                End If
            Next varble1
End Sub

Les noms de variables ont été changées, il faut les adapter si vous souhaitez réutiliser ce code.

Merci Minise, Marc et rdurupt !