Erreur de débutant

bonjour a tous

Novice balbutient dans les vba d'excel je n'arrive pas à trouver mon erreur. C'est pourquoi je sollicite de l'aide.

J'ai créer un sorte de tableau de saisi ou dans les cellules je replis des infos. d'un clique sur un bouton elles vont remplir une base de donnée et en même temps efface les valeur dans ces cellules de tableau.

Voici le scripte que j'ai crue bon.

Sub nouveau_old()

' **** voir nouvelle procédure plus bas *****

' nouveau Macro

' Macro enregistrée le 30/1/2013

Sheets("bd").Select

Selection.Insert Shift:=xlDown

Sheets("nouveau").Select

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Range("A2:N2").Select

Selection.Copy

Sheets("bd").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Sheets("nouveau").Select

Range("E8:E9").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = ","

Range("G8").Select

ActiveCell.FormulaR1C1 = ","

Range("G9").Select

ActiveCell.FormulaR1C1 = ","

Range("G13").Select

End Sub

' **** nouvelle procédure *****

Sub nouveau()

Dim prelivi As Long

With Sheets("bd")

' récupérer le numéro de la première ligne vide de la feuille [bd]

prelivi = .Cells(Rows.Count, 1).End(xlUp).Row + 1

' copie des données

Range("A2:N2").Copy

' coller uniquement les valeurs dans la plage adéquate

.Range("a" & prelivi & ":N" & prelivi).PasteSpecial Paste:=xlPasteValues

End With

' nettoyer le tableau d'entré

Range("C7,E7,G7,I7,C9,E9,G9,C11,E11,C14,G11,G14").ClearContents

Le défaut..... déjà un temps très long pour que la saisi entre dans la base. De plus des lignes paresse a l'écran reprenant les valeur des cellule qui votre remplir la base puis disparais en me rendent la main

Je remercie d'avant celui ou ceux qui l'éclairons sur mes erreur de débutant.

Je remercie

toi français mauvais comme vache espagnole, moi comprendre non.

merci au moins celle ci ne feras la corrida pour ce faire dire oh lait

Je reprends plus sérieusement et encore merci EngueEngue j’ ai du mal à transcrire mes pensées et lorsque je relire je m’entend seulement….

•

Ma question est comment corrigé le défaut un très long temps d’attente, en terme exécution de la commande, entre activation du bouton et la reprise en la main pour rentré de nouvel valeur dans les cellules de saisies.

Faut-il que je maintienne au temps d’activewindow. srollClumn = * Ou je dois réduire a 1 seul commande.

Puisque je ne transfert 1ligne dans la base de donné (A2 :L2)

Je remercie d'avant celui ou ceux qui l'éclairons sur mes erreur de débutant.