[VBA-Excel 2007] Cellule vide = copier coller.Résolu

Question

Bonjour.

Voici mon problème: Je dois copier coller des colonnes d'une feuille vers une autre feuille créé a partir d'une macro. Jusque là pas de problème. Cependant, lorsque je copie mes colonne, il arrive que certaines ne contiennent aucune valeur, mais je dois quand même les copier cars elles montrent qu'aucun relevé n'a été effectué à la date affichée.

Voici mon code (çà fait brouillon je sais, mais bon, je ne fais pas beaucoup de programmation, j'en ai juste besoin pour m'éviter de faire un travail de bot là...):

Sheets("" & RetourAnn).Select
        Select Case RetourCU
            Case 1 And Sheets("" & RetourAnn).Range("B4").Value = "Discharge"
            Range("B" & cpt & ":B" & cpt1).Select
            Selection.Copy
        
            Case 2 And Sheets("" & RetourAnn).Range("C4").Value = "temperature"
            Range("C" & cpt & ":C" & cpt1).Select
            Selection.Copy
        
            Case 3 And Sheets("" & RetourAnn).Range("D4").Value = "pH"
            Range("D" & cpt & ":D" & cpt1).Select
            Selection.Copy
        
            Case 4 And Sheets("" & RetourAnn).Range("E4").Value = "conductivity"
            Range("E" & cpt & ":E" & cpt1).Select
            Selection.Copy
        
            Case 5 And Sheets("" & RetourAnn).Range("F4").Value = "NA+"
            Range("F" & cpt & ":F" & cpt1).Select
            Selection.Copy
        
            Case 6 And Sheets("" & RetourAnn).Range("G4").Value = "K+"
            Range("G" & cpt & ":G" & cpt1).Select
            Selection.Copy
        
            Case 7 And Sheets("" & RetourAnn).Range("H4").Value = "Mg2+"
            Range("H" & cpt & ":H" & cpt1).Select
            Selection.Copy
        
            Case 8 And Sheets("" & RetourAnn).Range("I4").Value = "Ca2+"
            Range("I" & cpt & ":I" & cpt1).Select
            Selection.Copy
        
            Case 9 And Sheets("" & RetourAnn).Range("J4").Value = "Cl-"
            Range("J" & cpt & ":J" & cpt1).Select
            Selection.Copy
        
            Case 10 And Sheets("" & RetourAnn).Range("K4").Value = "NO3-"
            Range("K" & cpt & ":K" & cpt1).Select
            Selection.Copy
        
            Case 11 And Sheets("" & RetourAnn).Range("L4").Value = "SO42-"
            Range("L" & cpt & ":L" & cpt1).Select
            Selection.Copy
        
            Case 12 And Sheets("" & RetourAnn).Range("M4").Value = "alcalinity"
            Range("M" & cpt & ":M" & cpt1).Select
            Selection.Copy
        
            Case 13 And Sheets("" & RetourAnn).Range("N4").Value = "HCO3-"
            Range("N" & cpt & ":N" & cpt1).Select
            Selection.Copy
        
            Case 14 And Sheets("" & RetourAnn).Range("O4").Value = "Si"
            Range("O" & cpt & ":O" & cpt1).Select
            Selection.Copy
        
            Case 15 And Sheets("" & RetourAnn).Range("P4").Value = "DOC"
            Range("P" & cpt & ":P" & cpt1).Select
            Selection.Copy
        
            Case 16 And Sheets("" & RetourAnn).Range("Q4").Value = "SPM"
            Range("Q" & cpt & ":Q" & cpt1).Select
            Selection.Copy
        
            Case 17 And Sheets("" & RetourAnn).Range("C4").Value = "RFm"
            Range("C" & cpt & ":C" & cpt1).Select
            Selection.Copy
        
            Case 18 And Sheets("" & RetourAnn).Range("D4").Value = "Tmin"
            Range("D" & cpt & ":D" & cpt1).Select
            Selection.Copy
        
            Case 19 And Sheets("" & RetourAnn).Range("E4").Value = "Tmax(°C)"
            Range("E" & cpt & ":E" & cpt1).Select
            Selection.Copy
            
            Case 20 And Sheets("" & RetourAnn).Range("F4").Value = "Tmean"
            Range("F" & cpt & ":F" & cpt1).Select
            Selection.Copy
        
            Case 21 And Sheets("" & RetourAnn).Range("G4").Value = "Hummean"
            Range("G" & cpt & ":G" & cpt1).Select
            Selection.Copy
        
            Case 22 And Sheets("" & RetourAnn).Range("H4").Value = "GRinstant"
            Range("H" & cpt & ":H" & cpt1).Select
            Selection.Copy
        
            Case 23 And Sheets("" & RetourAnn).Range("I4").Value = "Grcumul"
            Range("I" & cpt & ":I" & cpt1).Select
            Selection.Copy
        
            Case 24 And Sheets("" & RetourAnn).Range("J4").Value = "Vwind"
            Range("J" & cpt & ":J" & cpt1).Select
            Selection.Copy
        
            Case 25 And Sheets("" & RetourAnn).Range("K4").Value = "Dirwind"
            Range("K" & cpt & ":K" & cpt1).Select
            Selection.Copy
        
            Case 26 And Sheets("" & RetourAnn).Range("L4").Value = "RFday"
            Range("L" & cpt & ":L" & cpt1).Select
            Selection.Copy
        
            Case 27 And Sheets("" & RetourAnn).Range("M4").Value = "PETday"
            Range("M" & cpt & ":M" & cpt1).Select
            Selection.Copy
        
        End Select
        
        Sheets("site" & RetourCS & "ann" & RetourAnn).Select
        Range("E" & c).Select
        ActiveSheet.Paste

