Discussion :

[pavlina13]

Bonjour,
Apres avoir créée une Listbox dans un Userform, alimenté par le nom de ma zone de liste dans RowSource, je rencontre un problème pour envoyer la ou les lignes sélectionnées dans un feuille excel "ARCHIVE CONGES".
Voici le code du bouton "VALIDER" :

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
Private Sub CommandButton1_Click()
 
Dim element_select As Boolean
Dim nb_element, i As Integer
Dim dest As Range
 
element_select = False
nb_element = ListBox2.ListCount
 
 
With Worksheets("ARCHIVE CONGES")
    For i = 0 To nb_element - 1
        If ListBox2.Selected(i) = True Then
            element_select = True
            Set dest = IIf(.Range("A5").Value = "", .Range("A5"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
            dest.Value = ListBox1.List(i, 0)
            dest.Offset(0, 3) = ListBox2.List(i, 2)
            dest.Offset(0, 4) = ListBox2.List(i, 3)
            dest.Offset(0, 5) = ListBox2.List(i, 4)
        End If
    Next
    If element_select = False Then
        MsgBox "vous n'avez rien selectionné"
    End If
End With
 
End Sub

Apres avoir validé, une erreur me dirige vers la ligne :

For i = 0 To nb_element - 1

celle ci me renvoi le nombre 1 048 572

Etant débutante j'avoue ne pas bien maîtriser totalement ce code. Est ce que quelqu’un y voit une erreur flagrante?
Je vous remercie.

[Philippe Tulliez]

Bonjour,
Pour comprendre d'où vient le problème, il faudrait visualiser le code qui aliment le contrôle ListBox.
D'après le nombre renvoyé (1 048 572), il semblerait que tu aies alimenté ce contrôle d'une ou plusieurs colonnes de toutes les lignes de la feuille source.

[pavlina13]

Je n'ai pas alimenté ma liste box par un code, j'ai seulement inscrit le nom de la zone de liste (correspondant a mes données) dans RowSource.

Est ce un problème?

[Philippe Tulliez]

Bonjour,

j'ai seulement inscrit le nom de la zone de liste (correspondant a mes données) dans RowSource

Quelle est cette zone liste ?
Une plage nommée, un tableau ?
Quelle est l'adresse de référence de cette zone de liste ?

Est ce un problème?

Non, la valeur de la propriété RowSource peut être remplie manuellement ou à l'aide d'un code VBA

[pavlina13]

Cette liste provient d'une plage nommée, mais les données de cette plage sont d'un tableau.
J'ai effectué deux listbox :
- Listbox2 prend en plage nommée "DMDCON2" les données du tableau.
- ListBox1 prend en plage nommée "DMDCONTITRE" les intitulés en colonnes du tableau.

Ainsi une fois la ou les lignes selectionnées dans lisbox2, avec ce code je voulais envoyer les données dans une feuille excel...

[Philippe Tulliez]

Bonjour,
Comme je l'ai écrit dans ma dernière intervention

Quelle est l'adresse de référence de cette zone de liste ?

Pour connaître les références de ces deux plages nommées il suffit de le vérifier à l'aide du gestionnaire des noms
Si les plages nommées DMDCON2 et DMDCONTITRE sont de portabilité classeur, une autre manière de le visualiser est de le lister dans une feuille vide.

1. Insérer une nouvelle feuille (raccourci clavier combinaison des touches Shift (ou Maj pour les français) + F11)
2. Sélectionner une cellule
3. Appuyer sur la touche F3

Une colonne contiendra la liste des noms et l'autre la référence (Feuille + cellules)
Quelle est cette référence ?