Optimisation du code VBA EXCEL

**ANANA49** · 16/08/2018, 12h09

Bonjour,

J'ai un tableau comportant des noms d'élèves(Feuil2) que je dois placer sur un plan (feuil1) à différents endroits sur la (feuil1). J'aurais besoin de votre aide afin d'optimiser mon code pour éviter de répéter à chaque fois le code pour chaque élève. Voici un exemple pour 4 élèves en sachant qu'il y a 30 élèves.
Merci pour votre aide..

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
Sub PlacementEleves()
 
    Range("B4:B7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R1C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R1C1)))))))" & _
        ""
 
     Range("C4:C7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R2C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R2C1)))))))" & _
        ""
 
      Range("C8:C11").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R6C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R6C1)))))))" & _
        ""
     Range("E4:E7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R3C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R3C1)))))))" & _
        ""
    Range("B14").Select
 
End Sub

**sogedic** · 16/08/2018, 12h50

Tu as essayé ?

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
 
   dim i a integer
   for i = 1 to 30
      'Range("B4:B7")= range(cells(4,2),cells(7,2))
      range(cells(4,i+1),cells(7,i+1)).FormulaR1C1 = _
        "=IF('Feuil2'!R" & i & & "C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R" & i  & "C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R" & i  & "C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R" & i  & "C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R" & i  & "C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R" & i  & "C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R" & i  & "C1=='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R" & i &  "C1)))))))" & _
        ""
next i

**halaster08** · 16/08/2018, 12h50

Bonjour,

L'idéal serait de faire une boucle sur l'ensemble des élèves, mais il faut de la logique, or je ne comprends pas celle que tu expose.
Quel est la logique derrière le choix des range ? pourquoi il y en a deux sur la colonne C () dont un sur des lignes différentes des autres) et aucun sur la D ?

Sinon, puisque ta formule est identique a chaque fois, plutôt que de la faire range par range tu peux utiliser Union, de plus les sélections sont inutiles :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Union(Range("B4:B7"),Range("C4:C7")).FormulaR1C1 = _
        "=IF('Feuil2'!R1C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R1C1)))))))" & _
        ""

Il te faudra tout de même rentre les 30 range à la main dans le Union

**ANANA49** · 16/08/2018, 14h27

Bonjour,

J'ai essayé avec l'union pour les Range mais il me duplique sur la Feuil1, le même élève qui est sur la Feuil2 en cellule A1 au lieu de me récupérer les autres élèves en cellule A2,A3,A4.....A30.
L'élève (Feuil2/A1) dois être placé sur la Feuil1 dans les cellules fusionnées (B4:B7)
L'élève (Feuil2/A2) dois être placé sur la Feuil1 dans les cellules fusionnées (C4:C7)
L'élève (Feuil2/A3) dois être placé sur la Feuil1 dans les cellules fusionnées (C8:C11) etc...

Les plages de la Feuil1 qui constitue un plan ne sont pas suivies.
Ci-dessous le code :Ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test10()
 Union(Range("B4:B7"), Range("C4:C7"), Range("C8:C11"), Range("E4:E7"), Range("F4:F7"), Range("H8:H11"), _
 Range("I8:I11"), Range("K4:K7"), Range("L4:L7"), Range("N4:N7"), Range("O4:O7"), Range("N8:N11"), Range("O8:O11"), _
 Range("Q4:Q7"), Range("R4:R7"), Range("Q8:Q11"), Range("R8:R11")).FormulaR1C1 = _
       "=IF('Feuil2'!R1C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R1C1)))))))" & _
end sub

**halaster08** · 16/08/2018, 15h07

Désolé je n'avais pas le changement dans ta formule je croyais que c'était toujours la même.

