Sortir données d'un tableau excel avec vba
débutant
-
débutant -
débutant -
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
- Imprimer un tableau excel - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
1 réponse
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
débutant
Merci pour l'info, ça fonctionne!