Sortir données d'un tableau excel avec vba
Fermé
Bonjour,
J'ai un tableau excel avec des données revenant plusieurs fois et j'aimerais mettre les données utilisées dans un autre tableau:
ex:
input:
pomme - poire - poire - banane - pomme - cerise - pomme - poire - banane - banane - poire
output:
pomme - poire - banane - cerise
merci à celui, ceux qui pourront m'aider
J'ai un tableau excel avec des données revenant plusieurs fois et j'aimerais mettre les données utilisées dans un autre tableau:
ex:
input:
pomme - poire - poire - banane - pomme - cerise - pomme - poire - banane - banane - poire
output:
pomme - poire - banane - cerise
merci à celui, ceux qui pourront m'aider
A voir également:
- Sortir données d'un tableau excel avec vba
- Trier un tableau excel - Guide
- Tableau word - Guide
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
1 réponse
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
155
7 août 2009 à 21:17
7 août 2009 à 21:17
Bonjour,
Pourquoi ne pas faire un tableau croisé dynamique?
Ca te synthétisera ton tableau avec les output voulus.
Mais si tu veux vraiment du vba :
sub marco ()
dim i,j, a,b, reference, c as string
cells(i,j).select 'i et j sont la ligne et la colonne de la premiière ligne
do while selection <> "" then
selection = reference
a= 2
c=0
cells(a,b).select ' a est la première ligne de ton nouveau tableau et b la colonne de ton tableau
do while selection <>""
if selection = reference then
c=1
end if
a=a+1
loop
if c=0 then
cells(a,b).select
selection = reference
i=i+1
cells(i,j).select
loop
end sub
si c'est sur des feuilles différentes : sheets("nomfeuille").select
un conseil ait la fenetre vba et excel en visu et appuie sur f8, tu veras ce que fait lea macro en détail
Pourquoi ne pas faire un tableau croisé dynamique?
Ca te synthétisera ton tableau avec les output voulus.
Mais si tu veux vraiment du vba :
sub marco ()
dim i,j, a,b, reference, c as string
cells(i,j).select 'i et j sont la ligne et la colonne de la premiière ligne
do while selection <> "" then
selection = reference
a= 2
c=0
cells(a,b).select ' a est la première ligne de ton nouveau tableau et b la colonne de ton tableau
do while selection <>""
if selection = reference then
c=1
end if
a=a+1
loop
if c=0 then
cells(a,b).select
selection = reference
i=i+1
cells(i,j).select
loop
end sub
si c'est sur des feuilles différentes : sheets("nomfeuille").select
un conseil ait la fenetre vba et excel en visu et appuie sur f8, tu veras ce que fait lea macro en détail
10 août 2009 à 16:22