Michel, le groupe
Michel, le groupe
Michel, le groupe
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:41849939$0$31250$8fcfb975@news.wanadoo.fr...
Michel, le groupe
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:41849939$0$31250$8fcfb975@news.wanadoo.fr...
Michel, le groupe
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) du
combobox NE soit PAS définie. Tu n'inscris rien en mode création pour ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement de
ton choix qui est associé au combobox lui-même
(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" a écrit dans le message de
news:4184b0ae$0$3606$
Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" a écrit dans le
message
de news:c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) du
combobox NE soit PAS définie. Tu n'inscris rien en mode création pour ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement de
ton choix qui est associé au combobox lui-même
(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:4184b0ae$0$3606$8fcfb975@news.wanadoo.fr...
Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message
de news:OC0HcByvEHA.4048@TK2MSFTNGP15.phx.gbl...
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:41849939$0$31250$8fcfb975@news.wanadoo.fr...
Michel, le groupe
Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) du
combobox NE soit PAS définie. Tu n'inscris rien en mode création pour ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement de
ton choix qui est associé au combobox lui-même
(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" a écrit dans le message de
news:4184b0ae$0$3606$
Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" a écrit dans le
message
de news:c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
Denis, le groupe
Au risque d'en perdre mon latin (Que je ne comprends pas non plus
d'ailleurs), et de plus avec tes explications on ne peu plus claire, cela
ne
fonctionne pas, j'ai beau faire dans tous les sens a chaque fois que je
veux
que cela tombe sur la bonne ligne de départ (Ligne 13), j'ai un message
d'erreur, donc voici ce que j'ai fait :
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With ActiveSheet
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
cbxN°Lot.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
Que j'ai mis dans Private Sub UserForm_Initialize()
Donc j'ai fait F8, par voir cela que cela fait, et a priori si je met :
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
cela s'arrète ici :
Last = UBound(List)
avec une incompatibilité de type : erreur 13.
Voila les derniere nouvelles.
Merci, Ouille
"michdenis" a écrit dans le message de
news:Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) ducombobox NE soit PAS définie. Tu n'inscris rien en mode création pour ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement de
ton choix qui est associé au combobox lui-même(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" a écrit dans le message de
news:4184b0ae$0$3606$Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" a écrit dans le
messagede news:c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
Denis, le groupe
Au risque d'en perdre mon latin (Que je ne comprends pas non plus
d'ailleurs), et de plus avec tes explications on ne peu plus claire, cela
ne
fonctionne pas, j'ai beau faire dans tous les sens a chaque fois que je
veux
que cela tombe sur la bonne ligne de départ (Ligne 13), j'ai un message
d'erreur, donc voici ce que j'ai fait :
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With ActiveSheet
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
cbxN°Lot.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
Que j'ai mis dans Private Sub UserForm_Initialize()
Donc j'ai fait F8, par voir cela que cela fait, et a priori si je met :
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
cela s'arrète ici :
Last = UBound(List)
avec une incompatibilité de type : erreur 13.
Voila les derniere nouvelles.
Merci, Ouille
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:ettvJZ0vEHA.612@TK2MSFTNGP15.phx.gbl...
Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) du
combobox NE soit PAS définie. Tu n'inscris rien en mode création pour ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement de
ton choix qui est associé au combobox lui-même
(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:4184b0ae$0$3606$8fcfb975@news.wanadoo.fr...
Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message
de news:OC0HcByvEHA.4048@TK2MSFTNGP15.phx.gbl...
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:41849939$0$31250$8fcfb975@news.wanadoo.fr...
Michel, le groupe
Denis, le groupe
Au risque d'en perdre mon latin (Que je ne comprends pas non plus
d'ailleurs), et de plus avec tes explications on ne peu plus claire, cela
ne
fonctionne pas, j'ai beau faire dans tous les sens a chaque fois que je
veux
que cela tombe sur la bonne ligne de départ (Ligne 13), j'ai un message
d'erreur, donc voici ce que j'ai fait :
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With ActiveSheet
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
cbxN°Lot.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
Que j'ai mis dans Private Sub UserForm_Initialize()
Donc j'ai fait F8, par voir cela que cela fait, et a priori si je met :
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
cela s'arrète ici :
Last = UBound(List)
avec une incompatibilité de type : erreur 13.
Voila les derniere nouvelles.
Merci, Ouille
"michdenis" a écrit dans le message de
news:Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) ducombobox NE soit PAS définie. Tu n'inscris rien en mode création pour ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement de
ton choix qui est associé au combobox lui-même(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" a écrit dans le message de
news:4184b0ae$0$3606$Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" a écrit dans le
messagede news:c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
Bonjour,
il me semble voir un point en trop devant le 2ème range !
remplacer Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
par Set Rg = Range("E13:E" & Range("E65536").End(xlUp).Row)
Bonne journée
CT
"Jacques" a écrit dans le message de news:
41860038$0$3613$Denis, le groupe
Au risque d'en perdre mon latin (Que je ne comprends pas non plus
d'ailleurs), et de plus avec tes explications on ne peu plus claire,
cela
ne
fonctionne pas, j'ai beau faire dans tous les sens a chaque fois que je
veux
que cela tombe sur la bonne ligne de départ (Ligne 13), j'ai un message
d'erreur, donc voici ce que j'ai fait :
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With ActiveSheet
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
cbxN°Lot.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
Que j'ai mis dans Private Sub UserForm_Initialize()
Donc j'ai fait F8, par voir cela que cela fait, et a priori si je met :
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
cela s'arrète ici :
Last = UBound(List)
avec une incompatibilité de type : erreur 13.
Voila les derniere nouvelles.
Merci, Ouille
"michdenis" a écrit dans le message de
news:Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) ducombobox NE soit PAS définie. Tu n'inscris rien en mode création pour
ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement
de
ton choix qui est associé au combobox lui-même(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" a écrit dans le message de
news:4184b0ae$0$3606$Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" a écrit dans le
messagede news:c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
Bonjour,
il me semble voir un point en trop devant le 2ème range !
remplacer Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
par Set Rg = Range("E13:E" & Range("E65536").End(xlUp).Row)
Bonne journée
CT
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de news:
41860038$0$3613$8fcfb975@news.wanadoo.fr...
Denis, le groupe
Au risque d'en perdre mon latin (Que je ne comprends pas non plus
d'ailleurs), et de plus avec tes explications on ne peu plus claire,
cela
ne
fonctionne pas, j'ai beau faire dans tous les sens a chaque fois que je
veux
que cela tombe sur la bonne ligne de départ (Ligne 13), j'ai un message
d'erreur, donc voici ce que j'ai fait :
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With ActiveSheet
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
cbxN°Lot.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
Que j'ai mis dans Private Sub UserForm_Initialize()
Donc j'ai fait F8, par voir cela que cela fait, et a priori si je met :
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
cela s'arrète ici :
Last = UBound(List)
avec une incompatibilité de type : erreur 13.
Voila les derniere nouvelles.
Merci, Ouille
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:ettvJZ0vEHA.612@TK2MSFTNGP15.phx.gbl...
Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) du
combobox NE soit PAS définie. Tu n'inscris rien en mode création pour
ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement
de
ton choix qui est associé au combobox lui-même
(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:4184b0ae$0$3606$8fcfb975@news.wanadoo.fr...
Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message
de news:OC0HcByvEHA.4048@TK2MSFTNGP15.phx.gbl...
c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de
news:41849939$0$31250$8fcfb975@news.wanadoo.fr...
Michel, le groupe
Bonjour,
il me semble voir un point en trop devant le 2ème range !
remplacer Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
par Set Rg = Range("E13:E" & Range("E65536").End(xlUp).Row)
Bonne journée
CT
"Jacques" a écrit dans le message de news:
41860038$0$3613$Denis, le groupe
Au risque d'en perdre mon latin (Que je ne comprends pas non plus
d'ailleurs), et de plus avec tes explications on ne peu plus claire,
cela
ne
fonctionne pas, j'ai beau faire dans tous les sens a chaque fois que je
veux
que cela tombe sur la bonne ligne de départ (Ligne 13), j'ai un message
d'erreur, donc voici ce que j'ai fait :
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With ActiveSheet
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
cbxN°Lot.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
Que j'ai mis dans Private Sub UserForm_Initialize()
Donc j'ai fait F8, par voir cela que cela fait, et a priori si je met :
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
cela s'arrète ici :
Last = UBound(List)
avec une incompatibilité de type : erreur 13.
Voila les derniere nouvelles.
Merci, Ouille
"michdenis" a écrit dans le message de
news:Bonjour Jacques,
Il est IMPÉRATIF que la propriété RowSource (dans un userform) ou
ListFillRange(Combobox dans la feuille de calcul) ducombobox NE soit PAS définie. Tu n'inscris rien en mode création pour
ces
propriétés. Ce qui suit est suffisant.
Pour lancer l'initialisation du combobox, tu peux choisir l'événement
de
ton choix qui est associé au combobox lui-même(Sub ComboBox1_GotFocus) ... nul besoin d'ajouter un bouton de commande
pour lancer la procédure.
Dans la procédure suivante, le nom de la feuille doit être adapté selon
ton application.
En supposant que tes données débutent en E13 pour se terminer en Ex
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, Tblo As Variant, Tblo1 As Variant
'Adapte le nom de la feuille
With Worksheets("Feuil1")
Set Rg = Range("E13:E" & .Range("E65536").End(xlUp).Row)
Tblo = Rg
End With
UserForm1.ComboBox1.List = BubbleSort(Tblo)
Set Rg = Nothing
End Sub
'------------------------------
Function BubbleSort(List As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------
Salutations!
"Jacques" a écrit dans le message de
news:4184b0ae$0$3606$Denis, Sabatier, le groupe
Sabatier, merci pour cette remarque.
Denis sorry de la confusion
Ouille
"sabatier" a écrit dans le
messagede news:c'est pas michel, jacques, c'est denis...
le groupe, par contre, c'est tout bon...
jps
"Jacques" a écrit dans le message de
news:41849939$0$31250$Michel, le groupe
