Discussion :

[VercleChrist]

Bonjour, je n'arrive pas a enregistrer une macros. Et pourtant elle 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
' transfert Feuil 05 Selection vers Feuil Vu 4 Feuil
Sheets("Vu 4 Feuil").Range("B2:E2").Value = Sheets("05 Selection").Range("A4:D4").Value '       Lieu,RC,Heure,Genre
Sheets("Vu 4 Feuil").Range("D3").Value = Sheets("05 Selection").Range("E4").Value       '       Ch
Sheets("Vu 4 Feuil").Range("I2").Value = Sheets("05 Selection").Range("F4").Value       '       JJJJ/MM/AA
Sheets("Vu 4 Feuil").Range("I3").Value = Sheets("05 Selection").Range("H4").Value       '       M
Sheets("Vu 4 Feuil").Range("J4:K4").Value = Sheets("05 Selection").Range("G4:H4").Value '       Compteur(Cpt),Préced
Sheets("Vu 4 Feuil").Range("L4:M4").Value = Sheets("05 Selection").Range("L4:M4").Value '       Gb,Gn
Sheets("Vu 4 Feuil").Range("K6").Value = Sheets("05 Selection").Range("N4").Value       '       EquiA
Sheets("Vu 4 Feuil").Range("K7").Value = Sheets("05 Selection").Range("O4").Value       '       EquiB
Sheets("Vu 4 Feuil").Range("G2").Value = Sheets("05 Selection").Range("R4").Value       '       Remarque
Sheets("Vu 4 Feuil").Range("M5").Value = Sheets("05 Selection").Range("J4").Value       '       C-%
Sheets("Vu 4 Feuil").Range("M6").Value = Sheets("05 Selection").Range("K4").Value       '       C-1
'Retour Feuil Vu 4 Feuil Vers Feuil 05
Sheets("05 Selection").Range("P4").Value = Sheets("Vu 4 Feuil").Range("F3").Value       '       Cc
Sheets("05 Selection").Range("S4").Value = Sheets("Vu 4 Feuil").Range("M7").Value       '       Plus
Sheets("05 Selection").Range("T4").Value = Sheets("Vu 4 Feuil").Range("M8").Value       '       Plus%
'
'
'
' transfert Feuil 06 Selection vers Feuil Vu 4 Feuil
Sheets("Vu 4 Feuil").Range("B9:E9").Value = Sheets("06 Selection").Range("A4:E4").Value
Sheets("Vu 4 Feuil").Range("I9").Value = Sheets("06 Selection").Range("F4").Value
'
'
'
' transfert Feuil Last Selection vers Feuil Vu 4 Feuil
Sheets("Vu 4 Feuil").Range("B16:E16").Value = Sheets("Last Selection").Range("A4:E4").Value
Sheets("Vu 4 Feuil").Range("I16").Value = Sheets("Last Selection").Range("F4").Value
'
'
'
' transfert Feuil Last Selection vers Feuil Vu 4 Feuil
Sheets("Vu 4 Feuil").Range("B23:E23").Value = Sheets("01 Chance").Range("A4:E4").Value
Sheets("Vu 4 Feuil").Range("I23").Value = Sheets("01 Chance").Range("F4").Value
End Sub

Auriez vous une idée et sur base de ce code peut-on dire que logique.
Sur cette base je souhaiterai passez a la ligne suivante, faut-il utilisée for next ou peut etre utilisée le compteur 1,2,....

Merci