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

Autres avez vous plus simple que ça (challenge)

Créer une discussion

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

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
m’étant remis sur mes fonction perso (lettres/nombres )et vise et versa
je modifie un peu les écriture
je me demande si quelqu'un connait quelque chose de plus simple que ça

le but et d'obtenir une chaîne composé de sous chaîne de 3 chiffres

VB: 
Sub test()
testing "1"
testing "22"
testing "8739"
testing 5378745
End Sub

Function testing(chaine As String)
chaine = Trim(Replace(Format("000" & chaine, Application.Rept("000 ", Len(chaine))), "000 ", ""))
Debug.Print chaine
End Function
résultat pour les exemple ci dessus
001
022
008 739
005 378 745
Cliquez pour agrandir...
 
Trier par date Trier par votes
CHOISIR en français sous XL:

CHOISIR (CHOISIR, fonction) - Support Microsoft

Cet article décrit la syntaxe de formule et l’utilisation de la fonction CHOOSE qui utilise index_num pour retourner une valeur à partir de la liste des arguments de valeur. Utilisez la fonction CHOISIR pour sélectionner l’une des 254 valeurs possibles à partir du rang donné par l’argument no_index.
support.microsoft.com
C'est intéressant quand on doit choisir des valeurs arbitraires en fonction d'un index.
Ou très sympa l'exemple que donne MS et que je ne connaissais pas :
VB: 
=SOMME(CHOISIR(2;A1:A10;B1:B10;C1:C10))
est évaluée comme : =SOMME(B1:B10)
Ca ouvre des perspectives.
 
Vote positif 0 Vote négatif
C'est quoi ce Chr(160) ? J'ai pas besoin de ça pour la faire fonctionner la fonction ?
C'est le blanc insécable ? Il faut le mettre où chez vous ?
Franchement ça me dépasse ! Bon j'ai pas tout suivi non plus.
VB: 
Function testing(chaine As String) As String
    testing = String(2 - (Len(chaine) - 1) Mod 3, "0") & Format(chaine, "#,##0")
    Debug.Print testing
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
Ah ok, c'est pour splitter le résultat du formatage.
Excel met un blanc insécable et pas un espace.
C'est ça que voulvoulé dire.
Ben oui 😛. Mais bon, je m'en souvenais plus non plus ! 😁
 
Vote positif 0 Vote négatif
Bonsoir le fil, le forum

Une autre façon, très rapide aussi.

Bien cordialement, @+
VB: 
Function testing$(ByVal Chaine$)
Chaine = Right("00" & Format(Chaine, "#,##0"), (-Int(Len(Chaine) / -3) * 4) - 1)
Debug.Print Chaine
End Function
 
Vote positif 0 Vote négatif
re
voilà est ce que l'on est bon là

merci des retours
 
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…