Discussion :

[philguio]

Bonjour à tous.
J'ai une listbox1 qui contient des éléments texte. Listbox alimenter dans la'application par drag end drop. Comment récupérer les valeurs pour les mettre dans une cellule excel(cellule fusionnée).
J'arrive à écrire dans une cellule un texte, mais là je bloc. D'habitude je crée des états pour impression.

Merci par avance.
Philippe

[philguio]

Bonjour
Maintenant j'arrive à écrire. Par contre dans la cellule c'est une chaîne qui n'est pas dans l'ordre ( pas de renvoi à la ligne. Voici mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Try
            appExcel = CType(CreateObject("Excel.Application"), Excel.Application)
            'Ouverture d'un fichier Excel
            Classeur = appExcel.Workbooks.Open(Filename:="C:\Users\Philippe GUILLOT\Documents\Fiche contrat CAP RCI\FCContratCAPRCI.xlsx")
 
 
            Fl1 = CType(Classeur.Worksheets("C3"), Excel.Worksheet)
            Fl2 = CType(Classeur.Worksheets("C4"), Excel.Worksheet)
            Fl3 = CType(Classeur.Worksheets("C5"), Excel.Worksheet)
 
 
            'Différence des 2 listes et récupération de notre ID
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
 
 
 
        Dim MaListe As String
        MaListe = ""
        For i As Integer = 0 To Me.ListBox1.Items.Count - 1 ' 0 correspond au premier élément de ta liste box
            MaListe = MaListe & Me.ListBox1.Items(i)
 
        Next
 
 
        Fl1.Range("H7").Value = MaListe
        Classeur.Save()  'pour enregistrer
        appExcel.Workbooks.Application.Visible = True
 
        FermerClasseur(myIDExcel) 'Ferme le classeur ouvert
 
 
 
 
    End Sub

Si quelqu'un a une idée.

Philippe

[Biggy30]

Bonjour, de la façon dont tu procèdes tu te trouve a remplir ta cellule avec TOUS les items de ta liste, si ce sont des cellules fusionnées c'est pour cela que la mise en forme est nulle,
je ne peut pas tester en VB en ce moment mais peut-être faire comme en VBA et renseigner une plage de cellules ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Fl1.Range("H7:H20").Value = MaListe