Bonjour à tous,
Je vous explique le pb que je n'arrive pas à résoudre.
Dans mon classeur, j'ai deux Feuilles. Saisie des données (c'est un formulaire) et Données dans laquelle je veux rappatrier les infos que j'ai saisi dans mon formulaire avant de ne remettre ce dernier à vide.
J'ai utiliser l'enregistreur de Macro :
le code :
Je vous explique le pb que je n'arrive pas à résoudre.
Dans mon classeur, j'ai deux Feuilles. Saisie des données (c'est un formulaire) et Données dans laquelle je veux rappatrier les infos que j'ai saisi dans mon formulaire avant de ne remettre ce dernier à vide.
J'ai utiliser l'enregistreur de Macro :
le code :
Sub Saisie()
'
' Saisie Macro
' Sheets("Données").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Insertion d'une nouvelle ligne
Sheets("Saisie des données").Select
Range("C4").Select
Selection.Copy
Sheets("Données").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Saisie des données").Select
Range("C5").Select
Selection.Copy
Sheets("Données").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Saisie des données").Select
Range("C4:C23").Select
Selection.ClearContents
Range("C4").Select
Sub Saisie()
[\Quote]
Afin de gagner du temps, j'ai modfié ma macro comme suit :
Sub Saisie()
'
' Saisie Macro
Sheets("Données").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Insertion d'une nouvelle ligne
Sheets("Saisie des données").Range("C4:C23").Value = Application.Transpose(Sheets("Données").Range("A3:T3").Value)
Sheets("Saisie des données").Select
Range("C4:C23").Select
Selection.ClearContents
Range("C4").Select
End Sub
[\Quote]
Sauf que rien n'est copié dans ma feuille Données.
Pouvez-vous m'aider ? Merci d'avance.
Fredtu