Dans ton code je compte 17 range, donc à priori tu n'as pas tout tes élèves, comme je n'y vois toujours aucune logique dans la succession des range je ne peux te conseiller mieux que de tous les lister dans un tableau (ajoute en si nécessaire), puis de boucler sur éléments du tableau pour y mettre ta formule.
(Attention un tableau commence à l'indice 0, sauf précision contraire)

Ce qui donne le code suivant:

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
Sub test()
zone = Array(Range("B4:B7"), Range("C4:C7"), Range("C8:C11"), Range("E4:E7"), Range("F4:F7"), Range("H8:H11"), _
 Range("I8:I11"), Range("K4:K7"), Range("L4:L7"), Range("N4:N7"), Range("O4:O7"), Range("N8:N11"), Range("O8:O11"), _
 Range("Q4:Q7"), Range("R4:R7"), Range("Q8:Q11"), Range("R8:R11"))
For i = 0 To UBound(zone)
    zone(i).FormulaR1C1 = _
       "=IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R" & i + 1 & "C1)))))))"
Next i
End Sub

**ANANA49** · 16/08/2018, 16h09

Merci Halaster08, mais j'ai ajouté des Range et ça ne fonctionne pas?
Sinon ton code fonctionne.

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
Sub test()
zone = Array(Range("B4:B7"), Range("C4:C7"), Range("C8:C11"), Range("E4:E7"), Range("F4:F7"), Range("H8:H11"), _
 Range("I8:I11"), Range("K4:K7"), Range("L4:L7"), Range("K8:K11"), Range("L8:L11"), Range("N4:N7"), Range("O4:O7"), Range("N8:N11"), Range("O8:O11"), _
 Range("Q4:Q7"), Range("R4:R7"), Range("Q8:Q11"), Range("R8:R11"), Range("T19:T22"), Range("U19:U22"), Range("T23:T26"), Range("U23:U26"), _
 Range("T29:T32"), Range("U29:U22"), Range("T19:T22"), Range("U19:U22"), Range("T33:T36"), Range("U33:U36"), Range("T39:T42"), Range("U39:U42"), _
 Range("T43:T46"), Range("U43:U46"))
For i = 0 To UBound(zone)
    zone(i).FormulaR1C1 = _
       "=IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R" & i + 1 & "C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R" & i + 1 & "C1)))))))"
Next i
End Sub

**halaster08** · 16/08/2018, 16h55

Quel est le message d'erreur et sur quel ligne ?

**ANANA49** · 17/08/2018, 09h08

Bonjour,
Je n'ai pas de message d'erreur seulement le placement des élèves en colonne T et U ne se font pas correctement.
Ci-dessous les places où doit être les élèves que j'ai ajouté au code :

Code :

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

1
2
3
Range("T19:T22"), Range("U19:U22"), Range("T23:T26"), Range("U23:U26"), _
 Range("T29:T32"), Range("U29:U22"), Range("T19:T22"), Range("U19:U22"), Range("T33:T36"), Range("U33:U36"), Range("T39:T42"), Range("U39:U42"), 
 Range("T43:T46"), Range("U43:U46"))

Faut-il que je fasse une autre zone?
Merci

**BENNASR** · 17/08/2018, 09h21

Bonjour
C'est sure qu'il y a un chemin moins courte et peut être y a beaucoup comme moi n'ont pas compris ta demande...et bien que un schéma mieux qu'une longue paragraphe je demande dans la limite de possible si tu peux joindre un capture écran des données de départ et un capture écran du résultat souhaité
BONNE JOURNÉE

**halaster08** · 17/08/2018, 09h23

Envoyé par ANANA49

Je n'ai pas de message d'erreur seulement le placement des élèves en colonne T et U ne se font pas correctement.

Que se passe-t-il exactement ?
De mon point de vue, la macro met bien la formule dans les cellules dont tu as renseigné le range, je vois pas où est le problème

edit: Bien vu @sogedic, je pense que le problème est là en effet.

**sogedic** · 17/08/2018, 10h04

c'est "normal" ? que tu écrives deux fois

Code :

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

Range("T19:T22"), Range("U19:U22"), Range("T23:T26")

ca doit provoquer un décalage non ?

**ANANA49** · 29/08/2018, 12h14

Avec un peu de retard, je tenais à vous remercier. j'ai modifié mon plan et vos indications ont fonctionnés!

Optimisation du code VBA EXCEL

Macros et VBA Excel

Discussions similaires

Partager

Partager