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

fanch55

XLDnaute Barbatruc

• 19 Avril 2021

• #2

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")​

 

Dernière édition: 19 Avril 2021

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2021

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 19 Avril 2021

• #4

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

 

Vote positif 0 Vote négatif

B

balez

XLDnaute Nouveau

• 20 Avril 2021

• #5

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,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Avril 2021

• #6

Bonjour le fil

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

VB:

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 21 Avril 2021

• #7

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

 

Vote positif 0 Vote négatif