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

Résolu

arsenic -
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

Afficher la suite

A voir également:

Erreur d'exécution avec la méthode range
Out of range - Forum Ecran
Erreur 3000 france tv - Forum Lecteurs et supports vidéo
Erreur 0x80070643 - Accueil - Windows
Out of range écran - Forum Windows
Erreur t32 ✓ - Forum Livebox

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

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

Discussions similaires

input signal out of range

Erreur 3005 sur France TV

comment désactiver out of range

Table des matières dont les titres n'apparaissent pas..

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

Votre réponse

Discussions similaires