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

Résolu/Fermé

arsenic - 22 juil. 2014 à 10:56
arsenic - 22 juil. 2014 à 11:26

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

A voir également:

Erreur d'exécution avec la méthode range
Erreur 0x80070643 - Guide
Erreur 38 free ✓ - Forum Mobile
Erreur d'execution 1004 ✓ - Forum Excel
Erreur d'éxecution 1004 - Forum Programmation
Iptv erreur de lecture - Forum TV & Vidéo

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 22/07/2014 à 11:16

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

Réponse 2 / 2

arsenic
22 juil. 2014 à 11:26

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

Discussions similaires

VBA erreur 1004

VBA : Range avec références variables..

input signal out of range

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters