fonction personalisé en VBA avec formule CTXT

[gonz19]

bonjour a tous,

Je viens solliciter votre aide .
J'ai créer une fonction personnalisée : =soustotalspe("A";"C")
La colonne C est la colonne dont je veux la somme, la colonne A est la colonne qui comporte les titres;
la fonction fait la somme de l'emplacement de la cellule ou ce trouve la fonction jusqu'à la première valeur de la colonne A.

Public Function soustotalspe(reference As Variant, colonne As Variant)
Dim AD, R1 As Double, ADB As Variant

Application.Volatile
soustotalspe = ""
AD = Application.ThisCell.Row

soustotalspe = 0
R1 = Range(reference & AD).End(xlUp).Row
i = 0

For i = R1 + 1 To AD - 1
soustotalspe = soustotalspe + Cells(i, colonne).Value
Next i

End Function

Je voudrais ajouter un détail à ma fonction personnalisée. Je souhaiterais que le résultat sois sous forme de texte (non pris en charge dans une formule somme).
Cela reviendrai a écrire la formule =CTXT(soustotalspe("A";"C")) qui fonctionne
Je trouve dommage d'écrire quelque chose de si long en ayant créer une fonction personnalisé.

J'ai bien essayé de rajouter un .fixed dans la fonction mais je n'arrive pas a l'intégrer.

merci de votre aide

 

[Lone-wolf]

Re : fonction personalisé en VBA avec formule CTXT

Bonjour gonz

Et si tu mettait le fichier?

 

[Bebere]

Re : fonction personalisé en VBA avec formule CTXT

bonjour Gonz,Lone-wolf
bienvenue
déclarer la fonction as string

Public Function soustotalspe(reference As Variant, colonne As Variant) As String
Dim AD, R1 As Double, ADB As Variant

Application.Volatile
soustotalspe = ""
AD = Application.ThisCell.Row

soustotalspe = 0
R1 = Range(reference & AD).End(xlUp).Row
i = 0

For i = R1 + 1 To AD - 1
soustotalspe = CDbl(soustotalspe) + Cells(i, colonne).Value
Next i
End Function

 

[CPk]

Re : fonction personalisé en VBA avec formule CTXT

Bonjour à toutes et à tous.
Gonz19, avez-vous essayé d'indiquer une valeur de retour string pour la fonction ? je ne suis pas sur de son résultat mais c'est à experimenté

Public Function soustotalspe(reference As Variant, colonne As Variant) as string

 

[Dranreb]

Re : fonction personalisé en VBA avec formule CTXT

Bonjour.
Pourquoi ne rajouteriez vous pas tout simplement As String derrière votre instruction Function ?

Edit: Désolé, ça m'est venu d'un coup en songeant à pleins d'autres détails qui ne me semblaient pas optimums dans cette fonction, et j'ai envoyé aussitôt sans vérifier si quelqu'un avait eu la même idée.

 

[gonz19]

Re : fonction personalisé en VBA avec formule CTXT

effectivement la solution marche parfaitement. tant de recherche et de prise de tête pour un As String.
merci a vous de votre aide si rapide

 

[Lone-wolf]

Re : fonction personalisé en VBA avec formule CTXT

Bonjour à tout ce beau monde

 

[Dranreb]

Re : fonction personalisé en VBA avec formule CTXT

Et puis ça marcherait pas de faire :

SousTotalSpe = WorksheetFunction.Sum(Range(Cells(R1 + 1, colonne), Cells(AD - 1, colonne)))

histoire de réduire le nombre d'accès aux cellules ?

Bonjour Lone-wolf.

 

[Lone-wolf]

Re : fonction personalisé en VBA avec formule CTXT

Re

As Variant fonctionne aussi.

Public Function soustotalspe(reference As Variant, colonne As Variant) As Variant

 

[gonz19]

Re : fonction personalisé en VBA avec formule CTXT

si ca marche aussi, Il suffisait juste d'y penser.
je me suis basé sur un code du même type récupérer sur un forum.

 

[Dranreb]

Re : fonction personalisé en VBA avec formule CTXT

As Variant fonctionne aussi.

Ah non ! En toute bonne logique ça renverra du Variant/Double et non du Variant/String comme bizarrement exigé !
Maintenant il se peut qu'Excel convertisse en nombre de toute façon. Et dans ce cas, oui, c'est mieux.

 

[gonz19]

Re : fonction personalisé en VBA avec formule CTXT

AS variant ca marche mais pas avec la solution de Dranred d'après mon essai