|
|
|
|
Bonjour,
SOS ,, j'ai besoin d'afficher les elements d'un tableau Tab(i) i correspond au num de la ligne ,, dans une boite MsgBox
tant que i est différent de 1 j'affiche le contenu de la cellule ("A" i) et je passe à la ligne.
merci d'avance de votre aide ,,, c'est urgent
Configuration: Windows XP Mozilla 1.7.3
Bonjour,
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
'
Lupin |
Bonjour
|
Activate sheet vba excel 2007 Afficher tableau php Combolist vba excel Excel tableau virgule Excel vba taille graphique Exemple tableau sous excel portefeuil d action Exporter tableau excel Formule excel vba Incrementation automatique d'une page a l'autre excel vba Input, msgbox vba code Morpion vba excel Support microsoft vba excel :msgbox Vba excel copier fichier Vba excel fermer excel Vba excel inputbox cancel Vba excel ouvrir fichier word Vba excel supprimer doublons Word.application vba excel
