Format de nombres

[milom]

Bonjour à tous .
Je voudrais générer une liste de numéros de portable de façon aléatoire.
J utilise donc cette formule :
='06'&' '&ALEA.ENTRE.BORNES(0;99)&' '&ALEA.ENTRE.BORNES(0;99)&' '&ALEA.ENTRE.BORNES(0;99)&' '&ALEA.ENTRE.BORNES(0;99)

Seulement au lieu de m'afficher 06 01 46 02 57 , il m'affiche 06 1 46 2 57....

Comment forcer l'écriture de chaque nombre sous la forme -- c'est a dire obtenir des 01 et pas des 1....

Merci d'avance

 

[robby]

essaye ca:

Sub numeroaleatoire()
Dim numero As String
Dim c As String
numero = '06'
For x = 1 To 4
a = Rnd
a = a * 100
b = CInt(a)
If b < 10 Then
c = '0' & b
Else: c = b
End If
numero = numero & ' ' & c
Next x
MsgBox numero
End Sub

 

[milo]

Euh merci beaucoup pour ton aide...Mais comment j'utilise du code dans excel ?? je ne l'ai jamais fait auparavant !!!!
😱

 

[JPM]

Bonjour à tous,

Pourquoi pas mettre ça :
='06'&' '&ALEA.ENTRE.BORNES(0;9)&ALEA.ENTRE.BORNES(0;9)&' '&ALEA.ENTRE.BORNES(0;9)&ALEA.ENTRE.BORNES(0;9)&' '&ALEA.ENTRE.BORNES(0;9)&ALEA.ENTRE.BORNES(0;9)&' '&ALEA.ENTRE.BORNES(0;9)&ALEA.ENTRE.BORNES(0;9)

Bonne journée

Jean-Pierre

 

[PascalXLD]

Bonjour

sans macro essaies ceci

='06'&' '&TEXTE(ALEA.ENTRE.BORNES(0;99);'00')&' '&TEXTE(ALEA.ENTRE.BORNES(0;99);'00')&' '&TEXTE(ALEA.ENTRE.BORNES(0;99);'00')&' '&TEXTE(ALEA.ENTRE.BORNES(0;99);'00')

Bon courage

 

[PascalXLD]

OUPS excuse Jean-Pierrre pas rafraichi

Mais 2 solutions différentes

Bonne journée

 

[Milom]

Merci beaucoup pour ton aide 🙂
Voila un forum ou je viendrai plus souvent 🙂