Données d'une listbox vers une feuille excel

Commenter

Contenu du snippet

'Ce code fait appel à la bibliothèque Microsoft EXCEL (Microsoft Excel Library).
Il ne faut pas oublier de la référencer dans le projet.
Il nécessite un bouton (cmdListExcel)
une ListBox (List1)

Source / Exemple : 


Option Explicit

Private Sub Form_Load()
  List1.AddItem "Adam"
  List1.AddItem "Bernard"
  List1.AddItem "Charles"
  List1.AddItem "Christophe"
  List1.AddItem "Edouard"
  List1.AddItem "Emilie"
  List1.AddItem "Fabrice"
  List1.AddItem "Juliette"
End Sub

Private Sub cmdListEXCEL_Click()
  Dim Appli As New Application
  Dim Ligne As String
  Dim LigneExcel As Integer
  Dim compt As Integer
    
  'Rendre visible EXCEL
  Appli.Visible = True
  
  'Créer un nouveau classeur EXCEL initialisé à la ligne 1
  Appli.Workbooks.Add.Activate
  LigneExcel = 1
  
  'Inscrire le contenu d'une listbox dans la feuille 1 d'un classeur EXCEL
  
  For compt = 0 To List1.ListCount - 1
  
  ' Affecter les données de la listbox dans les cellules de la feuille
  With ActiveWorkbook.Worksheets("Feuil1")
    .Cells(LigneExcel, 1) = List1.List(compt)
    LigneExcel = LigneExcel + 1
  End With
  
  Next compt
  
  MsgBox "Importation terminée.", vbInformation + vbOKOnly, "Fichier Texte -> Classeur EXCEL"
  Unload Me

End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ZTPdiffusion)