Discussion :

[Frederic974]

J'ai le code suivant

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
 
With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=DB;;;MODE=SHARE;DBALIAS=DB;", Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT T.VALEUR FROM Table T")
        .Name = "Valeur"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Les valeurs retourné vont alors se placer sur A1,A2,A3...etc
Je voudrais savoir si il été possible de mettre les valeur non plus A1,A2,A3...etc mais A1,B1,C1...etc ?

Merci

[Minick]

Salut,

Une solution parmi d'autres, a ajouter apres le query:

Code :

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

1
2
3
4
5
6
7
With Activesheet
    .Range("A1:A" & .Range("A35536").End(xlUp).Row).Copy
    .Range("B1").PasteSpecial Transpose:=True
    Application.DisplayAlerts=False
        .Columns(1).Delete
    Application.DisplayAlerts=True
End With

++
Minick

[Frederic974]

Merci mais ça ne sera pas bon.

Pourquoi ? déjà parceque je vais loin au niveau des colonnes (donc faudrai écrire le code pour chaque ligne ...)
Ensuite le probleme c'est que j'ai un calcul en bas de chaque colonnes.

Exemple de mon tableau Excel:

A à G correspond aux 7 jours de la semaine.
A2 à A6 correspond à 5 types de valeur que je vais reprendre indépendamment par types (genre Val1, Val2, Val3 ... repris chaqu'un par une requête).

Un type de valeur (ex: Val1) n'a q'une valeur par jour.
C'est pourquoi je veux écrire les valeurs des 7 jours de Val1 de A2 à G2 (et non A2 à A6 comme ça le fait avec mon code plus haut).

J'ai aussi de A7 à G7 un calcul, ex: SOMME(A2:A6).

Ce que je voudrais savoir simplement: est-ce qu'il est possible de mettre un paramètre dans un QueryTables pour que les valeurs récupérer ne soient pas coller par défaut sur les lignes d'une colonne, mais sur les colonnes d'une ligne ? (sans faire de bidouillage, coller ailleur pour reprendre, faire 2-3 copier/coller ... etc).

Si oui, quel est ce paramètre, comment le mettre en place ?

Si non, ben, je commence à faire du bidouillage ^^


Merci

[Frederic974]

ah une partie de trouver.

Code :

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

Transpose:=True

ça permet le coller sur une ligne désigné.

Est-il possible de le mettre dans mon QueryTables ?

je n'y ai pas réussi pour le moment

[Jean-Pierre49]

Bonjour Frederic974 et bienvenu sur le forum
Bonjour a tout le forum


Query crée un Recordset bref un groupe de valeur composé de champs (colonne) et des enregistrements (Lignes)

Quand un recordset est renvoyé (ici en l’occurrence

Code :

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

Destination:=Range("A1")

La table est donc rapatriée à partir de la cellule A1. Les champs remplissent les colonnes et les enregistrements les lignes

Tu demande l’inverse, or les enregistrements ne peuvent devenir les champs.
Oriente-toi plutôt vers une solution comme te le propose Minick

[Frederic974]

Ok merci.
On peut pas faire alors, merci pour l'explication.

Je vais mettre ça sur une feuille à part puis faire

Code :

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

1
2
3
4
5
6
Application.CutCopyMode = False
Range("A2:A10").Select
Selection.Copy
Sheets("Work").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

et ça marche