Probleme vba
domi4roues
Messages postés
82
Date d'inscription
Statut
Membre
Dernière intervention
-
foo -
foo -
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
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
6 réponses
-
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) -
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 -
Je remercie les reponses mais je suis en déplacement . je test chacune samadi
-
Je n'ai pas reçu ton lien, est-ce que tu es bien allé sur le site http://www.cijoint.com ?
-
-
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é -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Non Non michel_m il ne faut vous exclure. d'ailleurs expliquer moi ce que vous dénommez l'entré de base
merci -
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
