Microsoft 365 Suite de nombres dans une même cellule

[PUCH]

Bonjour,

J'ai besoin d'une macro VBA pour écrire dans une même cellule des nombres de 1 à 220 (modifiable) séparer par des tirets.

Merci pour vos suggestions.

 

[djidji59430]

Bonjour à tous,

Y a une formule
Joindre.texte()

Crdlmt

 

[Efgé]

Bonjour à tous

Y a une formule
Joindre.texte()

Je dirai même plus
Avec 1 en $A$1 et 220 en $A$2 :

=JOINDRE.TEXTE("-";;LIGNE(INDIRECT(A1&":"&A2)))

 

[Efgé]

Re
Après, s'il faut vraiment un code :

Sub Concat()
Dim i&, Deb&, Fin&
Dim TabText As Variant
Dim Texte$

Deb = 1
Fin = 240

ReDim TabText(Deb To Fin)
For i = Deb To Fin
    TabText(i) = i
Next i

Texte = Join(TabText, "-")

End Sub

Cordialement

 

[Phil69970]

Bonjour à tous

A la bourre mais je l'ai fait je le poste ...

Merci de ton retour

@Phil69970

 

[PUCH]

Merci à tous.
Vous êtes géniaux.