Application de range.row dans un range d'une formule

Version imprimable

Bonjour a vous,

JE suis en train de trouver une alternative a une boucle afin d'optimiser un code. Pour des données "fixe" j'utilisent maintenant les filtres avancées mais ou que je bug c'est lorsque je fait référence a une adresse dans une formule.

Dans ma boucle j'avais cette section si qui m'intéresse dans mon cas présent
Code:

1 2 3 4 5 6 7 8 9 10 11 For Each produit_a_creer In feuille_mandatAValider.Range(LettreVoulue & 2, LettreVoulue & LastLignUsedInColumn(LettreVoulue)) x = x + 1 feuille_creation.Cells(x + 1, feuille_creation.Range("item_etab_moulinette").Column) = _ rmultUnique(feuille_creation.Cells(x + 1, feuille_creation.Range("ID").Column), _ feuille_revise.Range("B2:t" & LastLignUsedInSheet_Column("tmp_MoulinetteRévisée", "a") + 1), 5) Next produit_a_creer
Dont rmultUnique est une fonction similaire a la recherchev permettant d'avoir tout les données possible et ce sans la répétition de la même réponse si celle-ci apparaît plus qu'une fois.

J'arrive au code suivant si j'applique la fonction à la cellule situer à la position 2 de la colonne "item_etab_moulinette" et d'autre permettant de trouver la lettre de la colonne et la derniere ligne utilisé d'une feuille
Code:

1 2 3 4 feuille_creation.Range(TrouveLettreColonne(Range("item_etab_moulinette")) & 2) = _ rmultUnique(feuille_creation.Range(TrouveLettreColonne([ID]) & 2), _ feuille_revise.Range("B2:t" & LastLignUsedInSheet_Column("tmp_MoulinetteRévisée", "a") + 1), 5)
Jusqu'à présent je n'ai aucun problème. Mais je veux appliquer le code à une grande plage sois de la deuxieme ligne de la colonne "item_etab_moulinette" jusqu'à la dernière

Ce qui me donne ceci toujours avec mes fonctions
Code:

1 2 3 feuille_creation.Range((TrouveLettreColonne([item_etab_moulinette]) & 2), TrouveLettreColonne([item_etab_moulinette]) _ & LastLignUsedInSheet_Column("Demande de création", "B")) = rmultUnique(feuille_creation.Range(TrouveLettreColonne([ID]) & 2), _ feuille_revise.Range("B2:t" & LastLignUsedInSheet_Column("tmp_MoulinetteRévisée", "a") + 1), 5)
LE seul hic que j'ai présentement c'est que je veux remplacer la valeur fixe 2 (en rouge et en gras dans le code) par la référence de sont emplacement de ligne i.e. la ligne 3 le 2 est remplacer par 3, la ligne 4 le 2 est un 4, etc ...

J'ai été donc lire l'aide sur la propriété range.row ...

Est-ce que je peux affecter une variable correspondant a la row sans faire de boucle ???

ou dois-je absolument faire comme mon exemple du début a fin de "populer" la variable ????

un gros merci pour votre temps et aide

Function pour trouver la ligne voulue

Bonjour,

Voilà un exemple avec une fonction simple (pour la fonction, la partie Optional par défaut est à 0 =>xlWhole, mettre 1 pour xlPart --------> voir exemple Sub)

sdsd k dsdsd

12/09/18

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub TestLigne()
Dim R As Range, Lig As Long
    Set R = Sheets("Feuil1").Range("A1:A27")
 
    Lig = Trouve_Lig("K", R)
    MsgBox IIf(Lig > 0, "La ligne est " & Lig, "Aucune ligne trouvée")
 
    Lig = Trouve_Lig("K", R, 1)
    MsgBox IIf(Lig > 0, "La ligne est " & Lig, "Aucune ligne trouvée")
 
    Lig = Trouve_Lig(CDate("12/9/2018"), R)
    MsgBox IIf(Lig > 0, "La ligne est " & Lig, "Aucune ligne trouvée")
 
    Lig = Trouve_Lig("T", R)
    MsgBox IIf(Lig > 0, "La ligne est " & Lig, "Aucune ligne trouvée")
 
    Lig = Trouve_Lig(Sheets("Feuil1").Range("A23"), R)
    MsgBox IIf(Lig > 0, "La ligne est " & Lig, "Aucune ligne trouvée")
 
    Set R = Nothing
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Function Trouve_Lig(ValChercher, ByRef Plage As Range, Optional xlWP As Integer = 0) As Long
Dim Ligne As Range
    TabxlWholePart = Array(xlWhole, xlPart)
 
            Set Ligne = Plage.Find(what:=ValChercher, Lookat:=TabxlWholePart(xlWP))
            If Not Ligne Is Nothing Then
                Trouve_Lig = Ligne.Row
            Else
                Trouve_Lig = 0
            End If