Le message d'erreur qui s'affiche est le suivant: 

Erreur d'exécution '1004':
La méthode Paste de la classe Worksheet a échoué.

Merci d'avance pour m'éclairer sur mon problème

Panodrek · Accepted Answer

Bon et ben je vous ai dérangé et emmêlé pour rien, j'ai trouvé ma solution et ai même améliorer le tout. Voila voila, merci quand même à ceux qui se sont aventuré à lire ce sujet !!

Panodrek · Answer

En y réfléchissant de plus près, peut être que le problème vient de la boucle "For" dans laquelle il est implémenté, donc je vais mettre tout le code (en plus allégé, vous avez compris le système du case...):

For i = v To RetourB
    

        
    '
    'Copie des dates
    '
    
        Sheets("" & RetourAnn).Select
        Range("A" & cpt & ":A" & cpt1).Select
        Selection.Copy
    
    '
    'Remplissage de la feuille créée
    '
    

        Sheets("site" & RetourCS & "ann" & RetourAnn).Select
        Range("A" & c).Select
        ActiveSheet.Paste
            
        Range("B" & c).Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = RetourCP
        Range("C" & c).Select
        ActiveCell.FormulaR1C1 = RetourCS
        Range("D" & c).Select
        ActiveCell.FormulaR1C1 = RetourCU
        Range("B" & c & ":D" & c).Select
        Selection.AutoFill Destination:=Range("B" & c & ":D" & c + x), Type:=xlFillDefault
    

    '
    'Vidage de presse-papier anti erreur 1004 qui donne des envies de meurtre
    '
    
        Application.CutCopyMode = False
    
    '
    'Copie de la colonne à copier en fonction du Code Unité (RetourCU)
    '
    
    
        Sheets("" & RetourAnn).Select
        Select Case RetourCU
            Case 1 And Sheets("" & RetourAnn).Range("B4").Value = "Discharge"
            Range("B" & cpt & ":B" & cpt1).Select
            Selection.Copy
        
            ...
            
            Case 27 And Sheets("" & RetourAnn).Range("M4").Value = "PETday"
            Range("M" & cpt & ":M" & cpt1).Select
            Selection.Copy
        
        End Select
        
        Sheets("site" & RetourCS & "ann" & RetourAnn).Select
        Range("E" & c).Select
        ActiveSheet.Paste
    
        c = c + x + 1
        RetourCU = RetourCU + 1
        cpt5 = cpt5 + c
        
    
    Next

Voila. Merci d'avance.

Kirkus · Answer

j'ai le même problème que toi erreur 1004 après avoir copié plusieurs sheets et la commande Application.CutCopyMode = False n'y change rien

[VBA-Excel 2007] Cellule vide => copier coller.

3 réponses

Votre réponse

Discussions similaires