erreur 1004 VBA

Question

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

Polux31 · Answer

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)

Polux31 · Answer

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)

Polux31 · Answer

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

titofaussie · Answer

voici, en espérant que cela marche cette fois

https://www.cjoint.com/?gqmIkxKJcV

Merci bien

Polux31 · Answer

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)

Polux31 · Answer

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)

Erreur 1004 VBA

6 réponses

Discussions similaires

Newsletters