End Function

Je te laisse l'adapter

31/10/2018, 20h51
jpvba

Un gros merci, cher ami

j'y jette un oeil :lol::D;)

Devrais je plutôt copier la formule contenant la variable jusque à la fin tel que l'on ferais sans utilisé vba ???

Je ne sais pas si cela m'éviterais le casse-tête de où pointer ???

Edit 1 :

J'ai fais une tentative avec l'enregistreur de macro mais le code ne foncitonne absolument pas si il est réexécuter
Code:

1 2 3 4 5 ' Range("P2").Select ' ActiveCell.FormulaR1C1 = _ ' "=rmultUnique(RC[3],tmp_MoulinetteRévisée!R2C2:R2367C20,5)" ' Selection.AutoFill Destination:=Range("P2:P300") ' Range("P2:P300").Select
à suivre ...

Donc apres quelque plusieurs manipulation je suis arriver avec ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 Set item_etab_utilise = Sheets("Demande de création").Range(TrouveLettreColonne([item_etab_moulinette]) & 2, TrouveLettreColonne([item_etab_moulinette]) _ & (LastLignUsedInSheet_Column(("Demande de création"), (TrouveLettreColonne([ID]))))) With Sheets("Demande de création") .Range(TrouveLettreColonne([item_etab_moulinette]) & 2).FormulaR1C1 = "=rmultUnique(RC[3],zone_recherche,5)" .Range(TrouveLettreColonne([item_etab_moulinette]) & 2).AutoFill _ Destination:=item_etab_utilise end with item_etab_utilise = item_etab_utilise.value
J'ai un gain de vitesse phénoménale versus la boucle.

La seul chose que je "n'aime pas du code c'est que je fais référence à un positionnement fixe et non relatif. Au lieu de RC[3] je voudrais inscrire un nom de plage ou une différence.

Est-ce que c'Est possible au cas où que l'on ajoute une colonne ???

en vous remerciant

P.S. Ryu Je vais faire ton même principe au niveau de la régénération i.e. ne pas tout détruire mais seulement ajouté !!!

Ton explication et ton aide est très pratique pour plusieurs sauces !!!

merci encore pour ton aide précieuse !!!!

02/11/2018, 16h47
RyuAutodidacte

Re,

Si tu pouvais faire des explications plus simple en évitant, dans un 1er temps de faire des codes avec des champs nommés mais avec les références type A1,
De plus TrouveLettreColonne => à quoi cela te sert ?? T'es pas censé connaître les colonnes concernées, non ?

Un exemple simple à l'exactitude des conditions réelles sont parfois mieux que des explications dont on ne comprend pas forcément tout (les gens ne connaissent pas comment est fait ton fichier)
Il manque aussi du code …

Mais le mieux à mon avis c'est que tu reviennes avec du code sans champs nommés - voir un exemple de ce que tu as au début et le résultat final
trop de champs nommés tue les champs nommés !
le but c'est que cela soit le plus lisible possible
les questions à ce poser :
- qu'est ce que je veux faire ?
- quel est l'action appropriée ?
- quel est la façon la plus logique et la plus simple de faire le code

Revois les commentaires pour faire le code sur les filtres élaborés, voit comme cela est plus concis … …

Bonjour Ryu,

Merci pour le commentaire, j'en prends bonne note. Il m'est très dur pour moi de donné de l'info. Parfois j'ai peur d'en donné trop et que je mêle les gens et d'un autre part j'ai parfois des données qui sont confidentielle (c'Est pour cette raison lors de mon dernier poste que les champs était bizarre comme nom et comme valeur). JE vais tenter de m'adapter dans le future. Également ne pas vous gêner si vous avez besoins de plus d'information ou d'un autre façon de décrire la situation ou problème en couru.

Effectivement il est plus simple de faire des codes avec des références fixes. Ce que je tente faire c'Est d'éviter que si il y a un mouvement de colonne que le code ne fonctionne plus. Il y a quelque personne qui risque de joué avec les colonnes et peut être d'autre seront ajoutés dans le futures.

Le TrouveLettreColonne, je sais hypothétiquement au départ que la colonne est à la position A mais il se peut qu'elle deviens B ou C. Donc je veux cette colonne peut importe son emplacement.

JE connais sont nom mais pas son emplacement final.

Donc le code TrouveLettreColonne est

Code:

1
2
3
4
5
Public Function TrouveLettreColonne(ByVal ColonneCherche As Range)
 
TrouveLettreColonne = Split(Columns(ColonneCherche.Column).Address(ColumnAbsolute:=False), ":")(1)
 
End Function

qui permet de trouver son emplacement.

Je joue présentement une carte "politique" en faisant ainsi. Dans un milieu que la technologie est "Satan" mais finalement plus que l'on en donne moins que l'on veux en faire ... Je me complique parfois la vie mais juste assez pour pouvoir faire passer la pilule au niveau des utilisateur. Mon but est de les outiller et éviter d'avoir de la poussière dans les engrenages. Une fois la pilule avaler il est plus facile d'amener des concepts plus rigides dont vous ne déborder pas les limites sinon vous court-circuiter la patente. Je laisse du lousse dans la corde dans ce code mais certains future seront a ma façon ...

JE vais également en discuté à l'interne concernant les champs nommées ... On travail parfois en silo et ce qui est une mauvaise pratique. Peut-être il est maintenant d'etre plus rigide et d'éviter de pencher au caprice ...

Merci pour le commentaire cela me cause questionnement, raisonnement et rationalisation ... Ce qui est une bonne chose.

Je vous tiens au courant

amicalement JP

edit 1 :

A titre d'info voici mon code complet (ou complexe)

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
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
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
Sub genere_formulaire_creation_modif()
 
On Error GoTo errorhandler:
 
Dim start As Single
Dim finish As Single
 
Dim creation As Range
 
Dim modif_reg As Range
Dim modif_prov As Range
Dim modif_fcg As Range
 
Dim feuille_creation As Worksheet 'ne peux la setté immédiatement car n'est pas déjà présent
Dim feuille_modif_reg As Worksheet 'ne peux la setté immédiatement car n'est pas déjà présent
Dim feuille_modif_prov As Worksheet 'ne peux la setté immédiatement car n'est pas déjà présent
 
 
Dim nom_fichier As Workbook
    Set nom_fichier = ActiveWorkbook
Dim wbmodele As Workbook
 
Dim feuille_exist As Variant
Dim feuille_choisi As Variant
 
Dim x As Long
Dim sequence_unique As Variant
 
Dim item_etab_utilise As Range
Dim desc_prov_utilise As Range
Dim format_p_utilise As Range
Dim nom_fourn_utilise As Range
Dim num_prod_utilise As Range
 
 
start = Timer
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
'Validation si l'onglet R_ItemsPourMandatAValider est existant
 
If sheetExists("R_ItemsPourMandatAValider") = False Then
    MsgBox "Aucun onglet R_ItemsPourMandatAValider n'a été trouvé !", vbCritical
    Exit Sub
End If
 
'validation si l'onglet des demandes sont existant et destructions de ceux-ci !!!
 
feuille_exist = Array(("Demande de création"), ("Liste_Sous_Groupe_Validation"), _
                      ("Liste_Famille"), ("Liste_Classe_Validation"), ("NOMS"), _
                      ("Liste_Groupe_Validation"), ("Demande modif reg seulement"), _
                      ("Demande modif prov"), ("filtre"))
 
 
For Each feuille_choisi In feuille_exist
 
If sheetExists(feuille_choisi) = True Then
   Sheets(feuille_choisi).Visible = xlSheetVisible
   Sheets(feuille_choisi).Delete
End If
 
Next feuille_choisi
 
'une fois supprimer on enleve les reference dans le gestionnaire de noms
 
supprNomRef
 
