Erreur code VBA qui doit copier-coller sur une plage glissante Résolu/Fermé

Question

Bonjour, bonjour !

Ma macro est sensée copier-coller special valeurs ma plage C9:C11 dans une plage définie telle que ci-dessous:


Sub CopyPasteValues()'On sheets TFU evolutionSheets("TFU evolution").ActivateDim LastColumn As LongLastColumn = Cells(15, Columns.Count).End(xlToRight).ColumnRange("C9:C11").SelectSelection.CopyCells(15, LastColumn).Offset(0, 3).Select                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=FalseApplication.CutCopyMode = FalseEnd Sub

Mais cela ne fonctionne pas et après qlq changements/essais, je n'arrive pas à débloquer ça...  C'est la partie soulignée qui m'est signalée comme erreur ("Run-time error '1004': Application-defined or object-defined error"). Est-ce que quelqu'un voit mon erreur ?

Merci pour votre aide! 

Dianex87

thev · Answer

Bonjour,

La détermination de ta dernière colonne ne donne pas la dernière colonne utilisée mais celle de la feuille. Il est normal qu'en sélectionnant une cellule se situant 3 colonnes plus loin que celle de la dernière colonne de la feuille, Excel te réponde par une erreur.

Dernière colonne utilisée de la ligne 15 de la feuille 
        With Sheets("TFU evolution")        LastColumn = .Cells(15, .Columns.Count).End(xlToLeft).Column    End With
Dernière colonne utilisée de la feuille 
        With Sheets("TFU evolution").UsedRange        LastColumn = .Column + .Columns.Count - 1    End With

thev · Answer

Bonjour Dianex87,

Dernière ligne de la feuille :
        With ActiveSheet        lastrow = .Rows.Count    End With
Dernière ligne utilisée de la feuille
     With ActiveSheet.UsedRange        lastrow = .Row + .Rows.Count - 1    End With
Dernière ligne non vide pour la colonne A
     With ActiveSheet        lastrow = .Columns("A").End(xlDown).Row    End With
Dernière ligne utilisée pour la colonne A
    With ActiveSheet        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row    End With

Erreur code VBA qui doit copier-coller sur une plage glissante

2 réponses

Discussions similaires