Petite aide sur ce code macro??

[roidurif]

Bonjour,

Comment faire pour modifier ce code pour dire afficher en résultat colonne S12:S et non pas en ligne 19??

Merci

    '...
    ReDim Preserve ctl(1 To Uctl, 1 To 1)
    ctl = Application.Transpose(ctl)
    With Sheets(CONTROLE)
        .Range(.Cells(19, 1), .Cells(19, Columns.Count).End(xlToLeft)).ClearContents
        .Range(.Cells(19, 1), .Cells(19, Uctl)).Value = ctl
    End With

Cordialement

 

[phlaurent55]

Re : Petite aide sur ce code macro??

Bonjour roidurif

en inversant 19 & 1 dans ton code

 

[roidurif]

Re : Petite aide sur ce code macro??

Re,

En inversant 19 & 1 , ca ne va pas me mettre les donnée vertical à S12:S mais en horizontal.

 

[roidurif]

Re : Petite aide sur ce code macro??

Le problème est de là je pense,

ctl = Application.Transpose(ctl)

Je crois qu'elle transpose les données en ligne, comment fair pour pas transposer?

Merci