OVH Cloud OVH Cloud

[Macro vb Excel]

1 réponse
Avatar
mcog
Bonjour,

Dans une colonne A, j'ai 500 articles...

Comment faire pour que dans une combobox, je puisse visualiser et
sélectionner un type d'article comme dans les filtre automatique...

En gros je veux que ma combobox m'affiche tout les differnts types
d'articles sans les répéter...

Une fois sélectionné, je génèreré un feuille Excel comportant toutes les
lignes ayant le type d'article sélectionné dans la combobox...

Merci,

Olivier

1 réponse

Avatar
Pmp
J'avais fait une macro pour cela (mais je n'arrive plus à mettre la main
dessus..)

Globalement, je recopiais la colonne vers une colonne libre, je faisait un
classement alphabétique (en enregistrant une macro en mode "enregistrer",
c'est plus simple que d'attaquer cela en VB)
Ensuite, je faisais une boucle qui stocke le contenu de la ligne. Si le
contenu est identique à la valeur stockée => c'est la même ligne, on passe
Sinon, ajouter..
Cela donne en gros (à débuguer au besoin..)

Dim Ligne,Colonne as integer ' Colonne que l'on va traiter
Dim Entree as string ' Dernière valeur lue
Dim Result() as string ' Tableau contenant les résultats
Dim NbResult as integer ' Nombre de Valeurs déjà trouvées
Dim ValLue as string ' Valeur lue lors de la boucle

NbResult=0
Ligne=1
Do while not (Cells(Ligne, Colonne)="")
ValLueÎlls(Ligne, Colonne)
If not(Entree=ValLue) then ' Valeur inconnue => ajouter au tableau
Redim preserve Result(NbResult)
Result(NbResult)=ValLue
Entree=ValLue
NbResult=NbResult+1
end if
Ligne=Ligne+1
Loop

A+




--
---------------------------------
Pmp

Enlevez ANTIPUB de l'adresse en cas de Reply-to
(Saleté de SPAM !!!)
---------------------------------
"mcog" a écrit dans le message de news:
c1q7gd$7jm$
| Bonjour,
|
| Dans une colonne A, j'ai 500 articles...
|
| Comment faire pour que dans une combobox, je puisse visualiser et
| sélectionner un type d'article comme dans les filtre automatique...
|
| En gros je veux que ma combobox m'affiche tout les differnts types
| d'articles sans les répéter...
|
| Une fois sélectionné, je génèreré un feuille Excel comportant toutes les
| lignes ayant le type d'article sélectionné dans la combobox...
|
| Merci,
|
| Olivier
|
|