Problème changement de feuille Excel

**Patouillou** · 27/08/2017, 14h43

Bonjour voici mon problème:

J'ai un useform qui me permet de remplir les rapports dans une autre feuille ("RAPPORT") avec les données de la première feuille ("RECAPITULATIF") . Et j'ai remarqué un problème lorsque j'ai modifié mon code de manière a sélectionner une cellule particulière dans ma feuille rapport : lorsque que je la modifie, il m'indique une erreur dans la feuille ("RECAPITULATIF") alors que je suis bien dans la feuille ("RAPPORT").... J'avais déja remarqué il y a longtemps que certaine cellule queje modifiais dans la feuille ("RAPPORT") se modifiais en fait dans ma feuille ("RECAPITULATIF")... J'ai donc compris que lorsque que je fermais mon userform pour les rapports , les données étaient correctement rangés, la feuille RAPPORT était bien sélectionnée mais dans le code , il était encore dans la première feuille RECAPITULATIF...
Je ne comprend pas pourquoi .. voici ci dessous le code de l'userform qui sélectionne la feuille et qui range les données:

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
Private Sub CommandButton4_Click()
 
ThisWorkbook.Worksheets("RAPPORT").Range("H10").Value = Me.TextBox15.Text
ThisWorkbook.Worksheets("RAPPORT").Range("G10").Value = Me.TextBox18.Text
ThisWorkbook.Worksheets("RAPPORT").Range("B9").Value = Me.TextBox5.Text
ThisWorkbook.Worksheets("RAPPORT").Range("G3").Value = Me.TextBox1.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C14").Value = Me.ComboBox6.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C15").Value = Me.TextBox7.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C10").Value = Me.TextBox2.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C16") = Me.TextBox17.Text
ThisWorkbook.Worksheets("RAPPORT").Range("D12").Value = Me.TextBox4
ThisWorkbook.Worksheets("RAPPORT").Range("D7").Value = Me.ComboBox3.Text
ThisWorkbook.Worksheets("RAPPORT").Range("G4").Value = Me.TextBox12.Text
ThisWorkbook.Worksheets("RAPPORT").Range("G5").Value = Me.TextBox13.Text
ThisWorkbook.Worksheets("RAPPORT").Range("A45").Value = Me.TextBox16.Text
ThisWorkbook.Worksheets("Données").Range("B43").Value = Me.TextBox16.Text
ThisWorkbook.Worksheets("RAPPORT").Range("H5").Value = Me.TextBox14.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C13").Value = ""
 
For Each ctrl In Me.Controls 'boucle sur tous les contrôles de l'userForm
    'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle CTRL
    'dans la cellule ligne LI colonne [Tag] (converti en entier) du contrôle, de l'onglet O
    If ctrl.Tag <> "" Then O.Cells(LI, CInt(ctrl.Tag)).Value = ctrl.Value
Next ctrl 'prochain contrôle de la boucle
 
 
 
 Sheets("RAPPORT").Activate
 
 ThisWorkbook.Worksheets("RAPPORT").Range("C13").Select
 
Unload Me 'vide et ferme l'UserForm

**QuestVba** · 27/08/2017, 20h38

Bonsoir,

Une question :

comment fonctionne le 'O' de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

O.Cells(LI, CInt(ctrl.Tag)).Value = ctrl.Value

**Patouillou** · 27/08/2017, 21h05

Il provient de luserform qui implémente mes données :

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
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
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
Private Sub CommandButton1_Click()
 
 
 
Chemin = Sheets("Données").Range("A30").Value
 
    If Chemin = "" Then
 
     If MsgBox("Aucun lien des HYD n'est enregistrer, voulez-vous en enregistrer un ?", vbYesNo, "Lien inéxistant") = vbYes Then
 
     UserForm11.Show
 
     Exit Sub
 
     Else
 
     MsgBox "Impossible de créer l'intervention"
 
     Exit Sub
 
     End If
 
     Else
 
 
 
Dim L As Integer
 
