VBA Fonction de Texte

Je cherche une fonction cool pour créer un string de ce genre :

BBBBNNNNNN

Avec SPACE on fait Space(25) et Hop c'est emballé mais avec des Chr ?

Merci

Bonjour galopin

En voici 2. La première créer une chaine de caractères aléatoires de la longueur désirée et la deuxième crée une chaine de n fois le caractère indiqué.

Function chaine(nb)
  Dim i%
  Randomize
  For i = 1 To nb
    chaine = chaine & Chr(Application.RandBetween(65, 90))
  Next i
  chaine = chaine
End Function

Function chaine2(nb, car)
  Dim i%
  Dim chaine$
  For i = 1 To nb
    chaine = chaine & car
  Next i
  chaine2 = chaine
End Function

Pour la première j'ai opté pour les majuscules uniquement mais elle est facile à modifier pour étendre le panel.

Bonjour,

Oui c'est ce que je supposai aussi : Il faut se créer une fonction perso.

Il me semblait vaguement que ça devait exister dans les fonctions natives, mais je suppose que ça devait être une réminiscence de mes vieilles fonctions perso qui me perturbe un peu.

Merci. Je clos le sujet.

A+