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

Fonction Initiale

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Turbo
  • 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
T

Turbo

Guest
Comme indiqué dans le titre, j'ai un bouton qui active une macro qui " est sensé " me récupérer les initiales d'une personne dont le nom et le prénom sont contenue dans deux cellules différentes.

J'ai integrer une fonction qui " normalement " devrait me retourner les initiales du prénom ( si il est composé ).

Ex :

NOM -------------------- PRENOM---------------INITIALE
Dupont------------------Marie-Pierre-------------MPD

Je vous joins juste les codes, les fichiers en eux mêmes vous sont inutiles :

Code: 
Private Sub Initiale_Click()
    
    Dim Prenom, Initiale As String
    Prenom = Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 16).Value
    MsgBox (Prenom)
    GetInitiale (Prenom)
    MsgBox (Prenom)
    Initiale = Prenom & Left(Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 2).Value, 1)
    Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 29).Value = Initiale
    
End Sub

Function GetInitiale(strChaine As String) As String

    Dim i As Integer
    Dim temp() As String
    temp = Split(strChaine, "-")
    strChaine = Left(strChaine, 1)
    For i = 1 To UBound(temp)
        strChaine = strChaine & Left(temp(i), 1)
    Next i
    
End Function

La fonction GetInitiale originale pompée du net, mais qui ne fait pas ce que je recherche également :

Code: 
Function GetInitiale(strChaine As String) As String
Dim i As Integer
Dim temp() As String
temp = Split(strChaine, "-")
For i = 0 To UBound(temp)
  GetInitiale = GetInitiale & Left(temp(i), 1)
Next i
End Function

A chaque fois, ca me retourne le prénom en entier, et je ne comprends pas pourquoi ...

Merci de bien vouloir m'éclairer une nouvelle fois 🙄
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Fonction Initiale

Finalement pour pas que vous vous embettiez a reconstituer un fichier excel comme le mien pour vos tests, je vous joins le fichier Excel en question :
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Fonction Initiale

Merci du lien et de ta fonction Staple1600 😉

En faite, j'aimerai comprendre pourquoi mes fonctions GetInitiale ne marchent pas...
Pas " pomper " celle d'un autre ( même si a la base la fonction vient du net )
 
Vote positif 0 Vote négatif
Re : Fonction Initiale

Désolé pour le triple post.

Je up, car je pense pas que ma question soit bien compliquée pour les pro-vbaistes qui arpentent ce forum, et que j'aurai un peu besoin d'explication 😀

Je resume donc ma demande :

Je ne comprends pas pourquoi mes fonctions n'arrivent pas a retourner le résultat que je demande...
Les explications, et les données se trouvent dans mon premier message de ce topic.

Merci a vous 😉
 
Vote positif 0 Vote négatif
Re : Fonction Initiale

Essai cela!
Function GetInitiale(strChaine)

Dim i As Integer
Dim temp
temp = InStr(1, strChaine, "-")
s = Left(strChaine, 1)
GetInitiale = s & Mid(strChaine, temp + 1, 1)
'For i = 1 To UBound(temp)
'GetInitiale = strChaine & Left(temp(0), 1)
'Next i
 
Vote positif 0 Vote négatif
Re : Fonction Initiale

Merci de ta fonction sousou 😉

Mais ce n'est pas ce que je recherche ^^

J'espère que ce coup ci, vous comprendez mieu :

Pourquoi ma fonction ne change pas la valeur de mon paramètre ?!?

Code: 
Private Sub Initiale_Click()
    
    Dim Prenom, Initiale As String
    Prenom = Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 16).Value
    MsgBox (Prenom)
    GetInitiale (Prenom)
    MsgBox (Prenom)
    Initiale = Prenom & Left(Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 2).Value, 1)
    Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 29).Value = Initiale
    
End Sub

Code: 
Function GetInitiale(ByRef Prenom As String)
    Dim i As Integer
    Dim temp() As String
    temp = Split(Prenom, "-")
    Prenom = ""
    For i = 0 To UBound(temp)
           Prenom = Prenom & Left(temp(i), 1)
    Next i

End Function

Voici le fichier, y'a juste a cliquer sur le bouton "Initiale =>" pour executer ce bout de programme.

Merci 😛
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Fonction Initiale

Bonjour


Ca marche mieux comme ça non
Code: 
Function GetInitiale(ByRef Prenom As String)
    Dim i As Integer
    Dim temp() As String
    temp = Split(Prenom, "-")
    Prenom = ""
    For i = 0 To UBound(temp)
           Prenom = Prenom & Left(temp(i), 1)
    Next i
[B] GetInitiale = Prenom[/B]
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Fonction Initiale

Merci encore Staple1600 ( ton avatar est mieu au faite ^^ )

Mais malheuresement, ca ne change absolument rien a mon programme...

Prenom ne change toujours pas de valeur après être passer dans ma fonction 🙁
 
Vote positif 0 Vote négatif
Re : Fonction Initiale

Non plus Staple1600, ca c'est la fonction originale comme je l'ai deja montré plus haut 😉


Edit : Vive les éditions, ca a crée une nouvelle réponse 😡
 
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.

Discussions similaires

  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
323
dysorthographie
Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
141
youguybass
Y
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
478
nabilexcel2007
N
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
922
AtTheOne
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
745
patricktoulon
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
733
kiki29
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
819
KRUG WOO
K
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
775
patricktoulon
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
325
Phil69970
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
497
eric72
E
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
888
patricktoulon
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
2 K
jurassic pork
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…