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 ?

[pavlina13]

Bonsoir, après manip' voici la référence affiché :

DMDCONTITRE
='DEMANDE CONGES'!$A$4:$F$4

DMDCON2
='DEMANDE CONGES'!$A$5:$F$1048576

[Philippe Tulliez]

Bonjour,
Et bien la réponse est là comme je l'avais pressenti.
Sauf erreur de ma part, la propriété ListBox est un entier donc maximum 32 767 éléments
Ta table a vraiment autant de lignes ?

[pavlina13]

Non elle n'en a pas autant, c'est un mauvais réflexe que j'ai de sélectionner jusqu'en bas!

SI je réduit la sélection de la liste cela devrait marcher alors ?

[Philippe Tulliez]

Bonjour,

c'est un mauvais réflexe que j'ai de sélectionner jusqu'en bas!

Très mauvais. On ne doit prendre que le nombre de lignes de la table de données et celles-ci "tant un tableau excel est dynamque donc je ne vois pas l'intérêt de prévoir plus d'un million de lignes si les données ne vont pas si loin

SI je réduit la sélection de la liste cela devrait marcher alors ?

Poser la question c'est y répondre et de toutes les manières je t'ai bien précisé que le maximum pour un ListBox et un ComboBox est 32 767 éléments. Plus clair que cela je ne peux pas.

[pavlina13]

Je rencontre un nouveau problème alors je le poste ici, si c'est un problème dites moi je créerais un nouveau post par la suite.
J'aimerais que la valeur valeur sectionnée de cette ListBox soit supprimé de sa feuille. Cependant la recherche de cette valeur dans la table nécessite deux conditions de recherche sur deux colonnes différentes.
Une fois trouvé la ligne entière doit être supprimé.
N'ayant pas réussi a ajouté le code ''supprimer'' a celui deja trouvé pour ''ajouter'' a une feuille différente (ci-dessous) :

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
Dim element_select As Boolean
Dim nb_element, i As Integer
Dim dest As Range
Dim num As Integer
 
element_select = False
nb_element = ListBox2.ListCount
ligne = 5
 
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 = ListBox2.List(i, 0)
            dest.Offset(0, 1) = ListBox2.List(i, 1)
            dest.Offset(0, 2) = ListBox2.List(i, 2)
            dest.Offset(0, 3) = ListBox2.List(i, 3)
            dest.Offset(0, 4) = ListBox2.List(i, 4)
            dest.Offset(0, 5) = ListBox2.List(i, 5)        
            MsgBox "Congés validés"
        End If
    Next
    If element_select = False Then
        MsgBox "vous n'avez rien selectionné"
    End If
End With
End Sub

J'ai donc commencé ce code (qui ne marche pas):

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
 
Dim DMD As Worksheet
Dim T As Range
Dim emp As Integer
Dim element_select As Boolean
Dim nb_element As Integer
Dim i As Integer
Dim c As Range
 
element_select = False
 
    If ListBox2.Selected(i) = True Then
        element_select = True
 
        Set DMD = Worksheets("DEMANDE CONGES")
        emp = ListBox2.List(i, 1)
        Set T = DMD.Columns(1).Find(What:=emp)
 
            If T Is Nothing Then
            MsgBox "L'employé n'a pas pu être supprimé."
            Exit Sub
            Else
 
        Set c = DMD.Columns(1).Find(What:=emp)
        Range(c, c(, 15)).ClearContents
 
 
        If element_select = False Then
            MsgBox "vous n'avez rien selectionné"
        End If
    End If
End If
End Sub

Qu'en pensez vous?