Comment mettre une colonne de 20 chiffres en ligne

Bonjour a tous, forum bonjour

Je copie sur un site le résultat du kéno de 20 chiffres.

je fait le copier coller en ligne ou en colonne et quand je veux les coller

dans ma feuil ils se positionne toujours en colonne.

Donc pour l'instant je les collent dans la colonne jaune, voir fichier ci-joint svp

et je souhaiterai svp une petite VBA sub macro pour recopier les chiffres de la colonne jaune

a la suite dans une ligne a la suite des autres.

Merci pour votre aide, bonne après midi.

Cdlt Ray

45keno.xlsm (16.75 Ko)

Bonjour,

Copie et Collage spécial : Transposé...

Cordialement.

Salut MFerrand,

Merci pour cette rapide réponse, ca fonctionne bien.

Mais serait t'il toutefois possible de me faire svp une macro sub

qui ferait la même chose en VBA.

Rien ne presse si tu veux bien, merci

Cdlt Ray

Tu dis que tu copies sur un site... As-tu essayé lors de ce premier collage un collage spécial transposé ?

Tu n'aurais plus besoin de le reprendre ensuite (si cela fonctionne) !

Re salut

oui j'ai essayer

je fait un copier coller sur le site du kéno

je reviens sur le programme et je ne peux pas faire un collage spécial transposé

car je n'ai pas accès aux options de collage spécial transposé

Par contre si je colle dans la colonne A

je recopie a nouveau les chiffres et la je peux faire un collage spécial transposé

j'avais penser faire

un copier coller des résultats - je colle dans la feuil colonne A - puis je clic sur le bouton pour lancer la macro - pour placer en ligne

Merci a toi Cdlt Ray

Salut Eliot,

Bonjour MFerrand,

traduction, à ma manière, de la pensée de MFerrand avec le petit bouton que tu souhaitais.

Private Sub cmdGo_Click()
'
iRow = IIf(Cells(1, 3) = "", 1, Range("C" & Rows.Count).End(xlUp).Row + 1)
Range("C" & iRow & ":V" & iRow).Value = WorksheetFunction.Transpose(Range("A1:A20"))
Range("A1:A20").ClearContents
'
End Sub

A+

15keno.xlsm (24.50 Ko)

Bonsoir,

J'étais pas mal occupé ailleurs... ! Mais je vois que Curulis t'as répondu... Je n'aurais pas écrit tout à fait pareil (chacun ses habitudes, voire maniaqueries, pour les noms de variables ! ) mais cela aurait été la même chose au résultat...

Cordialement.

Bonjour MFerrand,

... et ça m'intéresse beaucoup de lire ta façon de faire!

A+

Salut a tous

Salut MFerrand

Salut curulis57

Merci pour le petit code ca fonctionne bien,

Sur le même fichier ci-joint serait t'il possible de faire un calcul

avec un affichage que je n'arrive pas a faire, voir svp le fichier ci-joint

j'ai mis un commentaire et un exemple souhaiter.

Merci a vous une agréable journée a vous.

Cdlt Ray

18keno.xlsm (27.05 Ko)

Salut Eliot,

comme c'est le même fichier, j'aimerais que tu expliques en long, en large et en travers ce que tu veux, depuis la transposition d'une première volée de données jusqu'à la suivante.

  • une ligne de données brutes puis une ligne en faisant directement la différence ?
  • une troisième ligne de données brutes puis une autre encore avec la différence ?

Ah? Dans les lignes roses, peut-être ?

A+

Salut curulis57

ci joint le fichier avec les explications demandés

pour la transposition ca c'est bon.

juste a voir pour affichage et calcul de la différence

sinon

Ah? Dans les lignes roses, peut-être ?

baht la combinaison gagnante

bonne journée a toi

merci cdlt ray

19keno.xlsm (27.37 Ko)

Salut Ray,

après les 20 premiers tirages du Keno, on fait quoi ? On efface les tirages précédents et on continue le calcul de différence à l'infini?

Dans ce cas, ne serait-ce pas plus intéressant d'avoir le plus récent calcul des différences entre tirages systématiquement en ligne 22 en repoussant donc les plus anciens vers le bas?

A toi d'y réfléchir!

A+

re

après les 20 premiers tirages du Keno, on fait quoi ? On efface les tirages précédents et on continue le calcul de différence à l'infini?

Oui on continue jusqu'à l'infini non peut etre pas j'espère gagner avant LOL

Dans ce cas, ne serait-ce pas plus intéressant d'avoir le plus récent calcul des différences entre tirages systématiquement en ligne 22 en repoussant donc les plus anciens vers le bas?

Oui aussi on peux faire comme ça et ca sera bien comme ca

Merci a toi, pour tes réponses, c'est gentil

Cdlt Ray

Salut Ray,

en attendant ta réponse, c'est ainsi que j'avais opéré! 8)

Public Sub cmdGo_Click()
'
iRow = IIf(Cells(1, 3) = "", 1, Range("C21").End(xlUp).Row + 1)
Range("C" & iRow & ":V" & iRow).Value = WorksheetFunction.Transpose(Range("A1:A20"))
Range("A1:A20").ClearContents
'
If iRow > 1 Then
    Range("C22:V22").Insert shift:=xlDown
    Range("C22:V22").Borders.LineStyle = 1
    For x = 3 To 22
        iFlag = Cells(iRow, x) - Cells(iRow - 1, x)
        If iFlag <> 0 Then
            Cells(22, x) = IIf(iFlag < 0, CStr(iFlag), "'+" & CStr(iFlag))
            Cells(22, x).Font.Color = IIf(iFlag < 0, RGB(255, 0, 0), RGB(60, 220, 40))
        Else
            Cells(22, x) = "0"
        End If
    Next
End If
If iRow = 20 Then
    Range("C1:V1").Value = Range("C20:V20").Value
    Range("C2:V20").ClearContents
End If
'
End Sub

Bonne chance!

A+

48keno.xlsm (28.51 Ko)

Salut curulis57

Merci pour le fichier c'est bien comme ca que je voulais que ca fonctionne.

Je te souhaite une bonne journée et encore merci pour ton aide ainsi que ta réactivité.

A plus tard sans doute, vu l'heure bon app

Cdlt Ray

Merci aussi a toi MFerrand la bonne journée également

Bye bye

Rechercher des sujets similaires à "comment mettre colonne chiffres ligne"