Erreur 1004 VBA

titofaussie -  
 titofaussie -
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

6 réponses

Réponse 1 / 6
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
0
titofaussie
 
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
0
Réponse 2 / 6
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
0
titofaussie
 
voici le lien: https://www.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
0
Réponse 3 / 6
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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
0
Réponse 4 / 6
titofaussie
 
voici, en espérant que cela marche cette fois

https://www.cjoint.com/?gqmIkxKJcV

Merci bien
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
0
Réponse 6 / 6
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
0
titofaussie
 
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
0
titofaussie
 
bonjour polux31,

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

cordialement

titofaussie
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse