Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 | |
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
pmnews@advalvas.be
Enlevez ANTIPUB de l'adresse en cas de Reply-to
(Saleté de SPAM !!!)
---------------------------------
"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
c1q7gd$7jm$1@news-reader5.wanadoo.fr...
| 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
|
|
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 | |