Discussion :

[cdaumas78]

Bonjour à tous.

mon fichier contient environ 50 lignes (les questions) et 100 colonnes (les projets). le nombre de colonne est amené à augmenter.
sur les lignes, j'ai placé des formules de sommes intermédiaires par rubrique,
et dans les dernières lignes des formules qui permettent de calculer des indicateurs.

bref, à l'origine le fichier a été concu comme ça, mais maintenant, pour être compatibles d'autres présentations, d'autres fichiers, nous voudrions transposer les lignes et les colonnes pour avoir les 100 projets en dessous les uns des autres, avec les questions sur les titres de colonne.

j'ai essayé le coller spécial+transposer : ça fonctionne très bien ... ... sauf quand la plage copiée contient une formule : là en fait, je n'ai plus accès à la case "transposer" qui est grisée .

comment procéder pour transposer d'un coup d'un seul tout le contenu de l'onglet (cela ne sera fait qu'une seule fois) ?

je peux certes procéder par étapes en copiant/transposant zone par zone puis en recréant les formules à l'arrivée. mais ce ne serait pas efficace et un peu long ...

merci d'avance pour l'aide et le temps passé à répondre,

cordialement,
Catherine

[NVCfrm]

....j'ai essayé le coller spécial+transposer : ça fonctionne très bien ... ... sauf quand la plage copiée contient une formule : là en fait, je n'ai plus accès à la case "transposer" qui est grisée .

bonsoir, s'il n'y a pas une plage avec formules de tableau matriciel, tu peux essayer avec le couper coller qui. à la différence du copier coller, tes formules pointeront toujours sur les cellules déplacées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    Dim r_cut As Range, r_dest As Range, cl, _
    l As Integer, c As Integer, ld As Integer, cd As Integer, couper As String
 
    cl = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
 
    Set r_cut = Selection
    ld = r_cut.Columns.Count
    cd = r_cut.Rows.Count
    Set r_dest = r_cut.Range(Cells(1, ld + 2), Cells(ld, cd))
    couper = r_cut.Cells(1, 1).Address
 
    For c = 1 To ld
 
        For l = 1 To cd
            r_cut.Cells(l, c).Cut r_dest.Cells(c, l)
        Next
 
    Next
 
 
    r_dest.CurrentRegion.Cut
    Range(couper).Insert
 
    Application.Calculation = cl
    Application.ScreenUpdating = True

[Philippe Tulliez]

Bonjour,

j'ai essayé le coller spécial+transposer : ça fonctionne très bien ... ... sauf quand la plage copiée contient une formule : là en fait, je n'ai plus accès à la case "transposer" qui est grisée .

Ce que tu décris est étonnant parce-qu'il est parfaitement possible de transposer un tableau complet (ligne + colonne) qu'il y ait ou non des formules (sauf peut-être comme l'a décrit Ousmane avec formules matricielles pour lesquelles je n'ai pas d'expérience avec cet outil). Seule contrainte, l'emplacement où a lieu ce collage spécial doit être libre.
Par contre je ne connaît pas les limites s'il y en a.

[NVCfrm]

bonjour Phillipe,

Ce que tu décris est étonnant parce-qu'il est parfaitement possible de transposer un tableau complet (ligne + colonne) qu'il y ait ou non des formules (sauf peut-être comme l'a décrit Ousmane avec formules matricielles pour lesquelles je n'ai pas d'expérience avec cet outil). Seule contrainte, l'emplacement où a lieu ce collage spécial doit être libre.
Par contre je ne connaît pas les limites s'il y en a.

j'avais bien remarqué cette allusion avant de lui répondre. j'ai supposé qu'il s'agit de couper-coller et non copier-coller. Dans le cas du couper-coller, l'option Transposer je crois est grisée.

ta réponse me fait douter de quelque chose que je ne suis pas en mesure de vérifier aujourd'hui.
Pourrais tu me rassurer, si en mode couper-coller c'est possible?

[Philippe Tulliez]

Bonjour Ousmane,

j'avais bien remarqué cette allusion avant de lui répondre. j'ai supposé qu'il s'agit de couper-coller et non copier-coller. Dans le cas du couper-coller, l'option Transposer je crois est grisée.
ta réponse me fait douter de quelque chose que je ne suis pas en mesure de vérifier aujourd'hui.
Pourrais tu me rassurer, si en mode couper-coller c'est possible?

Le collage Spécial ne fonctionne qu'avec le Copier.

Je n'ai d'ailleurs jamais compris la raison qui fait que le Couper/Collage Spécial ne fonctionne pas alors que OOo.org et LibreOffice le permettent.
De même qu'il faille faire deux Copier/CollageSpecial pour obtenir Valeur et Format (sauf depuis la version 2010 et uniquement avec le bouton raccourci) alors que le produit libre permet la multi-sélection des options et ce depuis bien longtemps.

[NVCfrm]

bonsoir,
je m'excuses de cette longue absence. (moins en moins de temps libre pour le site ces temps-ci)
Merci pour ta réponse.