Partager vos
astuces Déco
Posez votre question Signaler

Erreur 1004 VBA

titofaussie - Dernière réponse le 30 juin 2009 à 16:30
Bonjour,
comme beaucoup, je rencontre l'erreur 1004 sous vba.
je suis novice, j'ai essayé de regarder les différents forums, mais sans résultat.
je me retourne donc vers vous pour me trouver une solution.
voici le code:
Private Sub validation_Click()
Sheets("saisie").Select
Range("A4:m36").Select
Selection.Copy
If Range("B1") = "janvier" Then
Sheets("janvier").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("saisie").Select
Application.CutCopyMode = False
Range("B1").Select
Else
If Range("B1") = "février" Then
Sheets("février").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("saisie").Select
Application.CutCopyMode = False
Range("B1").Select
Else
If Range("B1") = "mars" Then
Sheets("mars").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("saisie").Select
Application.CutCopyMode = False
Range("B1").Select
End If
End If
End If
End Sub
merci par avance
titof aussie
Lire la suite 

Erreur 1004 VBA »

10 réponses
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 15 juin 2009 à 22:38
Bonjour,

Essais ça : 

Private Sub validation_Click()
Dim wsSaisie As Worksheet
Dim wsJanvier As Worksheet
Dim wsFevrier As Worksheet
Dim wsMars As Worksheet

   Set wsSaisie = Worksheets("saisie")
   Set wsJanvier = Worksheets("janvier")
   Set wsFevrier = Worksheets("février")
   Set wsMars = Worksheets("mars")

   ws.Saisie.Range("A4:m36").Select
   Selection.Copy

   If ws.Saisie.Range("B1") = "janvier" Then
      ws.Janvier.Range("A6").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      wsSaisie.Range("B1").Select
   End If

   If ws.Saisie.Range("B1") = "février" Then
      wsFevrier.Range("A6").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      wsSaisie.Range("B1").Select
   End If

   If ws.Saisie.Range("B1") = "mars" Then
      wsMars.Range("A6").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      wsSaisie.Range("B1").Select
   End If

End Sub


;o)

Ajouter un commentaire
titofaussie - 16 juin 2009 à 09:05
bonjour polux31,

merci pour ta réponse, qui, malheureusement n'a pas résolu le pbm...

serait-il possible de poursuivre via nos mails perso pour que je puisse t'envoyer le fichier?

cordialement

Titof aussie
Ajouter un commentaire
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 16 juin 2009 à 11:05
Bonjour,

Tu peux déposer le fichier sur www.cjoint.com et tu colles le lien ici pour qu'on puisse charger le fichier.

;o)

Ajouter un commentaire
titofaussie - 16 juin 2009 à 11:19
voici le lien: http://cjoint.com/?gqln1HQcG1

pour info, voila ce que je souhaite faire:

en cliquant sur le bouton "validation" cela enregistre la plage de "saisie" de la feuille "saisie" dans la feuille du mois concerné.
à l'inverse, je souhaite également pouvoir "charger" n'importe quel Mois dans la feuille "saisie" à travers le bouton "appel budget du mois"

j'essaie de développer un petit programme pour une personne qui n'y connais pas grand chose en informatique (encore moins que moi) pour qu'il ait le moins de manipulation à faire et qu'il puisse suivre son "budget".

si tu as des questions, n'hésite pas

Merci beaucoup

titofaussie
Ajouter un commentaire
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 16 juin 2009 à 12:27
Tu as Excel 2007 ... j'ai Excel 2003, je ne peux pas le lire

Il faut que tu le sauvegardes en 2003 ou inférieur.

Merci

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
titofaussie 16 juin 2009 à 12:35
voici, en espérant que cela marche cette fois

http://cjoint.com/?gqmIkxKJcV

Merci bien

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 16 juin 2009 à 15:21
C'est mieux ...

Je n'ai pas trop le temps de le regarder maintenant, je glisserai un oeil dedans ce soir et je te tiens au courant.

;o)

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 16 juin 2009 à 19:41
Bonsoir,

Je viens de regarder le fichier.

Je vais réfléchir un peu et je te proposerai peut être autre chose. Ce n'est pas que ton fichier ne tienne pas la route, mais ça sera plus facile pour de refaire que d'adapter.

Je reviens vers toi dans quelques jours

;o)

Ajouter un commentaire
titofaussie - 16 juin 2009 à 20:48
ok merci.

ne connaissant pas trop VBA (quelques instructions par ci par là), je me suis servi de l'enregistreur de macro et j'ai fait un copier coller pour l'affecter au bouton "validation".

la procédure me parait simple, un bouton d'enregistrement dans les feuilles du mois concerné et un autre qui charge le mois voulu...

merci d'avance pour ton aide
titofaussie - 30 juin 2009 à 16:30
bonjour polux31,

as tu eu le temps de te pencher sur mon fichier?

cordialement

titofaussie
Ajouter un commentaire
Posez votre question
Ce document intitulé « erreur 1004 VBA » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook