Dudu2
XLDnaute Barbatruc
Bonjour à tous,
Question qui peut paraître étrange mais dont les conditions se posent à moi de temps en temps.
Dans un With, comment faire référence à l'objet cité dans le With autrement que par lui-même ou par un artifice ?
Exemple:
Merci pour vos avis éclairés.
Question qui peut paraître étrange mais dont les conditions se posent à moi de temps en temps.
Dans un With, comment faire référence à l'objet cité dans le With autrement que par lui-même ou par un artifice ?
Exemple:
VB:
Sub a()
With ThisWorkbook.Worksheets("Feuil1")
.Cells(10, 1).Value = "Dernière ligne utilisée de la feuille ->"
'Objet de la question, syntaxe non valide:
'.Cells(10, 4).Value = b(.)
'Méthode détournée
.Cells(10, 4).Value = b(.Cells(1, 1).Parent)
End With
End Sub
Function b(WS As Worksheet)
b = WS.UsedRange.Row + WS.UsedRange.Rows.Count - 1
End Function
Merci pour vos avis éclairés.