Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par ordre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par ordre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par ordre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour.
J'ai récupéré la macro suivante sur www.ozgrid.com :
Sub SortArray()
Dim MyArray(10) As String
Dim lLoop As Long, lLoop2 As Long
Dim str1 As String
Dim str2 As String
'Fill array
For lLoop = 0 To 9
If lLoop = 0 Then
MyArray(lLoop) = "Zoo"
Else
MyArray(lLoop) = Choose(lLoop, "Farm", "Paddock", "Sheep", _
"Cow", "Bird", "Mice", "Chicken", "Fence", "Post",
"Lamb")
End If
Next lLoop
'Output unsorted array
Range("A1:A" & UBound(MyArray) + 1) = _
WorksheetFunction.Transpose(MyArray)
'Sort array
For lLoop = 0 To UBound(MyArray)
For lLoop2 = lLoop To UBound(MyArray)
If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then
str1 = MyArray(lLoop)
str2 = MyArray(lLoop2)
MyArray(lLoop) = str2
MyArray(lLoop2) = str1
End If
Next lLoop2
Next lLoop
'Output sorted array
Range("B1:B" & UBound(MyArray) + 1) _
= WorksheetFunction.Transpose(MyArray)
End Subà adapter, toutefoi, à moins que tu ne veuilles trier un
zoo.Cordialement.Daniel"Mima" a écrit dans le
message de news:Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par
ordre alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour.
J'ai récupéré la macro suivante sur www.ozgrid.com :
Sub SortArray()
Dim MyArray(10) As String
Dim lLoop As Long, lLoop2 As Long
Dim str1 As String
Dim str2 As String
'Fill array
For lLoop = 0 To 9
If lLoop = 0 Then
MyArray(lLoop) = "Zoo"
Else
MyArray(lLoop) = Choose(lLoop, "Farm", "Paddock", "Sheep", _
"Cow", "Bird", "Mice", "Chicken", "Fence", "Post",
"Lamb")
End If
Next lLoop
'Output unsorted array
Range("A1:A" & UBound(MyArray) + 1) = _
WorksheetFunction.Transpose(MyArray)
'Sort array
For lLoop = 0 To UBound(MyArray)
For lLoop2 = lLoop To UBound(MyArray)
If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then
str1 = MyArray(lLoop)
str2 = MyArray(lLoop2)
MyArray(lLoop) = str2
MyArray(lLoop2) = str1
End If
Next lLoop2
Next lLoop
'Output sorted array
Range("B1:B" & UBound(MyArray) + 1) _
= WorksheetFunction.Transpose(MyArray)
End Subà adapter, toutefoi, à moins que tu ne veuilles trier un
zoo.Cordialement.Daniel"Mima" <nonspamecemima@voila.fr> a écrit dans le
message de news: etqWn8NiIHA.6032@TK2MSFTNGP03.phx.gbl...
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par
ordre alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour.
J'ai récupéré la macro suivante sur www.ozgrid.com :
Sub SortArray()
Dim MyArray(10) As String
Dim lLoop As Long, lLoop2 As Long
Dim str1 As String
Dim str2 As String
'Fill array
For lLoop = 0 To 9
If lLoop = 0 Then
MyArray(lLoop) = "Zoo"
Else
MyArray(lLoop) = Choose(lLoop, "Farm", "Paddock", "Sheep", _
"Cow", "Bird", "Mice", "Chicken", "Fence", "Post",
"Lamb")
End If
Next lLoop
'Output unsorted array
Range("A1:A" & UBound(MyArray) + 1) = _
WorksheetFunction.Transpose(MyArray)
'Sort array
For lLoop = 0 To UBound(MyArray)
For lLoop2 = lLoop To UBound(MyArray)
If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then
str1 = MyArray(lLoop)
str2 = MyArray(lLoop2)
MyArray(lLoop) = str2
MyArray(lLoop2) = str1
End If
Next lLoop2
Next lLoop
'Output sorted array
Range("B1:B" & UBound(MyArray) + 1) _
= WorksheetFunction.Transpose(MyArray)
End Subà adapter, toutefoi, à moins que tu ne veuilles trier un
zoo.Cordialement.Daniel"Mima" a écrit dans le
message de news:Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par
ordre alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en r evue
toutes les cellules d'une colonne et qui récupère dans une variable ta bleau
uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par o rdre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecte r le
tableau à la variable, mais je pense qu'il doit être possible de faire le
tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en r evue
toutes les cellules d'une colonne et qui récupère dans une variable ta bleau
uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par o rdre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecte r le
tableau à la variable, mais je pense qu'il doit être possible de faire le
tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en r evue
toutes les cellules d'une colonne et qui récupère dans une variable ta bleau
uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par o rdre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecte r le
tableau à la variable, mais je pense qu'il doit être possible de faire le
tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Merci Daniel.C. pour ta prompt réponse.
C'est exactement le résultat que je cherchai.
Je n'ai eu qu'à changer le nom de la variable tableau
Encore merci !
"Daniel.C" a écrit dans le message de news:Bonjour.
J'ai récupéré la macro suivante surwww.ozgrid.com:
Sub SortArray()
Dim MyArray(10) As String
Dim lLoop As Long, lLoop2 As Long
Dim str1 As String
Dim str2 As String
'Fill array
For lLoop = 0 To 9
If lLoop = 0 Then
MyArray(lLoop) = "Zoo"
Else
MyArray(lLoop) = Choose(lLoop, "Farm", "Paddock ", "Sheep", _
"Cow", "Bird", "Mice", "C hicken", "Fence", "Post",
"Lamb")
End If
Next lLoop
'Output unsorted array
Range("A1:A" & UBound(MyArray) + 1) = _
WorksheetFunction.Transpose(MyArray)
'Sort array
For lLoop = 0 To UBound(MyArray)
For lLoop2 = lLoop To UBound(MyArray)
If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then
str1 = MyArray(lLoop)
str2 = MyArray(lLoop2)
MyArray(lLoop) = str2
MyArray(lLoop2) = str1
End If
Next lLoop2
Next lLoop
'Output sorted array
Range("B1:B" & UBound(MyArray) + 1) _
= WorksheetFunction.Transpose(MyArray)
End Subà adapter, toutefoi, à moins que tu ne veuilles trier un
zoo.Cordialement.Daniel"Mima" a écrit dans l e
message denews: etqWn8NiIHA.6__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a6 3jfAD$Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe e n revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée pa r
ordre alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variab le
tableau sur une feuille, effectuer le tri sur cette feuille et réaffe cter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie- Masquer le te xte des messages précédents -
- Afficher le texte des messages précédents -
Merci Daniel.C. pour ta prompt réponse.
C'est exactement le résultat que je cherchai.
Je n'ai eu qu'à changer le nom de la variable tableau
Encore merci !
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de news:
uVNB7NOiIHA.5...@TK2MSFTNGP04.phx.gbl...
Bonjour.
J'ai récupéré la macro suivante surwww.ozgrid.com:
Sub SortArray()
Dim MyArray(10) As String
Dim lLoop As Long, lLoop2 As Long
Dim str1 As String
Dim str2 As String
'Fill array
For lLoop = 0 To 9
If lLoop = 0 Then
MyArray(lLoop) = "Zoo"
Else
MyArray(lLoop) = Choose(lLoop, "Farm", "Paddock ", "Sheep", _
"Cow", "Bird", "Mice", "C hicken", "Fence", "Post",
"Lamb")
End If
Next lLoop
'Output unsorted array
Range("A1:A" & UBound(MyArray) + 1) = _
WorksheetFunction.Transpose(MyArray)
'Sort array
For lLoop = 0 To UBound(MyArray)
For lLoop2 = lLoop To UBound(MyArray)
If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then
str1 = MyArray(lLoop)
str2 = MyArray(lLoop2)
MyArray(lLoop) = str2
MyArray(lLoop2) = str1
End If
Next lLoop2
Next lLoop
'Output sorted array
Range("B1:B" & UBound(MyArray) + 1) _
= WorksheetFunction.Transpose(MyArray)
End Subà adapter, toutefoi, à moins que tu ne veuilles trier un
zoo.Cordialement.Daniel"Mima" <nonspamecem...@voila.fr> a écrit dans l e
message denews: etqWn8NiIHA.6__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a6 3jfAD$z__@TK2MSFTNGP03.phx.gbl...
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe e n revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée pa r
ordre alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variab le
tableau sur une feuille, effectuer le tri sur cette feuille et réaffe cter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie- Masquer le te xte des messages précédents -
- Afficher le texte des messages précédents -
Merci Daniel.C. pour ta prompt réponse.
C'est exactement le résultat que je cherchai.
Je n'ai eu qu'à changer le nom de la variable tableau
Encore merci !
"Daniel.C" a écrit dans le message de news:Bonjour.
J'ai récupéré la macro suivante surwww.ozgrid.com:
Sub SortArray()
Dim MyArray(10) As String
Dim lLoop As Long, lLoop2 As Long
Dim str1 As String
Dim str2 As String
'Fill array
For lLoop = 0 To 9
If lLoop = 0 Then
MyArray(lLoop) = "Zoo"
Else
MyArray(lLoop) = Choose(lLoop, "Farm", "Paddock ", "Sheep", _
"Cow", "Bird", "Mice", "C hicken", "Fence", "Post",
"Lamb")
End If
Next lLoop
'Output unsorted array
Range("A1:A" & UBound(MyArray) + 1) = _
WorksheetFunction.Transpose(MyArray)
'Sort array
For lLoop = 0 To UBound(MyArray)
For lLoop2 = lLoop To UBound(MyArray)
If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then
str1 = MyArray(lLoop)
str2 = MyArray(lLoop2)
MyArray(lLoop) = str2
MyArray(lLoop2) = str1
End If
Next lLoop2
Next lLoop
'Output sorted array
Range("B1:B" & UBound(MyArray) + 1) _
= WorksheetFunction.Transpose(MyArray)
End Subà adapter, toutefoi, à moins que tu ne veuilles trier un
zoo.Cordialement.Daniel"Mima" a écrit dans l e
message denews: etqWn8NiIHA.6__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a6 3jfAD$Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe e n revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée pa r
ordre alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variab le
tableau sur une feuille, effectuer le tri sur cette feuille et réaffe cter
le tableau à la variable, mais je pense qu'il doit être possible de faire
le tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie- Masquer le te xte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau
uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par ordre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le
tableau à la variable, mais je pense qu'il doit être possible de faire le
tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau
uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par ordre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le
tableau à la variable, mais je pense qu'il doit être possible de faire le
tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie
Bonjour la communauté
Dans un formulaire, j'ai un combobox.
Pour en définir la propriété "list", j'ai une routine qui passe en revue
toutes les cellules d'une colonne et qui récupère dans une variable
tableau
uniquement les nouvelles valeurs.
Jusque là, pas de problème. J'obtient le résultat recherché.
Je souhaiterai que la liste affichée dans le combobox soit triée par ordre
alphabétique.
J'ai bien une solution qui consiste à coller les valeurs de ma variable
tableau sur une feuille, effectuer le tri sur cette feuille et réaffecter
le
tableau à la variable, mais je pense qu'il doit être possible de faire le
tri directement dans la variable.
Et là, je ne trouve rien dans l'aide...
Si quelqu'un à une solution, d'avance je l'en remercie