B
Benoit L
Guest
Bonjour à tous,
Afin de produire un rapport, je dois copier une colonne de numéros de groupes dans une autre feuille.
Dans cette liste, il y a des doublons. J'élimine, dans un premier temps, les doublons et après avoir éliminer les doublons, alimenter un ComboBox.
Après avoir épuré la liste des doublons, je me retrouve avec une série de cellules vides qui viennent 'grossir' mon fichier. Je tente d'utiliser le code suivant :
Sub Réinit()
Dim LesCell As Worksheet
For Each LesCell In Worksheets
Dummy = LesCell.UsedRange(1)
Next LesCell
End Sub
pour éliminer ces cellules vides mais ça ne fonctionne pas...
Évidemment, l'idéal serait d'éliminer les doublons directement lors de l'alimentation du combobox sans avoir à copier la liste dans une autre feuille mais je ne sais pas si c'est possible.
Est-ce qu'il existe un petit bout de code autre que celui-ci pour 'vider' une feuille des cellules 'inutiles' ou s'il est possible d'alimenter un combobox en éliminat automatiquement les doublons ???
Merci à tous pour votre aide si précieuse...
Afin de produire un rapport, je dois copier une colonne de numéros de groupes dans une autre feuille.
Dans cette liste, il y a des doublons. J'élimine, dans un premier temps, les doublons et après avoir éliminer les doublons, alimenter un ComboBox.
Après avoir épuré la liste des doublons, je me retrouve avec une série de cellules vides qui viennent 'grossir' mon fichier. Je tente d'utiliser le code suivant :
Sub Réinit()
Dim LesCell As Worksheet
For Each LesCell In Worksheets
Dummy = LesCell.UsedRange(1)
Next LesCell
End Sub
pour éliminer ces cellules vides mais ça ne fonctionne pas...
Évidemment, l'idéal serait d'éliminer les doublons directement lors de l'alimentation du combobox sans avoir à copier la liste dans une autre feuille mais je ne sais pas si c'est possible.
Est-ce qu'il existe un petit bout de code autre que celui-ci pour 'vider' une feuille des cellules 'inutiles' ou s'il est possible d'alimenter un combobox en éliminat automatiquement les doublons ???
Merci à tous pour votre aide si précieuse...