J'ai fait du Visual Basic il y a fort fort trop longtemps et tout s'est perdu dans ma mémoire.
Sub Departage_equipe4()
'Déclaration des noms des joueurs
Dim Joueur_A As String
Dim Joueur_B As String
Dim Joueur_C As String
Dim Joueur_D As String
Dim Joueur_W As String
Dim Joueur_X As String
Dim Joueur_Y As String
Dim Joueur_Z As String
Joueur_A = InputBox("Entrez le nom du joueur A" )
Joueur_B = InputBox("Entrez le nom du joueur B" )
Joueur_C = InputBox("Entrez le nom du joueur C" )
Joueur_D = InputBox("Entrez le nom du joueur D" )
Joueur_W = InputBox("Entrez le nom du joueur W" )
Joueur_X = InputBox("Entrez le nom du joueur X" )
Joueur_Y = InputBox("Entrez le nom du joueur Y" )
Joueur_Z = InputBox("Entrez le nom du joueur Z" )
End Sub
Voila ce que j'ai tapé pour le moment. Le problème c'est que je ne retrouve pas le code a utilisé pour que les noms des joueurs qui ont été tapés lors du Inputbox s'affichent dans les bonnes cases de mon tableau excel.
Merci beaucoup de votre aide.
Publicité
Posté le 21-06-2011 à 11:49:40
GuiGui013
Posté le 01-07-2011 à 13:44:16
Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject("Excel.Application" )
objExcel.visible = True
Set objWorkBook = objExcel.Workbooks.open("C:\MonFichier.xls" )
objexcel.Cells(1, "A" ) = Joueur_A
objexcel.Cells(1, "B" ) = Joueur_B
...