Fonction personnalisée

Bonsoir à tous et toutes,

Je débute en vba et je m'attaque aux fonctions personnalisées afin de mettre à disposition certaines fonctions natives d'excel.

Vous trouverez ci-dessous le code utilisé qui ne fonctionne pas (assez logique car je ne le maîtrise pas).

Je souhaiterai donc de la part des maîtres qui officient sur cet excellent site une expliquation et une petite dernière question il y a t il un module spécial à activer ?

Public Function Somme() As Variant
Dim LigneFin As Variant
Application.Volatile
With F1
LigneFin = .Range("N1048576").End(xlUp).Row
total = Application.Sum(.Range(.Range("n10"), .Cells(LigneFin, 14)))
Somme = total 
End With
End Function

Je vous remercie d'avance pour toutes vos réponses et surtout pour votre patience.

Cdt

Air_2

Bonsoir

cela fonctionnerait mieux si

Tu n'utilises pas un nom d'une fonction existante

Ayant 2003 la cellule N1048576n'existe pas

Essayes

Public Function Sommebis() As Variant
Dim LigneFin As Variant
Application.Volatile
  With F1
    LigneFin = .Range("N" & Rows.Count).End(xlUp).Row
    total = Application.Sum(.Range(.Range("N10"), .Cells(LigneFin, 14)))
    Sommebis = total
  End With
End Function

En simplifiant

Public Function Sommebis() As Variant
  Application.Volatile
  Sommebis = Application.Sum(F1.Range("N10:N" & F1.Range("N" & Rows.Count).End(xlUp).Row))
End Function

Merci Maître Banzai64,

je vais rester sur ta prmière proposition le temps de m'y faire et je passerai à ta seconde pour avoir un code moins long .

C'est pour developper certaines fonctions pour des utilisateurs qui ne sont pas à l'aise avec le tableur.

Mais je ferme le post

Et encore une fois Merci

Air_2

Rechercher des sujets similaires à "fonction personnalisee"