XL 2013 Simplifier code VBA

Dranreb

XLDnaute Barbatruc

• 19 Janvier 2017

• #2

Bonjour.

VB:

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)

 

Dernière édition: 19 Janvier 2017

Vote positif 0 Vote négatif

K

Kaizers

XLDnaute Occasionnel

• 19 Janvier 2017

• #3

Dranreb à dit:

Bonjour.

VB:

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

Cliquez pour agrandir...

ça ne fonctionne pas :/

 

Vote positif 0 Vote négatif

K

Kaizers

XLDnaute Occasionnel

• 19 Janvier 2017

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Janvier 2017

• #5

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

VB:

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

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

VB:

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)

 

Vote positif 0 Vote négatif