VBA : Changer la valeur d'une chaine selon un nombre

Bonsoir tout le monde,

Je viens demander votre aide à propos de ceci :

Sub Test()
Dim A As Integer, B As String
If A = 1 Then
    B = "X"
    Else
        If A = 2 Then
            B = "XX"
            Else
                If A = 3 Then
                    B = "XXX"
                        ' ETC

Bon comme vous pouvez le voir, je voudrais que la valeur de B change en multipliant le nombre des X par la valeur de A, je ne sais pas comment procéder

Merci beaucoup

Voici le code dont tu as besoin:

Sub test()
Dim A As Integer
Dim B As String
Dim x As Integer

B = ""
A = 5 ' à modifier selon ton besoin

For x = 1 To A
    B = B & "X"
Next x

End Sub

Bonjour, bonjour !

Réalisable en une seule instruction : B = String$(A, "X") …