Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Fonction Excel sous VBA

Fonction Excel sous VBA

5 réponses
Avatar
Michel41
Bonjour

Soit dim X
Comment encapsuler une fonction du tableur
donnant un résultat chiffré dans une fonction VBA
comme

X= fonction VBA (fonction du tableur)

Merci? @¨+
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

sub chercheracine()
lareponse = racinecarree(cdbl(36))
end sub

fonction racinecarree(nombre as double) as double
racine = application.sqrt(nombre)
racinecarree = racine
end function

"Michel41" a écrit dans le message de
news:41eab5b5$0$19422$
Bonjour

Soit dim X
Comment encapsuler une fonction du tableur
donnant un résultat chiffré dans une fonction VBA
comme

X= fonction VBA (fonction du tableur)

Merci? @¨+




Avatar
Philippe.R
Bonsoir,
Une méthode :
On peut utiliser les fonctions de feuille de calcul Excel dans VBA en utilisant leur nom anglais et en
les faisant précéder de application.worksheetfunction
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Michel41" a écrit dans le message de news:
41eab5b5$0$19422$
Bonjour

Soit dim X
Comment encapsuler une fonction du tableur
donnant un résultat chiffré dans une fonction VBA
comme

X= fonction VBA (fonction du tableur)

Merci? @¨+



Avatar
Michel41
Merci
J'ai écrit un compteur de lignes utilisées dans une colonne
(ci après) mais Philippe.R indique dans sa réponse avec WorksheetFunction :
XL 97 / 2000 / 2002
Quid après Version 2002 ?

Sub Macro1()
Dim Rg As Range, Rp As Variant
Set Rg = Worksheets("XXX").Range("C:C")
Rp = Application.WorksheetFunction.CountA(Rg)
MsgBox réponse
End Sub

@+
M41






"Michel41" a écrit dans le message de news:
41eab5b5$0$19422$
Bonjour

Soit dim X
Comment encapsuler une fonction du tableur
donnant un résultat chiffré dans une fonction VBA
comme

X= fonction VBA (fonction du tableur)

Merci? @¨+



Avatar
Philippe.R
Bonjour Michel,
Comme tu l'auras compris, n'étant pas équipé de version plus récente que 2002, je ne peux le vérifier,
mais je serais bien étonné que ça ne fonctionne.
--
Amicales Salutations
XL 97 / 2000 / 2002

"Michel41" a écrit dans le message de news:
41eaf6e2$0$7121$
Merci
J'ai écrit un compteur de lignes utilisées dans une colonne
(ci après) mais Philippe.R indique dans sa réponse avec WorksheetFunction : XL 97 / 2000 / 2002
Quid après Version 2002 ?

Sub Macro1()
Dim Rg As Range, Rp As Variant
Set Rg = Worksheets("XXX").Range("C:C")
Rp = Application.WorksheetFunction.CountA(Rg)
MsgBox réponse
End Sub

@+
M41






"Michel41" a écrit dans le message de news:
41eab5b5$0$19422$
Bonjour

Soit dim X
Comment encapsuler une fonction du tableur
donnant un résultat chiffré dans une fonction VBA
comme

X= fonction VBA (fonction du tableur)

Merci? @¨+







Avatar
AV
J'ai écrit un compteur de lignes utilisées dans une colonne


Tu aurais pu écrire comme ça :

MsgBox [counta(XXX!C:C)]

AV