Bonsoir,
Je te met la ligne de code de ma macro, ci dessous :
Sub Ajouter_fiche()
Ajouter_fiche Macro
Sheets("Recueil données").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Font.Bold = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Formulaire").Select
Range("A2").Select
Selection.Copy
Sheets("Recueil données").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Sheets("Formulaire").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2").Select
Sheets("Formulaire").Select
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("G2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Sheets("Formulaire").Select
Range("H2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("I2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("J2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("M2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Formulaire").Select
Range("L2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("K2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("K2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M2").Select
Sheets("Formulaire").Select
Range("M2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T2").Select
Sheets("Formulaire").Select
Range("N2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("O2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("O2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("R2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("R2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("S2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("S2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T2").Select
Sheets("Formulaire").Select
Range("T2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W2").Select
Sheets("Formulaire").Select
Range("U2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("U2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("V2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("V2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("V:V").Select
Application.CutCopyMode = False
Selection.NumberFormat = "h:mm;@"
Range("W2").Select
Sheets("Formulaire").Select
Range("W2").Select
Selection.Copy
Sheets("Recueil données").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X2").Select
Sheets("Formulaire").Select
Range("X2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("Y2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("Y2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("Z2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("Z2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("AA2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recueil données").Select
Range("AA2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("AB2").Select
Selection.Copy
Sheets("Recueil données").Select
Range("AB2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("AC2").Select
Selection.Copy
Sheets("Recueil données").Select
Range("AC2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("AD2").Select
Selection.Copy
Sheets("Recueil données").Select
Range("AD2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("AE2").Select
Selection.Copy
Sheets("Recueil données").Select
Range("AE2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("A5,C5,A9,D9,E9,F9,G9").Select
Range("G9").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range( _
"C14,E14,F14,G14,C17,E17,F17,G17,C20,E20,F20,G20,C23,E23,F23,G23,C26,E26,F26,G26,C29,E29,G29,F32" _
).Select
Range("G29").Activate
Selection.ClearContents
Sheets("Formulaire").Select
Range("A5").Select
End Sub
Elle est parfaitement fonctionnelle pour la retranscription des données, je commence à paramétrer la validation des données en ce moment
En ce qui concerne la pile et le jouet je reconnais être débutant en codage, pas de soucis ^^
Pour ce qui est du fichier excel tu le trouveras ici : https://1drv.ms/x/s!AnxYuYY8nG6Dga8p-qBPhqv3luxwdw?e=IEqnTd
Merci de ce que tu pourras m’apporter