Mettre à jour ma base de données

luke3300

XLDnaute Impliqué

• 31 Juillet 2005

• #16

Re all,

Quelqu'un pourrait-il me dire où se situe l'erreur de syntaxe dans la macro suivante?

L'éditeur m'indique une erreur dans la ligne en rouge :

Private Sub CommandButton5_Click()
Sheets('Données techniques').Range('G22:O22').Copy
Sheets('Relevé des factures').Range('A1000').End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets('Facture').Range('F47:G47').Copy
Sheets('Relevé des factures').Range('J1000:K1000').End(x1Up)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub


Moi je poireaute là-dessus depuis ce matin et je vois pas

Merci d'avance.

 

Vote positif 0 Vote négatif

C

Claudy

Guest

• 31 Juillet 2005

• #17

Salut
Dans ton code, remplace .End(x1Up)(2).
par .End(xlUp)(2).

l à la place de 1

pour le reste , je suis occupé ailleurs , si tu veux j'approfondi cela demain
A+
Bon dimanche
Claudy

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 31 Juillet 2005

• #18

Salut Namur

Hélas c'est pas ça mais c'est déjà une de mes erreurs de trouvée lolllll OK pour le reste, je continue à bûcher dessus alors si il y a des idées ??? Elles sont les bienvenues

Bon aprem Namuuuurrr :lol: et merci beaucoup

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 31 Juillet 2005

• #19

Re le forum,

ben voilà Claudy, j'ai trouvé :lol: oui comme un grand lollllll
Tout se copie parfaitement à présent et cela en me servant de ta macro que j'ai compilé pour l'occase alors merci beaucoup à toi et aux autres pour leurs idées dans tous les fils.

Je suis quand même ouvert pour toutes les autres solutions alternatives afin de comparer et tester.

Bon après-midi tout le monde.

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 31 Juillet 2005

• #20

Bonjour Luke, Dan, Claudy, Creepy, le Forum

Une autre approche sans Copié/Collé Et avec contrôle d'intégrité de champs vides

Option Explicit

Sub Transfert_Client()
Dim WSSource As Worksheet, WSCible As Worksheet
Dim RangeSource As Range, RangeCible As Range
Dim Cell As Range
Dim TabSource As Variant
Dim Alert As String

Set WSSource = Sheets('Données')
Set WSCible = Sheets('Données Clients')

Set RangeSource = WSSource.Range('G22:O22')

For Each Cell In RangeSource
    If Cell = 0 Then
        Alert = Alert & Cell.Offset(-1, 0) & vbCrLf
    End If
Next

If Alert <> '' Then
&nbsp; &nbsp; MsgBox 'Opération Impossible, le(s) champs suivant(s) est(sont) vide(s)' & vbCrLf & Alert, vbCritical
&nbsp; &nbsp; Exit Sub
End If

TabSource = RangeSource

With WSCible
&nbsp; &nbsp; Set RangeCible = .Range(.Range('A65536').End(xlUp)(2), .Range('I65536').End(xlUp)(2))
End With

RangeCible = TabSource

End Sub

Cliquez pour agrandir...

Bon Dimanche
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 31 Juillet 2005

• #21

Bonjour _Thierry,

je viens d'essayer ton code, Bravo!
C'est tout ce que je peux dire.

Je continue aussi mes investigations

 

Vote positif 0 Vote négatif

F

Fernandez67

Guest

• 1 Août 2005

• #22

Bonjour à tous :woohoo:

J'aurai une demande légerement différente, sur le même thème.

Dans mes rêves les plus fous, j'aimerai copier la zone 'A9:C21' du tableau ci-joint, pour la coller dans un autre fichier excel nommé Suivi.xls.

Le fichier Suivi est fermé.

La zone 'A9:C21' devra se mettre à jour au fur et à mesure des ajouts.

J'accroche un peu :sick: sur la copie dans le fichier Suivi qui n'est pas un onglet mais un fichier à part et fermé (pour compliquer le tout).

J'ai bien tenté de modifier le code, mais ca marche pas super bien. [file name=MAJBase.zip size=36803]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MAJBase.zip[/file]

 

Pièces jointes

• MAJBase.zip

  35.9 KB · Affichages: 16

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 1 Août 2005

• #23

Bonjour tt le monde,

je te suggère d'utiliser 'l'assistant modèle avec suivi des données' qui est très simple d'utilisation et qui transfert tes données dans le fichier fermé et ce dés que tu enregistres ton fichier. Il te demande si tu veux enregistrer les données entrées, dans ta base de données (ici le fichier 'Suivi') et il le fait en laissant le fichier fermé.

Il y a un fil sur 'l'assistant modèle avec suivi de données' plus bas.

Bonne soirée.

 

Vote positif 0 Vote négatif

F

Fernandez67

Guest

• 1 Août 2005

• #24

Hmmm

J'ai pas trouvé le fil en question...

 

Vote positif 0 Vote négatif

F

Fernandez67

Guest

• 1 Août 2005

• #25

J'ai trouvé un truc interressant dans l'aide Excel...

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 1 Août 2005

• #26

Re,

le 1er fil est là:

Lien supprimé

et le 2eme là:

Lien supprimé

Bonne lecture

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 1 Août 2005

• #27

Hello le forum,

dans le même fichier, est-il possible que la celulle 'D3' de la feuille 'Facture' où est contenu mon n° de facture affiche toujours comme référence le dernier n° de facture repris dans ma base de donnée (feuille 'Relevé des factures', celulle 'L2')?

Merci d'avance de votre aide.

 

Vote positif 0 Vote négatif

F

Fernandez67

XLDnaute Nouveau

• 1 Août 2005

• #28

Merci luke3300,

Ta soluce est d'enfer.

 

Vote positif 0 Vote négatif