Autres avez vous plus simple que ça (challenge)

[patricktoulon]

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

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

 

[sylvanu]

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 :

=SOMME(CHOISIR(2;A1:A10;B1:B10;C1:C10))

est évaluée comme : =SOMME(B1:B10)
Ca ouvre des perspectives.

 

[patricktoulon]

moi je vous dis que non sinon ma fonction marcherait

 

[sylvanu]

Sur la fonction de Dudu faites un split avec chr(160) au lieu de " ".
Sur la mienne ( la dernière du post #14 ), le split avec " " marche.

 

[patricktoulon]

re
oui mais elle a une limite il faut ajouter des choix dans le choose
de ce fait j'aurais utilisé switch et non choose

 

[patricktoulon]

re
bon la solution de @Dudu2 fonctionne bien avec chr(160)
mille excuse @Dudu2

 

[Dudu2]

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.

Function testing(chaine As String) As String
    testing = String(2 - (Len(chaine) - 1) Mod 3, "0") & Format(chaine, "#,##0")
    Debug.Print testing
End Function

 

[Dudu2]

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 !

 

[Bernard_XLD]

Bonsoir le fil, le forum

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

Bien cordialement, @+

Function testing$(ByVal Chaine$)
Chaine = Right("00" & Format(Chaine, "#,##0"), (-Int(Len(Chaine) / -3) * 4) - 1)
Debug.Print Chaine
End Function

 

[patricktoulon]

Bonjour @Yeahou
perso de toute je préfère celle ci
de @Dudu2

chaine=String(2 - (Len(chaine) - 1) Mod 3, "0") & Format(chaine, "#,##0")

pourquoi
et bien par ce qu'elle ajoute juste les zéros qu'il faut et formate l'existant
pas d'autre calcul right left et autres arrangements

 

[patricktoulon]

re
bon ben j'avance
êtes vous d'accords avec cette écriture

 

[Dudu2]

Mille est invariable.
Mais Cent se met au pluriel si plusieurs centaines évidemment et rien derrière.
Deux cent cinquante / Trois cents.
Tu l'as prévu ?

 

[patricktoulon]

re
Bonjour @Dudu2
oui je l'ai prévu
et mille je le change pas

 

[patricktoulon]

re
voilà est ce que l'on est bon là

francais***********
deux-cent-quatre-vingt-onze,vingt-cinq
deux-cent-quatre-vingt-onze euro et vingt-cinq centimes
trois-cents
trois-cents euro
quatre-vingt-un euro
quatre-vingts milliards deux-cent-soixante-onze millions cinq-cent-quatre-vingt-onze mille huit-cent-soixante-douze
******************

suisse***********
deux-cent-nonante-et-un,vingt-cinq
deux-cent-nonante-et-un CHF et vingt-cinq centimes
trois-cents
trois-cents CHF
huitante-et-un CHF
huitante milliards deux-cent-septante-et-un millions cinq-cent-nonante-et-un mille huit-cent-septante-et-deux
******************

belgique***********
deux-cent-nonante-et-un,vingt-cinq
deux-cent-nonante-et-un euro et vingt-cinq centimes
trois-cents
trois-cents euro
quatre-vingt-un euro
huitante milliards deux-cent-septante-et-un millions cinq-cent-nonante-et-un mille huit-cent-septante-et-deux

merci des retours

 

[Dudu2]

En tous cas, si on gagne à l'Euro-Millions de demain, on sait à qui s'adresser pour écrire le montant du gros lot

 

[patricktoulon]

re
voilà la fonction NBlettresFSB(FrancoSuisseBelge) est prête