[Excel-VB] Copier un texte depuis msgbox ?

Fermé
mortelrdv - 1 mars 2010 à 10:18
xav3601 Messages postés 3288 Date d'inscription lundi 10 novembre 2008 Statut Membre Dernière intervention 2 mars 2016 - 1 mars 2010 à 10:22
Bonjour,

Je suis sous XP avec Excel 2003 SP3
prenons le code ci-dessous :
Option Explicit

Sub AfficheTableau()

    Dim Tableau(1 To 10) As String
    Dim strMessage As String, Boucle As Integer
    
    Tableau(1) = "France"
    Tableau(2) = "Espagne"
    Tableau(3) = "Italie"
    Tableau(4) = "Chine"
    Tableau(5) = "Portugal"
    Tableau(6) = "Canada"
    Tableau(7) = "Brésil"
    Tableau(8) = "Argentine"
    Tableau(9) = "Vénézuela"
    Tableau(10) = "Australie"
    
    strMessage = ""
    For Boucle = 1 To 10
        strMessage = strMessage & Tableau(Boucle) & vbLf
    Next Boucle
    
    MsgBox strMessage
    
End Sub


ça va m'afficher un fenetre message, et parfois j'ai besoin des données qu'elle m'affiche pour faire autres choses.
Je voulais faire 'selectionner texte puis Ctrl+C' mais ça ne marche pas.

avez vous une solution ?
faut il que je passe par le userform ? (j'y connais pas trop)

Merci
A voir également:

1 réponse

xav3601 Messages postés 3288 Date d'inscription lundi 10 novembre 2008 Statut Membre Dernière intervention 2 mars 2016 311
1 mars 2010 à 10:22
En effet en passant par un userform avec une textbox tu pourras récupérer le texte qui sera afficher!
0