Excel 2007 - VBA - Problème récurrent de sélection de cellule

[ushuiaia]

Bonjour à tous,

Je suis en cours de rédaction d'un programme VBA d'export de données d'une feuille vers différentes feuilles d'un même classeur. Depuis le début de l'écriture, je rencontre un problème pour la sélection de cellule avec la fonction Range.

J'écris Range("A14"). Select et lors de l'exécution, le programme me répond que la méthode Select de la classe Range a échoué.😕

J'aimerai savoir si quelqu'un peut me dépanner, merci par avance.

 

[jp14]

Re : Excel 2007 - VBA - Problème récurrent de sélection de cellule

Bonjour

Il est préférable d'indiquer le chemin d'accès à la cellule.
Classeur, feuille, cellule.

JP

 

[kiki29]

Re : Excel 2007 - VBA - Problème récurrent de sélection de cellule

Salut,

Sheets("NomDeLaFeuille").Activate
...

Sinon penser à l'utilsation d'un CodeName voir Sheet CodeNames: Reference Sheets in Excel Workbooks by Code Name

 

[ushuiaia]

Re : Excel 2007 - VBA - Problème récurrent de sélection de cellule

Bon, j'ai essayé avec Sheets("Feuil").activate à la place de Sheets("Feuil").Select mais ça bug toujours

Voici mon code si vous voyez quelque chose qui pourrait expliquer.

Encore merci.
A1 = Range("H6")
A2 = Range("H7")
A3 = Range("O5")
A4 = Range("N5")
A5 = Range("N6")
A6 = Range("N7")

Columns("A:A").Find("*", [A1], , , , xlPrevious).Select

AA1 = ActiveCell.Offset(0, 8)
AA2 = ActiveCell.Offset(0, 10)
AA3 = ActiveCell.Offset(0, 12)
AA4 = ActiveCell.Offset(0, 14)
AA5 = ActiveCell.Offset(4, 11)
AA6 = ActiveCell.Offset(6, 11)
AA7 = ActiveCell.Offset(8, 11)

' Exportation des données vers la feuille de synthèse

Sheets("Synthèse Etude").Activate
Range("A14").Select
Range("A1:O1").Copy
Range("A14,O14").Insert Shift:=xlDown
Application.CutCopyMode = False
Range("A14").Select
ActiveCell = A1
ActiveCell.Offset(0, 1) = A2
ActiveCell.Offset(0, 2) = A3
ActiveCell.Offset(0, 3) = A4
ActiveCell.Offset(0, 4) = A5
....
Range("A14").Select