XL 2013 Accélerer temps d'une macro - Résolu

fredtu · 28 Août 2016

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 :

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

Cliquez pour agrandir...

Hieu · 28 Août 2016

Avec un fichier excel, sans données perso, ce serait plus facile de voir...

Hieu · 28 Août 2016

Petit test à l'aveuglette ^^

VB:

Sub Saisie()
Sheets("Données").Rows("3:3").Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove ' Insertion d'une nouvelle ligne

For i = 0 To 1
Sheets("Saisie des données").Range("C4").Offset(i, 0).Copy
Sheets("Données").Range("A3").Offset(0, i).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i

Sheets("Saisie des données").Range("C4:C23").ClearContents

End Sub

fredtu · 28 Août 2016

Merci pour votre réponse.
Votre proposition simplifie le code puisque j'ai 19 valeurs à copier.
Mais ça ne réduit pas le temps d’exécution de la macro.
Je joins un un exemple du fichier.

Merci d'avance pour votre aide.

fredtu · 28 Août 2016

J'ai fini par trouver la solution :

Sheets("Saisie des données").Range("C4:C23").Copy
Sheets("données").Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True

XL 2013 Accélerer temps d'une macro - Résolu

fredtu

XLDnaute Junior

Hieu

XLDnaute Impliqué

Hieu

XLDnaute Impliqué

fredtu

XLDnaute Junior

Pièces jointes

fredtu

XLDnaute Junior

Discussions similaires