Execution macro resultat #ref
Bonjour à tous,
J'ai le code suivant, qui permet de me copier la dernière colonne vide d'un onglet et de la coller sur la dernière colonne vide d'un autre onglet.
Dim R As Worksheet
Dim G As Worksheet
Dim DC As Integer
Dim DEST As Range
Set R = Worksheets("onglet_reference")
Set G = Worksheets("onglet_graphique")
DC = R.Range("D44").End(xlToRight).Column
Set DEST = IIf(G.Range("D3") = "", G.Range("D3"), G.Cells(3, Application.Columns.Count).End(xlToLeft).Offset(0, 1))
R.Cells(44, DC).Copy DEST
Cependant, lorsque j’exécute la macro, le résultat qui apparaît est #REF!
La cellule D44 est une somme, mais quand je modifie la cellule D44 pour une autre qui ne contient que des chiffres, la macro ne renvoie rien mais s'execute sans erreur.
Quelqu'un pourrait-il m'aider à resoudre le problème?
Merci d'avance
Bonjour
Il serait plus facile d'étudier le problème si tu joignais ton fichier.
Bye !
Essaie comme ça :
Private Sub CommandButton1_Click()
'Heures travaillées mensuel : a automatiser sur le fichier
'Heures travaillées groupe 12 mois glissants
Dim R As Worksheet
Dim G As Worksheet
Dim DC As Integer
Dim DEST As Range
Set R = Sheets("onglet_reference")
Set G = Sheets("onglet_graphique")
DC = R.Range("D44").End(xlToRight).Column
Set DEST = IIf(G.Range("D3") = "", G.Range("D3"), G.Cells(3, Application.Columns.Count).End(xlToLeft).Offset(0, 1))
R.Cells(44, DC).Copy
DEST.PasteSpecial xlPasteValues
End SubBye !
Merci pour l'aide!
Mais ca ne fonctionne pas. Quand j'essaie de copier une cellule avec juste un chiffre, celui-ci se colle mais j'ai le message suivant :
Erreur d'execution '1004': La méthode PasteSpecial de la classe Range a échoué.
Quand j'essaie de copier ma cellule avec une formule (D44), le resultat de la macro est toujours #Ref et j'ai le même message d'erreur.
Effectivement, ça fonctionne sur ton fichier.
J'ai copier ton code dans mon fichier et ça marche! Merci beaucoup!