L = Sheets("RECAPITULATIF").Range("A65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
 
 
 
Dim O As Worksheet 'déclare la variable O (Onglet)
 
Dim TC As Variant 'déclare la variabe TC (Tableau de Cellules)
 
Dim NL As Integer 'déclare la varialbe NL (Nombre de Lignes)
 
Dim NC As Integer 'déclare la varialbe NC (Nombre de Colonnes)
 
Dim i As Integer 'déclare la variable I (Incrément)
 
Dim PL As Range 'déclare la varialbe PL (PLage)
 
 
Set O = Sheets("RECAPITULATIF") 'définit l'onglet O
 
TC = O.Range("A1").CurrentRegion 'définit le tableau de cellules TC
 
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
 
NC = UBound(TC, 2) 'définit le nombre de colonnes NC du tableau de cellules TC
 
Set PL = Range("A1") 'initialise la plage PL
 
Dim Trouve As Range, PlageDeRecherche As Range, Plage As Range
 
Dim Valeur_Cherchee As String, AdresseTrouvee As String
 
Dim u
 
Dim K
 
Valeur_Cherchee = ComboBox2.Value
 
u = Sheets("Données").Range("H" & Rows.Count).End(xlUp).Row
 
Set PlageDeRecherche = Sheets("Données").Range("H90: H" & u)
 
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
If Trouve Is Nothing Then
 
If MsgBox("Agence inconnus, voulez vous créer une nouvelle agence?", vbYesNo, "Demande de confirmation") = vbYes Then
 
        UserForm7.Show
 
 
 
Couleur = Sheets("Données").Range("I" & Rows.Count).End(xlUp).Value
 
Set PL = IIf(PL.Address = Couleur, O.Cells(L, 3).Resize(1, NC - 2), Application.Union(PL, O.Cells(L, 3).Resize(1, NC - 2)))
 
 
 
 
 
If Couleur = "$A$1" Then PL.Interior.Color = 5296274 'colore la plage PL de vert
 
If Couleur = "$B$1" Then PL.Interior.Color = 12611584 'colore la plage PL de Bleu foncé
 
If Couleur = "$C$1" Then PL.Interior.Color = 15773696 'colore la plage PL de Bleu clair
 
If Couleur = "$D$1" Then PL.Interior.Color = 49407 'colore la plage PL en jaune
 
If Couleur = "$E$1" Then PL.Interior.Color = 16777215 'colore la plage PL en blanc
 
If Couleur = "$F$1" Then PL.Interior.Color = 30719 'colore la plage PL en orange
 
If Couleur = "$G$1" Then PL.Interior.Color = 2270017 'colore la plage PL en vert foncé
 
 
 
        Else
 
Couleur = "$E$1"
 
   Set PL = IIf(PL.Address = Couleur, O.Cells(L, 3).Resize(1, NC - 2), Application.Union(PL, O.Cells(L, 3).Resize(1, NC - 2)))
 
   PL.Interior.Color = 16777215 'colore la plage PL de blanc
 
   End If
 
Else
 
K = Trouve.Row
 
 
 
Couleur = Sheets("Données").Range("I" & K)
 
 
 
Set PL = IIf(PL.Address = Couleur, O.Cells(L, 3).Resize(1, NC - 2), Application.Union(PL, O.Cells(L, 3).Resize(1, NC - 2)))
 
 
 
 
 
If Couleur = "$A$1" Then PL.Interior.Color = 5296274 'colore la plage PL de vert
 
If Couleur = "$B$1" Then PL.Interior.Color = 12611584 'colore la plage PL de Bleu foncé
 
If Couleur = "$C$1" Then PL.Interior.Color = 15773696 'colore la plage PL de Bleu clair
 
If Couleur = "$D$1" Then PL.Interior.Color = 49407 'colore la plage PL d'orange
 
If Couleur = "$E$1" Then PL.Interior.Color = 16777215 'colore la plage PL en blanc
 
If Couleur = "$F$1" Then PL.Interior.Color = 30719 'colore la plage PL en orange
 
If Couleur = "$G$1" Then PL.Interior.Color = 2270017 'colore la plage PL en vert foncé
 
End If
 
If MsgBox("Confirmez-vous l'ajout de ce nouveau suivi ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
 
Range("A" & L).Value = TextBox19
 
Range("C" & L).Value = ComboBox2
 
Range("D" & L).Value = TextBox5
 
Range("E" & L).Value = TextBox1
 
Range("F" & L).Value = ComboBox6
 
Range("G" & L).Value = TextBox7
 
Range("H" & L).Value = TextBox2
 
Range("I" & L).Value = TextBox3
 
Range("R" & L).Value = TextBox16
 
Range("K" & L).Value = ComboBox4
 
Range("L" & L).Value = ComboBox5
 
Range("M" & L).Value = TextBox11
 
Range("N" & L).Value = ComboBox3
 
Range("O" & L).Value = TextBox12
 
Range("P" & L).Value = TextBox13
 
Range("Q" & L).Value = TextBox14
 
Range("J" & L).Value = TextBox4
 
Range("S" & L).Value = TextBox17
 
Dim Crtl As Control
 
Dim r As Integer
 
Dim T As Integer
 
Dim DerLigne As Integer
 
 
 With Worksheets("RECAPITULATIF")
 
  DerLigne = .Range("B65536").End(xlUp).Row + 1
 
 
 
 
For Each Crtl In UserForm1.Controls
 
  r = Val(Crtl.Tag)
 
If r > 0 Then Feuil1.Cells(DerLigne, r) = Crtl
 
Next
 
 
 Feuil1.Cells(DerLigne, 2) = Val(TextBox15)
 
 
 
 
 
End With
 
End If
 
 
 
 
 
       Dim LeParcours As String, LeRep As String
 
 
    LeParcours = TextBox15.Value
 
    HYD = "HYD20" & Right(ComboBox7, 2)
 
 
 
        Dim FSO As Object, sNomDossier As String
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    sNomDossier = "HYD" & LeParcours
 
   Chemin = Sheets("Données").Range("A30").Value
 
     sChemin = Chemin & "\" & HYD & "/"
 
      If Not FSO.FolderExists(sChemin) Then
 
      FSO.CreateFolder (sChemin)
 
      sChemin = Chemin & "\" & HYD & "/" & sNomDossier & "/"
 
      If Not FSO.FolderExists(sChemin) Then FSO.CreateFolder (sChemin)
 
     Set FSO = Nothing
 
     Else
 
     sChemin = Chemin & "\" & HYD & "/" & sNomDossier & "/"
 
      If Not FSO.FolderExists(sChemin) Then FSO.CreateFolder (sChemin)
 
     Set FSO = Nothing
 
     End If
 
     End If
 
Range("B65536").End(xlUp).Select
 
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
 
        sChemin & "/"
 
TextToDisplay = sNomDossier
 
Range("B65536").End(xlUp).Font.Name = "Verdana"
 
 
 
Unload Me
 
 
 
End Sub

**Menhir** · 28/08/2017, 09h07

Envoyé par Patouillou

il m'indique une erreur dans la feuille ("RECAPITULATIF")^

Quel message d'erreur ?
Sur quelle ligne de code ?

Il provient de luserform qui implémente mes données :

Place un arrêt sur la ligne que t'a indiquée QuestVBA et regarde la valeur de "O".
Etant donné quelle est déclarée en privé dans un autre module, il a de grandes chances pour que la valeur soit Nothing.

Problème changement de feuille Excel

Excel

Discussions similaires

Partager

Partager