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

 

[job75]

Bonjour patricktoulon,

Ceci est plus simple :

Function testing(chaine As String)
chaine = LTrim(Format(chaine, Application.Rept("\ 000", 1 + Int((Len(chaine) - 1) / 3))))
Debug.Print chaine
End Function

A+

 

[Dudu2]

Bonjour @patricktoulon, @job75
Ça ?

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

 

[Dudu2]

Ou encore un poil plus simple: (Left ou String c'est le même principe)

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

 

[sylvanu]

Bonjour Patrick, Job, Dudu,
Ou ça :

Function Testing(Chaine As String)
    Testing = Right(Format(Chaine, "#,##0"), Round((4 * Len(Chaine) - 1) / 3, 0))
    Debug.Print Testing 
End Function

 

[patricktoulon]

re
A oui quand même !!!

plus simple non( en terme de codage) mais moins gourmande certainement
la moins lourde étant je suppose celle de @job75 qui est suivi par @sylvanu
@Dudu2 cumulant 2 formatages et un calcul mod etant la plus lourde je pense

j'adopte la méthode de @job75
merci a tous

 

[sylvanu]

Alors plus simple, en terme de codage :

Function Testing(Chaine As String)
    Testing = Right(Format(Chaine, "#,##0"), (4 * Len(Chaine) - 1) / 3)
    Debug.Print Chaine
End Function

 

[sylvanu]

Re,
@patrick, "moins gourmande" en terme de temps d'exécution ?
Sur mon PC, Win10 et XL2007, ce n'est pas le cas. Voir PJ.

 

[job75]

Bonjour sylvanu,

Ta fonction ne renvoie pas le résultat demandé. : pour 2222 elle renvoie 2 222 au lieu de 002 222

Je pense qu'en effet la solution de Dudu2 est la plus rapide.

A+

 

[patricktoulon]

re
@Syvanu
ce n'est pas ce que j'ai demandé le resultat

Function TestingSylvanu(chaine As String)
    TestingSylvanu = Right(Format(chaine, "#,##0"), (4 * Len(chaine) - 1) / 3)
Debug.Print Right(Format(chaine, "#,##0"), (4 * Len(chaine) - 1) / 3)


End Function
Sub test()
    TestingSylvanu "1"
    TestingSylvanu "10"
    TestingSylvanu "100"
    TestingSylvanu "1000"
    TestingSylvanu "10000"
    TestingSylvanu "100000"
    TestingSylvanu "1000000"
    TestingSylvanu "1000000000"
   
End Sub

resultat dans le debug

1
10
100
1 000
10 000
100 000
1 000 000
1 000 000 000

 

[sylvanu]

Oups ! je vais regarder.

 

[patricktoulon]

re
non les solutions 1 et 2 de @Dudu2 déraillent aussi
seule celle de @job75 et la mienne fonctionnent

 

[Dudu2]

non les solutions 1 et 2 de @Dudu2 déraillent aussi

C'est toi qui dérailles !
C'est bien ce que tu veux non ?
001
010
100
001 000
010 000
100 000
001 000 000
001 000 000 000

 

[sylvanu]

La mienne rectifiée. Elle semble correcte et la plus rapide, mais perd en longueur de texte.

Function TestingSylvanu(chaine As String)
   TestingSylvanu = Right(Format(chaine, "000 000 000"), Choose(Len(chaine), 3, 3, 3, 7, 7, 7, 11, 11, 11))
End Function

@patrick, pour moi aussi celle de Dudu marche. Voir tableau PJ. Ou alors quelque chose m'a échappé.

 

[Dudu2]

Salut @sylvanu,
Je connaissais pas le Choose(). Faudra que j'approfondisse le bidule.
Notre @patricktoulon, il va toujours trop vite !