erreur d'exécution avec la méthode range Résolu/Fermé

Question

Bonjour, 

J'ai un problème avec la macro suivante. En effet, elle m'indique une erreur d'exécution à la ligne Range(Cells(i, 1), Cells(i, 12)).Select
Je ne comprends pas l'erreur, car la ligne suivante Sheets("Format").Activate
Range(Cells(k, 1), Cells(k, 9)).Select marche très bien.

Merci d'avance pour votre aide.

Sub Format()

Dim nom_fichier As String
Dim i, k As Integer

i = 2
k = 2

nom_fichier = ActiveWorkbook.Name

Sheets("BDD").Activate
Range(Cells(i, 1), Cells(i, 12)).Select
Selection.Copy
Sheets("Format").Activate
Range(Cells(k, 1), Cells(k, 9)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub

Patrice33740 · Answer

Bonjour,

Tout simplement :
Sub Format()
Dim i As Long, k As Long
  i = 2
  k = 2
  Worksheets("Format").Cells(k, 1).Resize(1, 12).Value = _
     Worksheets("BDD").Cells(i, 1).Resize(1, 12).Value
End Sub
Cordialement
Patrice

arsenic · Answer

Merci beaucoup!
Je ne connaissais pas la méthode Resize.

Erreur d'exécution avec la méthode range

2 réponses

Discussions similaires