XL 2013 Simplifier code VBA

[Kaizers]

Bonjour à tous,

J'aimerai savoir comment faire la même chose que ça ;

Sheets("DATA").Select
T = WorksheetFunction.CountA(Columns(1))

Sans passer par le .select

J'aimerai qu'il le fasse sans changer d'onglet 🙂

Merci pour votre aide et à la communauté

 

[Dranreb]

Bonjour.

T = WorksheetFunction.CountA(Worksheets("Data").Columns(1))

Mais s'il s'agit d'une feuille du classeur représenté par ThisWorkbook, c'est encore mieux d'éviter une recherche dans sa collection Worksheets en spécifiant à la place de cette expression Worksheet le nom de l'objet dans la rubrique Microsoft Excel Objet. (on l'appelle aussi parfois, à tort, du nom d'une propriété String en lecture seule qui reproduit ce nom: son CodeName)

 

[Kaizers]

Bonjour.

T = WorksheetFunction.CountA(Worksheets("Data").Colunns(1))

ça ne fonctionne pas :/

 

[Kaizers]

Non c'est bon, il avait un "m" remplacer par un "n" dans Colunns(1))
Merci t'es au top

 

[Dranreb]

Oui, désolé pour la faute de frappe.
Mais, comme dit, si on peut écrire ça à la place c'est encore mieux :

T = WorksheetFunction.CountA(Feuil1.Columns(1))

Pour la clarté il suffit de faire ce qu'il faut pour pouvoir écrire même ça :

T = WorksheetFunction.CountA(FData.Columns(1))

C'est à dire changer la 1ère propriété (Name) Feuil1 en FData dans la fenêtre de propriétés du module Feuil1 (Data)