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

[VercleChrist]

Bonjour, je me pause la question si je mets le code au bon endroit.
alt F11 et la je vois plusieurs choses.
Bon les codes dans module1 que je crée ou dans la Feuil nommé ex: Feuil1(05 Selection)
Peut-ont trouver un tuto pour apprendre.
Si je veux enregistrer un fenêtre me dit ' Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macros:
Projet VB
Pour enregistrer ............ oui / non .
Fait pas mal de test et toujours le même!

Merci de votre réponse Excel 2007.

[VercleChrist]

Bonjour,trouvez pour enregistrement de macro.
Recherche infos sur boucle for next ou autres suivant code.
Pour lecture ligne suivante des différentes Feuil (séparées).
Merci.

[VercleChrist]

Bonjour, si je change un chiffre dans colonne rouge de Feuil Vu4 Feuil je dois relancer macro/exécuter pour voir le changement!
J'ai remis pièces jointes suite a certaines modifications.

Merci de votre aide.