Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Résolu] Problème dans l'exécution d'une fonction personnalisée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion matfab
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

matfab

Guest
Bonjour,

Je souhaite dans une liste de termes convertir la première lettre (et seulement celle-ci) en minuscule (pas en majuscule!).
Après de nombreux essais j'ai tapé:

Code: 
=CONCATENER(MINUSCULE(STXT(B2;1;1));STXT(B2;2;999))
pour un résultat positif.

Grâce au forum j'ai découvert comment faire une fonction personnalisée, ce qui me donne logiquement :

Code: 
Function LCFLOnly(cellule_cible)
' LowerCaseFirstLetterOnly

LCFLOnly = CONCATENATE(LOWER(Mid(B1, cellule_cible, 1)), Mid(cellule_cible, 2, 999))

End Function

Malheureusement cela me donne un message d'erreur, voir pièce jointe. En quoi me suis-je trompé?

Merci d'avance,
 

Pièces jointes

  • Capture.jpg
    39.7 KB · Affichages: 57
  • Capture.jpg
    39.7 KB · Affichages: 60
  • Capture.jpg
    39.7 KB · Affichages: 72
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Problème dans l'exécution d'une fonction personnalisée

Bonjour,

CONCATENATE et LOWER ne sont pas des fonctions natives de vba...

bonne soirée
@+

Edition : bonsoir PierreJean🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème dans l'exécution d'une fonction personnalisée

Bonjour matfab

Essaie comme ceci

Code: 
Function LCFLOnly(cellule_cible)
' LowerCaseFirstLetterOnly


LCFLOnly = LCase(Mid(cellule_cible, 1, 1)) & Mid(cellule_cible, 2)


End Function

Edit: Salut Pierrot
 
Vote positif 0 Vote négatif
Re : Problème dans l'exécution d'une fonction personnalisée

bonjour,
Code: 
Function LCFLOnly(cellule_cible As Range) As String
LCFLOnly = LCase(Left(cellule_cible, 1)) & Mid(cellule_cible, 2, Len(cellule_cible))
End Function
A+
kjin
 
Vote positif 0 Vote négatif
Re : Problème dans l'exécution d'une fonction personnalisée

Bonsoir,

Je croyais qu'il suffisait de donner les équivalents anglais des fonctions Excel, me voilà moins ignare...
Merci à tous pour votre aide et bonne soirée,
matfab
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…