EXCEL 2013 MACRO Erreur TYPE 9

[sergio1]

Bonjour,
Je rencontre une erreur : "Erreur d’exécution type ‹ 9 › L’indice n’appartient pas à la sélection avec Excel 2013. Merci pour votre aide
Action VBA souhaitée de la macro : copie des données dans un formulaire « SAISIE_ORDRE » à mettre dans la table « HISTORIQUE_ORDRE »

ligne = Sheets(« HISTORIQUE_ORDRE »).Range(« A2 »).End(xlDown).Row + 1
Sheets(« HISTORIQUE_ORDRE »).Range(« A » & ligne).Value = Sheets(« Saisie_ORDRE »).Range(« B3 »).Value
Sheets(« HISTORIQUE_ORDRE »).Range(« B » & ligne).Value = Sheets(« Saisie_ORDRE »).Range(« B4 »).Value
Sheets(« HISTORIQUE_ORDRE »).Range(« C » & ligne).Value = Sheets(« Saisie_ORDRE »).Range(« B5 »).Value
Sheets(« HISTORIQUE_ORDRE »).Range(« D » & ligne).Value = Sheets(« Saisie_ORDRE »).Range(« B6 »).Value

[Jacquinot_WILL-FREAD]

Bonjour,

Un exemple adapté a votre formulaire :

Sub formulaire()
Sheets("saisie_ordre").Select
Range("B4:B6").Copy
Sheets("HISTORIQUE_ORDRE").Select
Range("A2").Select

While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Wend

ActiveCell.PasteSpecial xlPasteAll, Transpose:=True
Application.CutCopyMode = False
Sheets("saisie_ordre").Select
Range("B4:B6").ClearContents
End Sub

Formulaire exemple.xlsm (23,1 Ko)

Cordialement
Will-Fread

[sergio1]

Bonjour
Grand merci je vais voir comment adapter votre proposition. Je démarre sous VBA. L’exemple que vous m’avez envoyé fonctionne bien.

[Jacquinot_WILL-FREAD]

Bonjour,
Je suis ravi pour vous.
Il faut marquer SOLUTION pour clôturer ce post
Cordialement