Bonjour =E0 Toutes et =E0 Tous,
Comment r=E9cup=E9rer un tableau qui a =E9t=E9 filtr=E9 dont chaque=20
enregistrement est sur une ligne, en le transposant en=20
colonne sur une autre feuille.
donn=E9es de d=E9part : la feuille "R=E9pert" (qui aura d=E9j=E0 =E9t=E9 =
filtr=E9e)dont j'aimerais r=E9cup=E9rer les donn=E9es des colonnes=20
A =E0 X en partant de ligne 3.
En transposant dans une autre feuille "R=E9cap"en partant de=20
la colonne B puisque la colonne A aura les titres des=20
colonnes transpos=E9es.
Ce qui devrait donner :=20
feuille "R=E9pert" A3:X3 =E0 transposer vers feuille"R=E9cap" en=20
B2:b24=20
ensuite A4:X4 =E0 transposer vers feuille"R=E9cap" en c2:c24
et ainsi de suite pour tout le tableau filtr=E9.
Tout ceci afin d'avoir un tableau de donn=E9es qui peut=20
tenir sur un format A4 (mode portrait).Bien s=FBr je sais=20
que excel est limit=E9 =E0 256 colonne mais le r=E9sultat qui=20
sera transpos=E9 ne prendra pas plus d'une centaine de=20
colonnes (enregistrements).
Merci de suivre,
Freedo
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
isabelle
bonjour Fredo,
voici un exemple,
Sub Macro1() Sheets("Répert").Select nblig = Evaluate("=SUBTOTAL(3,B3:B65535)") lig = 1 col = 1 Sheets("Répert").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select For Each c In Selection If c.Row > 2 Then If c.Column = 2 Then lig = 1: col = col + 1 lig = lig + 1 Sheets("Récap").Cells(lig, col) = c End If Next Sheets("Récap").Select End Sub
isabelle
Bonjour à Toutes et à Tous, Comment récupérer un tableau qui a été filtré dont chaque enregistrement est sur une ligne, en le transposant en colonne sur une autre feuille. données de départ : la feuille "Répert" (qui aura déjà été filtrée)dont j'aimerais récupérer les données des colonnes A à X en partant de ligne 3. En transposant dans une autre feuille "Récap"en partant de la colonne B puisque la colonne A aura les titres des colonnes transposées. Ce qui devrait donner : feuille "Répert" A3:X3 à transposer vers feuille"Récap" en B2:b24 ensuite A4:X4 à transposer vers feuille"Récap" en c2:c24 et ainsi de suite pour tout le tableau filtré. Tout ceci afin d'avoir un tableau de données qui peut tenir sur un format A4 (mode portrait).Bien sûr je sais que excel est limité à 256 colonne mais le résultat qui sera transposé ne prendra pas plus d'une centaine de colonnes (enregistrements). Merci de suivre, Freedo
bonjour Fredo,
voici un exemple,
Sub Macro1()
Sheets("Répert").Select
nblig = Evaluate("=SUBTOTAL(3,B3:B65535)")
lig = 1
col = 1
Sheets("Répert").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select
For Each c In Selection
If c.Row > 2 Then
If c.Column = 2 Then lig = 1: col = col + 1
lig = lig + 1
Sheets("Récap").Cells(lig, col) = c
End If
Next
Sheets("Récap").Select
End Sub
isabelle
Bonjour à Toutes et à Tous,
Comment récupérer un tableau qui a été filtré dont chaque
enregistrement est sur une ligne, en le transposant en
colonne sur une autre feuille.
données de départ : la feuille "Répert" (qui aura déjà été
filtrée)dont j'aimerais récupérer les données des colonnes
A à X en partant de ligne 3.
En transposant dans une autre feuille "Récap"en partant de
la colonne B puisque la colonne A aura les titres des
colonnes transposées.
Ce qui devrait donner :
feuille "Répert" A3:X3 à transposer vers feuille"Récap" en
B2:b24
ensuite A4:X4 à transposer vers feuille"Récap" en c2:c24
et ainsi de suite pour tout le tableau filtré.
Tout ceci afin d'avoir un tableau de données qui peut
tenir sur un format A4 (mode portrait).Bien sûr je sais
que excel est limité à 256 colonne mais le résultat qui
sera transposé ne prendra pas plus d'une centaine de
colonnes (enregistrements).
Merci de suivre,
Freedo
Sub Macro1() Sheets("Répert").Select nblig = Evaluate("=SUBTOTAL(3,B3:B65535)") lig = 1 col = 1 Sheets("Répert").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select For Each c In Selection If c.Row > 2 Then If c.Column = 2 Then lig = 1: col = col + 1 lig = lig + 1 Sheets("Récap").Cells(lig, col) = c End If Next Sheets("Récap").Select End Sub
isabelle
Bonjour à Toutes et à Tous, Comment récupérer un tableau qui a été filtré dont chaque enregistrement est sur une ligne, en le transposant en colonne sur une autre feuille. données de départ : la feuille "Répert" (qui aura déjà été filtrée)dont j'aimerais récupérer les données des colonnes A à X en partant de ligne 3. En transposant dans une autre feuille "Récap"en partant de la colonne B puisque la colonne A aura les titres des colonnes transposées. Ce qui devrait donner : feuille "Répert" A3:X3 à transposer vers feuille"Récap" en B2:b24 ensuite A4:X4 à transposer vers feuille"Récap" en c2:c24 et ainsi de suite pour tout le tableau filtré. Tout ceci afin d'avoir un tableau de données qui peut tenir sur un format A4 (mode portrait).Bien sûr je sais que excel est limité à 256 colonne mais le résultat qui sera transposé ne prendra pas plus d'une centaine de colonnes (enregistrements). Merci de suivre, Freedo
Freedo
Bonjour Isabelle, Un grand MERCI pour ta réponse; J'ai simplement adapté à la présentation que je voulais obtenir et tout fonctionne impeccable. Cordialement, Freedo Sub MacroIsab() Sheets("Repert").Select 'nblig = Evaluate("=SUBTOTAL(3,B3:B65535)") nblig = Evaluate("=SUBTOTAL(2,B2:B65535)") lig = 1 col = 0 '1 Sheets("Repert").AutoFilter.Range.SpecialCells (xlCellTypeVisible).Select For Each c In Selection If c.Row > 1 Then 'If c.Column = 2 Then lig = 1: col = col + 1 If c.Column = 1 Then lig = 1: col = col + 1 lig = lig + 1 Sheets("Récap").Cells(lig, col) = c End If Next Sheets("Récap").Select End Sub
-----Message d'origine----- bonjour Fredo,
voici un exemple,
Sub Macro1() Sheets("Répert").Select nblig = Evaluate("=SUBTOTAL(3,B3:B65535)") lig = 1 col = 1 Sheets("Répert").AutoFilter.Range.SpecialCells (xlCellTypeVisible).Select
For Each c In Selection If c.Row > 2 Then If c.Column = 2 Then lig = 1: col = col + 1 lig = lig + 1 Sheets("Récap").Cells(lig, col) = c End If Next Sheets("Récap").Select End Sub
isabelle
Bonjour à Toutes et à Tous, Comment récupérer un tableau qui a été filtré dont chaque
enregistrement est sur une ligne, en le transposant en colonne sur une autre feuille. données de départ : la feuille "Répert" (qui aura déjà été
filtrée)dont j'aimerais récupérer les données des colonnes
A à X en partant de ligne 3. En transposant dans une autre feuille "Récap"en partant de
la colonne B puisque la colonne A aura les titres des colonnes transposées. Ce qui devrait donner : feuille "Répert" A3:X3 à transposer vers feuille"Récap" en
B2:b24 ensuite A4:X4 à transposer vers feuille"Récap" en c2:c24
et ainsi de suite pour tout le tableau filtré. Tout ceci afin d'avoir un tableau de données qui peut tenir sur un format A4 (mode portrait).Bien sûr je sais que excel est limité à 256 colonne mais le résultat qui sera transposé ne prendra pas plus d'une centaine de colonnes (enregistrements). Merci de suivre, Freedo .
Bonjour Isabelle,
Un grand MERCI pour ta réponse;
J'ai simplement adapté à la présentation que je voulais
obtenir et tout fonctionne impeccable.
Cordialement,
Freedo
Sub MacroIsab()
Sheets("Repert").Select
'nblig = Evaluate("=SUBTOTAL(3,B3:B65535)")
nblig = Evaluate("=SUBTOTAL(2,B2:B65535)")
lig = 1
col = 0 '1
Sheets("Repert").AutoFilter.Range.SpecialCells
(xlCellTypeVisible).Select
For Each c In Selection
If c.Row > 1 Then
'If c.Column = 2 Then lig = 1: col = col + 1
If c.Column = 1 Then lig = 1: col = col + 1
lig = lig + 1
Sheets("Récap").Cells(lig, col) = c
End If
Next
Sheets("Récap").Select
End Sub
-----Message d'origine-----
bonjour Fredo,
voici un exemple,
Sub Macro1()
Sheets("Répert").Select
nblig = Evaluate("=SUBTOTAL(3,B3:B65535)")
lig = 1
col = 1
Sheets("Répert").AutoFilter.Range.SpecialCells
(xlCellTypeVisible).Select
For Each c In Selection
If c.Row > 2 Then
If c.Column = 2 Then lig = 1: col = col + 1
lig = lig + 1
Sheets("Récap").Cells(lig, col) = c
End If
Next
Sheets("Récap").Select
End Sub
isabelle
Bonjour à Toutes et à Tous,
Comment récupérer un tableau qui a été filtré dont
chaque
enregistrement est sur une ligne, en le transposant en
colonne sur une autre feuille.
données de départ : la feuille "Répert" (qui aura déjà
été
filtrée)dont j'aimerais récupérer les données des
colonnes
A à X en partant de ligne 3.
En transposant dans une autre feuille "Récap"en
partant de
la colonne B puisque la colonne A aura les titres des
colonnes transposées.
Ce qui devrait donner :
feuille "Répert" A3:X3 à transposer vers
feuille"Récap" en
B2:b24
ensuite A4:X4 à transposer vers feuille"Récap" en
c2:c24
et ainsi de suite pour tout le tableau filtré.
Tout ceci afin d'avoir un tableau de données qui peut
tenir sur un format A4 (mode portrait).Bien sûr je sais
que excel est limité à 256 colonne mais le résultat qui
sera transposé ne prendra pas plus d'une centaine de
colonnes (enregistrements).
Merci de suivre,
Freedo
.
Bonjour Isabelle, Un grand MERCI pour ta réponse; J'ai simplement adapté à la présentation que je voulais obtenir et tout fonctionne impeccable. Cordialement, Freedo Sub MacroIsab() Sheets("Repert").Select 'nblig = Evaluate("=SUBTOTAL(3,B3:B65535)") nblig = Evaluate("=SUBTOTAL(2,B2:B65535)") lig = 1 col = 0 '1 Sheets("Repert").AutoFilter.Range.SpecialCells (xlCellTypeVisible).Select For Each c In Selection If c.Row > 1 Then 'If c.Column = 2 Then lig = 1: col = col + 1 If c.Column = 1 Then lig = 1: col = col + 1 lig = lig + 1 Sheets("Récap").Cells(lig, col) = c End If Next Sheets("Récap").Select End Sub
-----Message d'origine----- bonjour Fredo,
voici un exemple,
Sub Macro1() Sheets("Répert").Select nblig = Evaluate("=SUBTOTAL(3,B3:B65535)") lig = 1 col = 1 Sheets("Répert").AutoFilter.Range.SpecialCells (xlCellTypeVisible).Select
For Each c In Selection If c.Row > 2 Then If c.Column = 2 Then lig = 1: col = col + 1 lig = lig + 1 Sheets("Récap").Cells(lig, col) = c End If Next Sheets("Récap").Select End Sub
isabelle
Bonjour à Toutes et à Tous, Comment récupérer un tableau qui a été filtré dont chaque
enregistrement est sur une ligne, en le transposant en colonne sur une autre feuille. données de départ : la feuille "Répert" (qui aura déjà été
filtrée)dont j'aimerais récupérer les données des colonnes
A à X en partant de ligne 3. En transposant dans une autre feuille "Récap"en partant de
la colonne B puisque la colonne A aura les titres des colonnes transposées. Ce qui devrait donner : feuille "Répert" A3:X3 à transposer vers feuille"Récap" en
B2:b24 ensuite A4:X4 à transposer vers feuille"Récap" en c2:c24
et ainsi de suite pour tout le tableau filtré. Tout ceci afin d'avoir un tableau de données qui peut tenir sur un format A4 (mode portrait).Bien sûr je sais que excel est limité à 256 colonne mais le résultat qui sera transposé ne prendra pas plus d'une centaine de colonnes (enregistrements). Merci de suivre, Freedo .
