probleme vba

Question

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

Kusco · Answer

Pour le temps de réponse, tu peux ajouter :
Application.ScreenUpdating = False au début de ton code.
De cette manière tout n'apparaîtra pas tout de suite à l'écran.

Pour le reste, pourrais-tu m'envoyer ton fichier pour que je puisse davantage situer ce dont tu as besoin ? (utilise le site https://www.cjoint.com/ très pratique)

michel_m · Answer

bonjour,

pour rentrer dans la base

.Cells(prelivi,"A").resize(1,14)=Sheets("nouveau").Range("A2:N2").Value 
 
et tu supprimes:
Range("A2:N2").Copy
' coller uniquement les valeurs dans la plage adéquate
.Range("a" & prelivi & ":N" & prelivi).PasteSpecial Paste:=xlPasteValues 

avec l'écran figé cpmme l'indique Kusco

copy-paste est extrèmement long et à éviter

domi4roues · Answer

Je remercie les reponses mais je suis en déplacement . je test chacune samadi

domi4roues · Answer

encore merci Kusco. je joint   Document joint: demandes_de_travaux_du_servic_maintenance_2014_2.2.0.xlsm 

je n'assure pas tellement je n'est plus l'aide de mon fils alors le vieux fait ce qu'i l peut...

merci de regardé

domi4roues · Answer

Non Non michel_m il ne faut vous exclure. d'ailleurs expliquer moi ce que vous dénommez    l'entré de base


merci

foo · Answer

Bonjour

Voila ta nouvelle macro

Sub nouveau()
Dim DerLig As Long
With Sheets("bd")
' récupérer le numéro de la première ligne vide de la feuille [bd]
DerLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
' copie des données
Range("A2:N2").Copy
' coller uniquement les valeurs dans la plage adéquate
.Range("A" & DerLig).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub

A+

Maurice

Probleme vba

6 réponses

Discussions similaires

Newsletters