Copier des cases d'une feuille vers une autre feuille

Bonjour aravis,
S'il ne s'agit que de cette cellule, tu peux écrire en E5 de Feuil2 :
þuil1!C2
Pour le peu que l'option de calcul automatique soit maintenue, cette cellule
(E5) sera rafraichie au même rythme que ta base.

Cordialement
Trirème

"aravis" wrote:

bonjour, encore un petit soucit.

Je crée un tableau grace a ma base de donnée que je met dans la feuille
"feuill1"

la diposition des colonne ne me convient pas.
J'aimerai par exemple mettre copier la case "c2" et la mettre dans la case
"e5" de la "feuill2".

Comment réaliser celà , sachant que les tables de la "feuill1" sont
actualisé tout les heures.

cordialement

en fait c'est ma colonne dans "feuil1" sont afficher en colonnes, et je
voudrait afficher en ligne :

avec ce code ca fait colonne PrO_DEFAUT ...
et je voudrait que ca s'affiche en ligne.
Ligne PRO_DEFAUT avec les valeurs sur cette ligne


Sub Macro1()



With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSNÛASE Files;DefaultDir=C:Documents and
SettingsartoisaMy Documents;DriverIdS3;MaxBufferSize 48;PageTimeout=5;"
_
, Destination:=Range("A2"))
.CommandText = Array( _
"SELECT Te_prod.PRO_CODDEF, Te_prod.PRO_DEFAUT, Te_prod.PRO_REFER,
Count(Te_prod.PRO_CODDEF) AS 'Nombre sur PRO_CODDEF'" & Chr(13) & "" &
Chr(10) & "FROM `V:Production LP11morgandata`Te_prod.dbf Te_prod" &
Chr(13) & "" & Chr(10) & "WHERE (Te_prod.PRO_DA" _
, _
"TE={d '" & Format(Date, "yyyy-mm-dd") & "'})" & Chr(13) & "" &
Chr(10) & "GROUP BY Te_prod.PRO_CODDEF, Te_prod.PRO_DEFAUT,
Te_prod.PRO_REFER" _
)
.Name = "Lancer la requête à partir de dBASE Files"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:úlse
End With

End Sub




cordialement

Si tu veux transposer tes données en colonne, il ne faudra pas que tes
résultats dépassent 256 lignes, entête compris puisqu'une feuille ne contient
pas plus de 256 colonnes.
Tu dois avoir de bonnes raisons pour transposer ce tableau de résultats car
Excel travaille aussi bien en X x Y quen Y x X !

Ta requête a l'air de ramener 4 colonnes.
Dans ta feuil2,
en A1, tu écris ÞCALER(Feuil1!$A$1;COLONNE()-1;;;)
en A2, tu écris ÞCALER(Feuil1!$B$1;COLONNE()-1;;;)
en A3, tu écris ÞCALER(Feuil1!$C$1;COLONNE()-1;;;)
en A4, tu écris ÞCALER(Feuil1!$C$1;COLONNE()-1;;;)
etc
et tu recopie ces 4 cellules vers la droite.

Tu peux améliorer la présentation avec cette formule :
=SI(ESTVIDE(DECALER(Feuil1!$A$1;COLONNE()-1;;;));"";DECALER(Feuil1!$A$1;COLONNE()-1;;;))
pour éviter de ramener un '0' pour les cellules vides de Feuil1.

en fait c'est ma colonne dans "feuil1" sont afficher en colonnes, et je
voudrait afficher en ligne :

avec ce code ca fait colonne PrO_DEFAUT ...
et je voudrait que ca s'affiche en ligne.
Ligne PRO_DEFAUT avec les valeurs sur cette ligne


Sub Macro1()



With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSNÛASE Files;DefaultDir=C:Documents and
SettingsartoisaMy Documents;DriverIdS3;MaxBufferSize 48;PageTimeout=5;"
_
, Destination:=Range("A2"))
.CommandText = Array( _
"SELECT Te_prod.PRO_CODDEF, Te_prod.PRO_DEFAUT, Te_prod.PRO_REFER,
Count(Te_prod.PRO_CODDEF) AS 'Nombre sur PRO_CODDEF'" & Chr(13) & "" &
Chr(10) & "FROM `V:Production LP11morgandata`Te_prod.dbf Te_prod" &
Chr(13) & "" & Chr(10) & "WHERE (Te_prod.PRO_DA" _
, _
"TE={d '" & Format(Date, "yyyy-mm-dd") & "'})" & Chr(13) & "" &
Chr(10) & "GROUP BY Te_prod.PRO_CODDEF, Te_prod.PRO_DEFAUT,
Te_prod.PRO_REFER" _
)
.Name = "Lancer la requête à partir de dBASE Files"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:úlse
End With

End Sub




cordialement