A rpopos de Worksheetfunction

[Adamev]

Bonsoir;
Je voudrais savoir si les fonction de feuilles de calcul, sont-elles toutes utilisables en VBA?
Si oui, quelle est la syntaxe?
Merci

 

[Victor21]

Re : A rpopos de Worksheetfunction

Bonjour, Adamev

En activant l'enregistreur de macros, (Macros, nouvelle macro) chacune de vos actions est transcrite en VBA.
C'est àmha, un très bon moyen de découvrir ce langage.
Pour découvrir le code ainsi généré, Alt+F11, et cliquez sur le module (à gauche).

Il ne reste plus alors qu'à associer le code aux actions que vous avez réalisées.
Un coup de F1 sur un mot-clé sélectionné du code vous apportera toute les précisions qui vous manquent 🙂

 

[Fred0o]

Re : A rpopos de Worksheetfunction

Bonjour adamev,

Oui, elles sont toutes utilisables avec leur nom anglais. Par exemple le code :

[A1] = WorksheetFunction.Choose([A2], [B3], [B4], [B5])

est équivalent à mettre en A1, la formule :

=CHOISIR(A2;B3;B4;B5)

A+

 

[Misange]

Re : A rpopos de Worksheetfunction

Bonjour
tu l'as écrit dans le titre 🙂
Dans VBA tu as :

1) des fonctions qui font la même chose (ou presque) que les fonctions de feuille. En général dans ce cas tu dois utiliser la fonction VBA.
par exemple left (gauche) ou year ou date ou...

2) des fonctions qui ont l'air d'être une traduction de la fonction de feuille mais qui en fait fonctionnent un peu différemment. Par exemple Offset (decaler)


3) les fonctions de feuille que tu appelles
soit par application.worksheetfunction.match (par exemple)
soit par
application.match
la seconde écriture est plus courte mais perso j'utilise toujours la première car elle permet d'avoir accès à l'intellisense c'est à dire à l'aide à la saisie. Quand tu tapes le point après application.worksheetfunction tu as une liste qui s'ouvre et te montres les fonctions dispos, t'évite de les saisir et t'évite aussi de faire des fautes d'orthographe.
par exemple :
TbloTemp = Application.WorksheetFunction.Transpose(.Range(Cells(t, 1), Cells(t, NbCol)).Value)

ou encore pour utiliser la combinaison index+equiv
Tblo(10) = Application.WorksheetFunction.Index(Range("mat_nom"), Application.WorksheetFunction.Match(CodeMat, Range("mat_code"), 0))

edit : coucou Freedo et Patrick

 

[Adamev]

Re : A rpopos de Worksheetfunction

Bonsoir Victor21 , Fred0o , Misange,
Merci à vous pour ces amples explications.
Il me reste des "entraînements" à faire, semble t-il, pour m'habituer à utiliser ces fonctions.
Merci encore!

 

[Misange]

Re : A rpopos de Worksheetfunction

Vu ton âge sur la photo tu as encore le temps de t'entraîner avant la retraite 🙂

 

[Adamev]

Re : A rpopos de Worksheetfunction

Vu ton âge sur la photo tu as encore le temps de t'entraîner avant la retraite 🙂

Re;
... oui suffisamment de temps!!
Tu m'a fait rire, vraiment.
Et tu m'as fait penser, aussi, à mettre à jour ma photo.