Récupérer valeur d'une Msgbox

[Fanfan68]

Bonjour à tout le forum,

Voici ma requête :

Dans une boucle, j'affiche dans une Msgbox une information(texte ou chiffre), comme j'ai besoin de cumuler les infos, je voudrai, lors du deuxième passage de ma boucle, afficher dans la Msgbox l'information affichée lors du premier passage + l'information du deuxième passage et ce ainsi de suite.

Est-il possible de récupérer la valeur d'un Msgbox du style :

"Msgbox.value"

En espèrant m'être fait comprendre

Merci

 

[Luki]

Re : Récupérer valeur d'une Msgbox

bonjour,

tu peux essayer ceci pour afficher et ajouter à chaque passage la valeur du compteur de boucle par exemple:

Sub fanfan()

Dim Message As String
Dim i As Integer

For i = 1 To 10
    Message = Message & " " & i
    MsgBox Message
Next i

End Sub

Salut

 

[Fanfan68]

Re : Récupérer valeur d'une Msgbox

Bonjour Luki

Merci pour la rapidité de ta réponse, j'ai essayé ce que tu as dis mais je ne sais pas exactement comment faire, je vais te détailler mon problème :

Dans une cellule, j'ai par Exemple, le mot "Bonjour".

Dans la boucle, a chaque passage, je veux afficher dans la msgbox, le mot "Bonjour" mais lettre par lettre avec cumul :

Premier passege Msgbox = B
Deuxième passage Msgbox = BO
Troisième passage Msgbox = BON

etc etc sachant que dans la cellule peut se trouver plusieurs mots

Merci

 

[Luki]

Re : Récupérer valeur d'une Msgbox

re,

Sub fanfan2()
Dim TheRange As Range
Dim TheMessage As String
Dim i As Integer

Set TheRange = Range("A1")  ' < variable à adapter à la cellule que tu veux traiter

If TheRange = "" Then Exit Sub ' < Sort pour éviter le plantage si la cellule st vide

TheMessage = Mid(TheRange, 1, 1)  ' < Stocke le premier caractère dans la variable "themessage"

MsgBox TheMessage    ' < Affiche le premier message

For i = 2 To Len(TheRange)  ' < Le compteur s'adapte au nombre de caractères de la cellule ( démarre au deuxième caractère)
    TheMessage = TheMessage & Mid(TheRange, i, 1)  ' < Ajoute à " Themessage" le nouveau caractère trouvé
    MsgBox TheMessage    ' < Affiche le nouveau message
Next i


End Sub

Vois si c'est ça.

A te lire.

 

[excalibur]

Re : Récupérer valeur d'une Msgbox

bonjour tous le monde une autre facon de faire texte en cell a1 Sub essai()
Dim nb As Byte
nb = 1
For i = 1 To Len([a1])
MsgBox Left([a1], nb)
nb = nb + 1
Next
End Sub'salutations

 

[Fanfan68]

Re : Récupérer valeur d'une Msgbox

Super, merci beaucoup à vous deux

A bientôt