'on crée la feuille de filtre
 
    Sheets.Add.Name = "filtre"
 
    Sheets("filtre").Range("a1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([creation_ou_modif]) & 1)
    Sheets("filtre").Range("d1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([descr_desire]) & 1)
    Sheets("filtre").Range("e1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([format_desire]) & 1)
    Sheets("filtre").Range("f1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([no_item_valider]) & 1)
    Sheets("filtre").Range("g1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([seq_valider]) & 1)
    Sheets("filtre").Range("h1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([f_valider]) & 1)
    Sheets("filtre").Range("i1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([c_valider]) & 1)
    Sheets("filtre").Range("j1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([g_valider]) & 1)
    Sheets("filtre").Range("k1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([sg_valider]) & 1)
    Sheets("filtre").Range("l1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([ancien_reg]) & 1)
    Sheets("filtre").Range("m1") = Sheets("R_ItemsPourMandatAValider").Range(TrouveLettreColonne([ancien_prov]) & 1)
 
'on nomme la plage de départ afin de facilité le code
 
    Sheets("R_ItemsPourMandatAValider").Range("a2").CurrentRegion.Name = "plage_depart"
 
'on nomme la plage de destination afin de facilité le code
 
    Sheets("filtre").Range("d2").CurrentRegion.Name = "destination"
 
 
'On nomme la zone de rmultunique pour facilité le code
 
    Sheets("tmp_MoulinetteRévisée").Range("b2:t" & LastLignUsedInSheet("tmp_MoulinetteRévisée")).Name = "zone_recherche"
 
 
'validation si il y a des demandes de créations
 
Set creation = Range("creation_ou_modif").Find("Création", LookAt:=xlWhole)
 
If creation Is Nothing Then
 
    MsgBox "Aucune création n'a été trouvé"
 
Else
 
'Si il ya des demandes de créations ouvrir le fichier modele de création et copié l'onglet dans le fichier
 
    Workbooks.Open ("\\10.38.217.183\interGACs\FICHIER_SYSTEME\Macros\Demande de création de produits.xlsm")
 
    Set wbmodele = ActiveWorkbook
 
    wbmodele.Sheets("Feuil1").Copy Before:=nom_fichier.Sheets(1)
 
'rendre visible les feuilles veryhidden
 
    With Workbooks("Demande de création de produits.xlsm")
        .Sheets("Liste_Sous_Groupe_Validation").Visible = xlSheetVisible
        .Sheets("Liste_Famille").Visible = xlSheetVisible
        .Sheets("Liste_Classe_Validation").Visible = xlSheetVisible
        .Sheets("NOMS").Visible = xlSheetVisible
        .Sheets("Liste_Groupe_Validation").Visible = xlSheetVisible
 
'copier le feuilles dans le fichier
 
        wbmodele.Sheets("Liste_Sous_Groupe_Validation").Copy After:=nom_fichier.Sheets("Feuil1")
        wbmodele.Sheets("Liste_Famille").Copy After:=nom_fichier.Sheets("Feuil1")
        wbmodele.Sheets("Liste_Classe_Validation").Copy After:=nom_fichier.Sheets("Feuil1")
        wbmodele.Sheets("NOMS").Copy After:=nom_fichier.Sheets("Feuil1")
        wbmodele.Sheets("Liste_Groupe_Validation").Copy After:=nom_fichier.Sheets("Feuil1")
 
    End With
 
'fermer le fichier demande de création sans le sauvegarder
 
    ThisWorkbook.Saved = False
    Workbooks("Demande de création de produits.xlsm").Close
 
'rendre les feuilles copie veryhidden
 
    Sheets("Liste_Sous_Groupe_Validation").Visible = xlSheetVeryHidden
    Sheets("Liste_Famille").Visible = xlSheetVeryHidden
    Sheets("Liste_Classe_Validation").Visible = xlSheetVeryHidden
    Sheets("NOMS").Visible = xlSheetVeryHidden
    Sheets("Liste_Groupe_Validation").Visible = xlSheetVeryHidden
 
'on le renomme Demande de création
 
    Sheets("Feuil1").Name = "Demande de création"
 
'on le set afin de pouvoir faire fonctionné la variable
 
    Set feuille_creation = Sheets("Demande de création")
 
'pour on inscrit création dans la feuille filtre
 
    Sheets("filtre").Range("a2") = "Création"
 
'copie des informations dans la feuille filtre
 
    Sheets("R_ItemsPourMandatAValider").Range("plage_depart").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Sheets("filtre").Range("A1:a2"), CopyToRange:=Sheets("filtre").Range("destination"), Unique:=False
 
'copie des description du filtre dans la demande de création ainsi que la description du format et numéro de séquence
 
    Sheets("filtre").Range("d2:d" & LastLignUsedInSheet_Column("filtre", "D")).Copy _
    Sheets("Demande de création").Range(TrouveLettreColonne(Range("desc_prov_long")) & 2)
 
    Sheets("filtre").Range("d2:d" & LastLignUsedInSheet_Column("filtre", "D")).Copy _
    Sheets("Demande de création").Range(TrouveLettreColonne(Range("desc_reg_long")) & 2)
 
    Sheets("filtre").Range("e2:e" & LastLignUsedInSheet_Column("filtre", "E")).Copy _
    Sheets("Demande de création").Range(TrouveLettreColonne(Range("desc_format")) & 2)
 
    Sheets("filtre").Range("g2:g" & LastLignUsedInSheet_Column("filtre", "g")).Copy _
    Sheets("Demande de création").Range(TrouveLettreColonne(Range("ID")) & 2)
 
'on set les range afin de facilité le travail
 
Set item_etab_utilise = Sheets("Demande de création").Range(TrouveLettreColonne([item_etab_moulinette]) & 2, TrouveLettreColonne([item_etab_moulinette]) _
                        & (LastLignUsedInSheet_Column(("Demande de création"), (TrouveLettreColonne([ID])))))
 
 
Set desc_prov_utilise = Sheets("Demande de création").Range(TrouveLettreColonne([desc_prov_moulinette]) & 2, TrouveLettreColonne([desc_prov_moulinette]) _
                        & (LastLignUsedInSheet_Column(("Demande de création"), (TrouveLettreColonne([ID])))))
 
 
Set format_p_utilise = Sheets("Demande de création").Range(TrouveLettreColonne([format_P]) & 2, TrouveLettreColonne([format_P]) _
                        & (LastLignUsedInSheet_Column(("Demande de création"), (TrouveLettreColonne([ID])))))
 
 
Set nom_fourn_utilise = Sheets("Demande de création").Range(TrouveLettreColonne([nom_fourn]) & 2, TrouveLettreColonne([nom_fourn]) _
                        & (LastLignUsedInSheet_Column(("Demande de création"), (TrouveLettreColonne([ID])))))
 
 
Set num_prod_utilise = Sheets("Demande de création").Range(TrouveLettreColonne([num_prod]) & 2, TrouveLettreColonne([num_prod]) _
                        & (LastLignUsedInSheet_Column(("Demande de création"), (TrouveLettreColonne([ID])))))
 
 
'on fais les rmultunique et on les copie dans la colonne entiere
 
With Sheets("Demande de création")
 
     .Range(TrouveLettreColonne([item_etab_moulinette]) & 2).FormulaR1C1 = "=rmultUnique(RC[3],zone_recherche,5)"
     .Range(TrouveLettreColonne([item_etab_moulinette]) & 2).AutoFill _
     Destination:=item_etab_utilise
 
 
     .Range(TrouveLettreColonne([desc_prov_moulinette]) & 2).FormulaR1C1 = "=rmultUnique(RC[2],zone_recherche,16)"
     .Range(TrouveLettreColonne([desc_prov_moulinette]) & 2).AutoFill _
     Destination:=desc_prov_utilise
 
 
     .Range(TrouveLettreColonne([format_P]) & 2).FormulaR1C1 = "=rmultUnique(RC[1],zone_recherche,18)"
     .Range(TrouveLettreColonne([format_P]) & 2).AutoFill _
     Destination:=format_p_utilise
 
 
     .Range(TrouveLettreColonne([nom_fourn]) & 2).FormulaR1C1 = "=rmultUnique(RC[-1],zone_recherche,10)"
     .Range(TrouveLettreColonne([nom_fourn]) & 2).AutoFill _
     Destination:=nom_fourn_utilise
 
 
     .Range(TrouveLettreColonne([num_prod]) & 2).FormulaR1C1 = "=rmultUnique(RC[-2],zone_recherche,12)"
     .Range(TrouveLettreColonne([num_prod]) & 2).AutoFill _
     Destination:=num_prod_utilise
 
 
End With
 
    'on transpose les formule en valeurs
 
    item_etab_utilise = item_etab_utilise.value
    desc_prov_utilise = desc_prov_utilise.value
    format_p_utilise = format_p_utilise.value
    nom_fourn_utilise = nom_fourn_utilise.value
    num_prod_utilise = num_prod_utilise.value
 
 
    'on nettoie la feuille de filtre pour les demandes de modif.
 
    Sheets("filtre").Range("a2:m" & LastLignUsedInSheet_Column("filtre", "D")).Delete
 
End If
 
 
'validation si il y a des modifications régionnale
 
Set modif_reg = Range("creation_ou_modif").Find("Modif. Desc. Rég. seul.", LookAt:=xlWhole)
 
If modif_reg Is Nothing Then
 
    MsgBox "Aucune modification de descriptions régionnale seulement n'a été trouvé"
 
Else
 
'Si il ya des demandes de modification ouvrir le fichier modele de modification et copié l'onglet dans le fichier
 
    Workbooks.Open ("\\10.38.217.183\interGACs\FICHIER_SYSTEME\Macros\Demande de modification de produits.xlsm")
 
    Set wbmodele = ActiveWorkbook
 
    wbmodele.Sheets("Travail").Move Before:=nom_fichier.Sheets(1)
 
 
    ThisWorkbook.Saved = False
    Workbooks("Demande de modification de produits.xlsm").Close
 
 
'on le renomme Demande de création
 
    Sheets("Travail").Name = "Demande modif reg seulement"
 
'on le set afin de pouvoir faire fonctionné la variable
 
    Set feuille_modif_reg = Sheets("Demande modif reg seulement")
 
'on écrit Modif. Desc. Rég. seul. dans la feuille filtre
 
    Sheets("filtre").Range("a2") = "Modif. Desc. Rég. seul."
 
'copie des informations dans la feuille filtre
 
    Sheets("R_ItemsPourMandatAValider").Range("plage_depart").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Sheets("filtre").Range("A1:a2"), CopyToRange:=Sheets("filtre").Range("destination"), Unique:=False
 
'copie des informations obtenue dans la demande de modif reg
 
    Sheets("filtre").Range("d2:d" & LastLignUsedInSheet_Column("filtre", "D")).Copy _
    Sheets("Demande modif reg seulement").Range(TrouveLettreColonne(Range("reg_long_travail")) & 2)
 
    Sheets("filtre").Range("f2:f" & LastLignUsedInSheet_Column("filtre", "f")).Copy _
    Sheets("Demande modif reg seulement").Range(TrouveLettreColonne(Range("no_item_travail")) & 2)
 
    Sheets("filtre").Range("l2:l" & LastLignUsedInSheet_Column("filtre", "l")).Copy _
    Sheets("Demande modif reg seulement").Range(TrouveLettreColonne(Range("anc_reg_long_travail")) & 2)
 
    Sheets("filtre").Range("h2:h" & LastLignUsedInSheet_Column("filtre", "h")).Copy _
    Sheets("Demande modif reg seulement").Range(TrouveLettreColonne(Range("f_travail")) & 2)
 
    Sheets("filtre").Range("i2:i" & LastLignUsedInSheet_Column("filtre", "i")).Copy _
    Sheets("Demande modif reg seulement").Range(TrouveLettreColonne(Range("c_travail")) & 2)
 
    Sheets("filtre").Range("j2:j" & LastLignUsedInSheet_Column("filtre", "j")).Copy _
    Sheets("Demande modif reg seulement").Range(TrouveLettreColonne(Range("g_travail")) & 2)
 
    Sheets("filtre").Range("k2:k" & LastLignUsedInSheet_Column("filtre", "k")).Copy _
    Sheets("Demande modif reg seulement").Range(TrouveLettreColonne(Range("sg_travail")) & 2)
 
    Sheets("Demande modif reg seulement").Range((TrouveLettreColonne([type_modif]) & 2), _
    TrouveLettreColonne([type_modif]) & LastLignUsedInSheet_Column("filtre", "l")) = "régionale seulement"
 
    Sheets("Demande modif reg seulement").Range((TrouveLettreColonne([anc_prov_long_travail]) & 2), _
    TrouveLettreColonne([anc_prov_long_travail]) & LastLignUsedInSheet_Column("filtre", "l")) = "n/a"
 
    Sheets("Demande modif reg seulement").Range((TrouveLettreColonne([prov_long_travail]) & 2), _
    TrouveLettreColonne([prov_long_travail]) & LastLignUsedInSheet_Column("filtre", "l")) = "n/a"
 
 
    'on nettoie la feuille de filtre pour les demandes de modif.
 
    Sheets("filtre").Range("a2:m" & LastLignUsedInSheet_Column("filtre", "D")).Delete
 
End If
 
'validation si il y a des modifications provinciale
 
Set modif_prov = Range("creation_ou_modif").Find("Modif. Desc. Prov et rég.", LookAt:=xlWhole)
 
If modif_prov Is Nothing Then
 
    MsgBox "Aucune modification de descriptions provinciale a été trouvé"
 
Else
 
'Si il ya des demandes de modification ouvrir le fichier modele de modification et copié l'onglet dans le fichier
 
    Workbooks.Open ("\\10.38.217.183\interGACs\FICHIER_SYSTEME\Macros\Demande de modification de produits.xlsm")
 
    Set wbmodele = ActiveWorkbook
 
    wbmodele.Sheets("Travail").Copy Before:=nom_fichier.Sheets(1)
 
 
    ThisWorkbook.Saved = False
    Workbooks("Demande de modification de produits.xlsm").Close
 
'on le renomme Demande de création
 
    Sheets("Travail").Name = "Demande modif prov"
 
'on le set afin de pouvoir faire fonctionné la variable
 
    Set feuille_modif_prov = Sheets("Demande modif prov")
 
 
'on écrit Modif. Desc. Rég. seul. dans la feuille filtre
    Sheets("filtre").Range("a2") = "Modif. Desc. Prov et rég."
 
'copie des informations dans la feuille filtre
 
    Sheets("R_ItemsPourMandatAValider").Range("plage_depart").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Sheets("filtre").Range("A1:a2"), CopyToRange:=Sheets("filtre").Range("destination"), Unique:=False
 
 
    Sheets("filtre").Range("d2:d" & LastLignUsedInSheet_Column("filtre", "D")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("prov_long_travail")) & 2)
 
 
    Sheets("filtre").Range("d2:d" & LastLignUsedInSheet_Column("filtre", "D")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("reg_long_travail")) & 2)
 
 
    Sheets("filtre").Range("f2:f" & LastLignUsedInSheet_Column("filtre", "f")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("no_item_travail")) & 2)
 
 
    Sheets("filtre").Range("h2:h" & LastLignUsedInSheet_Column("filtre", "h")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("f_travail")) & 2)
 
 
    Sheets("filtre").Range("i2:i" & LastLignUsedInSheet_Column("filtre", "i")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("c_travail")) & 2)
 
 
    Sheets("filtre").Range("j2:j" & LastLignUsedInSheet_Column("filtre", "j")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("g_travail")) & 2)
 
 
    Sheets("filtre").Range("k2:k" & LastLignUsedInSheet_Column("filtre", "k")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("sg_travail")) & 2)
 
 
    Sheets("filtre").Range("k2:k" & LastLignUsedInSheet_Column("filtre", "k")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("sg_travail")) & 2)
 
 
    Sheets("filtre").Range("l2:l" & LastLignUsedInSheet_Column("filtre", "l")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("anc_reg_long_travail")) & 2)
 
 
    Sheets("filtre").Range("m2:m" & LastLignUsedInSheet_Column("filtre", "m")).Copy _
    Sheets("Demande modif prov").Range(TrouveLettreColonne(Range("anc_prov_long_travail")) & 2)
 
 
    Sheets("Demande modif prov").Range((TrouveLettreColonne([type_modif]) & 2), _
    TrouveLettreColonne([type_modif]) & LastLignUsedInSheet_Column("filtre", "l")) = "provinciale et régionale"
 
 
End If
 
 
'on détruis la fuille de filtre
Sheets("filtre").Delete
 
 
finish = Timer
Application.DisplayAlerts = True
MsgBox "durée du traitement: " & finish - start & " secondes"
 
Exit Sub
 
errorhandler:
Application.DisplayAlerts = True
MsgBox "erreur", vbCritical
 
End Sub

05/11/2018, 19h49
RyuAutodidacte

Bonsoir,

Citation:

Il m'est très dur pour moi de donné de l'info. Parfois j'ai peur d'en donné trop et que je mêle les gens et d'un autre part j'ai parfois des données qui sont confidentielle (c'Est pour cette raison lors de mon dernier poste que les champs était bizarre comme nom et comme valeur).

Peu importe les données (avec des fausses données), l'essentiel c'est que cela reflète le cas réel à traiter (Colonnes ID (chiffre format texte par Ex.), dates, prix, textes, etc …)

Citation:

Ce que je tente faire c'Est d'éviter que si il y a un mouvement de colonne que le code ne fonctionne plus. Il y a quelque personne qui risque de joué avec les colonnes et peut être d'autre seront ajoutés dans le futures.

Dans ce cas là, il faut penser en amont afin d'éviter tout cela concernant le déplacement ou l'ajout

Citation:

Le TrouveLettreColonne, je sais hypothétiquement au départ que la colonne est à la position A mais il se peut qu'elle deviens B ou C. Donc je veux cette colonne peut importe son emplacement.
JE connais sont nom mais pas son emplacement final.
…
qui permet de trouver son emplacement.

Etudier si il y aurait une meilleure façon de procéder …

Citation:

Mon but est de les outiller et éviter d'avoir de la poussière dans les engrenages. Une fois la pilule avaler il est plus facile d'amener des concepts plus rigides dont vous ne déborder pas les limites sinon vous court-circuiter la patente. Je laisse du lousse dans la corde dans ce code mais certains future seront a ma façon ...

Avoir étudier en amont toutes les problématiques pourrait surement permettre d'éviter la poussière dans les engrenages et par la même occasion d'éviter la pilule aux autres et ce même dans le futur.

Pour cela on doit passer par la conception avant de créer son outil … ;)
05/11/2018, 20h11
jpvba

Bonjour Ryu,

Merci pour ton aide et tes réponses.

J'ai quelques point que j'aimerais éclaircir ou peut-être m'aider a statuer sur ma façon de faire et ou de pensez.

Citation:

Dans ce cas là, il faut penser en amont afin d'éviter tout cela concernant le déplacement ou l'ajout

J'ai déjà essayé de mettre une protection sur le classeur ou désactiver le PLY mais cela m'a causé plus de problème. Pour le PLY, il ne se remet pas par défaut et j'ai eu un cas d'une utilisatrice ayant aborder une procédure qui réactivais le PLY a la fin. Pour la protection je sais que ça causais problématique mais ça fais déjà un bail de cela et je ne sais plus vraiment quoi ou plutôt pourquoi ça causais problème.

Donc il y a t-il un autre façon de faire que d'éduquer tous les utilisateurs ???

Citation:

Etudier si il y aurait une meilleure façon de procéder …

Effectivement je suis 100% d'Accord avec vous ... Étant donné que je n'ai pas vraiment de formation en informatique comment faire pour trouver une solution ou est-ce que vous avez des références ou trucs et astuces afin de pouvoir collecter de l'information ???

Citation:

Pour cela on doit passer par la conception avant de créer son outil …

Que voulez-vous dire par conception ... ce que je connais par conception ce serais un schéma si tel situation occurs il y a tel ou tel choix. Un espece d'arbre décisionnel.

Est-ce dont vous faites références ???
06/11/2018, 21h23
RyuAutodidacte
Bonjour jpvba,

Citation:

Donc il y a t-il un autre façon de faire que d'éduquer tous les utilisateurs ???

Excel n'est pas un outils de protection des données, il permet juste de traiter les données multiples de différentes façon,
donc on pourra juste prévoir des gardes fou jusqu'à une certaines limites (selon si les données sont sensibles ou pas),
mais il faut aussi responsabiliser les utilisateurs, quitte à ce qu'ils fassent des erreurs et qui se plaignent; pour leur répondre au final : "avez-vous respecté les procédures d'utilisation du fichier ?"
Au final si ils ne veulent pas de problèmes, ils n'auront pas le choix que de s'y conformer …
PS : il faut quand même faire en sorte que l'utilisation du fichier soit simple et intuitif

Citation:

Effectivement je suis 100% d'Accord avec vous ... Étant donné que je n'ai pas vraiment de formation en informatique comment faire pour trouver une solution ou est-ce que vous avez des références ou trucs et astuces afin de pouvoir collecter de l'information ???

Faire en sorte de créer des règles/nomenclatures afin de standardiser la chaîne des données de début jusqu'à la fin (cf. ci-dessous)

Citation:

Que voulez-vous dire par conception ... ce que je connais par conception ce serais un schéma si tel situation occurs il y a tel ou tel choix. Un espece d'arbre décisionnel.

Faire cahier des charges afin de préparer en amont la conception avec tous les tenants et aboutissants pour atteindre le but final

Dans les grandes lignes :
- Établir les besoins pour savoir les types de données qui doivent être travailler et le(s) résultat(s) voulu(s)
- Établir/prévoir les actions à faire par rapport aux besoins - Étudier pour chaque actions la meilleure façon de procéder (utiliser le plus souvent les outils Excel quand cela est possible)
- Établir les problématiques actions/utilisateurs/autres … qui pourraient arrivées, afin de les éviter en les prenant en compte pour y remédier lors du codage
- Créer une BDD stable répondant à tous les critères vues en amonts afin d'obtenir le(s) Résultat/Résultats voulu(s)
Edit : Ajout de texte sur le 3ème point
06/11/2018, 22h39
jpvba

Un gros merci Ryu !!!

J'en déduis qu'il faut arrêter de "materner" les utilisateur et les rendre responsable de leur geste ...

Je crois que je peux fermer mon post ;)

amicalement JP !!!