Concaténer des chaînes

Bonjour à tous,

Je fais ce post car j'ai un petit souci sur excel vba.

J'avais un programme à réaliser, le voici :

Sub boucle_while()

Dim compteur As Long

Dim Message As Variant

compteur = 1

Do While compteur < 100000

If (compteur Mod 1000) = 0 Then

MsgBox "The value is : " & compteur

Cells(compteur, 1).Value = compteur

End If

compteur = compteur + 1

Loop

End Sub

Il m'est ensuite demandée de (voir fichier)

Mais je n'y comprends absolument rien. Je suis débutante en VBA excel, j'ai réussi à faire le programme mais je ne comprends pas comment faire pour concaténer des chaînes...

Merci d'avance !

bonjour,

essaie ceci :

boucler 20 fois

incrémenter compteur

concatener message avec valeur du compteur donc

message = message  & compteur

afficher message

Merci d'avoir répondu !

Mais, ce que je ne comprends pas justement c'est où-est ce que je dois intégrier "message = message & compteur" dans le programme ?

Merci beaucoup

bonjour,

Sub boucle_while()
    Dim compteur As Long
    Dim Message As Variant
    compteur = 0
    Do While compteur < 20
        compteur = compteur + 1
        Message = Message & " " & compteur
        MsgBox Message
    Loop
End Sub

Merci beaucoup pour votre aide !

Bonne soirée