XL 2010 Intégrégation dans un With d'une plage avec cells

[balez]

Bonjour,


J'essaye d'intégrer cette ligne

With ActiveSheet.Range(Cells(xRow, 2), Cells(xRow, 9))

VBA me retourne l'erreur 1004, même avec une valeur à la place de 'xrow'

J'ai réussi à le faire tourner dans un module, mais impossible dans une feuille.

Ou se trouve l'erreur de programmation?

Je joint un fichier test.

Merci à tous,

Chris

 

[fanch55]

Bonjour,
Le code est dans la feuille D
Set wsp = ThisWorkbook.Worksheets("P")
Set wsd = ThisWorkbook.Worksheets("D")

remplacez :

With wsp.Range(Cells(xRow, 2), Cells(xRow, 9))​

par

With wsp.Range(wsp.Cells(xRow, 2), wsp.Cells(xRow, 9))​

Ou

with wsp.Rows(xrow).Columns("B:I")​

 

[sylvanu]

Bonjour Balez,
Il vous faut préciser de quelle feuille il s'agit pour les "cells" :

With wsp.Range(wsp.Cells(xRow, 2), wsp.Cells(xRow, 9))

 

[tbft]

Bonjour à tous.
Question quand j'écris : wsp.Range("B2:B10") je ne précise pas le nom de la feuille...Pourquoi tant de haine???

J'étais en train de plancher dessus mais vous avez été plus rapide et plus efficace ...

 

[balez]

Bonjour à tous,

Merci à tous pour vos réponses rapides. Effectivement, une astuce à connaître que je n'avais pas réussi à ressortir de mes différentes recherches.
Comme tbft, je reste sur ma faim d'explication, d'autant plus que dans un module en déterminant wsp comme feuille active et
With ActiveSheet.Range(Cells(xRow, 2), Cells(xRow, 9)), cela fonctionne !!!!

Bonne journée,

 

[Staple1600]

Bonjour le fil

Personnellement, je préfère la seconde syntaxe
(parce qu'un peu plus courte à saisir dans VBE)

Sub test()
Dim xRow&
xRow = 3
With ActiveSheet
MsgBox Range(.Cells(xRow, 2), .Cells(xRow, 9)).Address
End With
With ActiveSheet.Cells(xRow, 2).Resize(, 8)
MsgBox .Address
End With
End Sub

 

[tbft]

Bonjour
Une hypothèse : cells() fait référence à la page active si on ne précise pas la page avant...
A vérifier..