Repor de cellule

Bonjour,

Je doit crée plusieurs graphique est j'ai plus de 40000 lignes. dans une colonne.

Donc je souhaiterais prendre une cellule sur deux pour les mettre dans une deuxième colonne et ainsi pouvoir crée le graphique..

J'ai chercher un peu partout et je n'ai pas trouver de formule.

Je vous remercie d'avance pour votre aide

Bonsoir,

Un essai

Option Explicit
Public Sub Découpage_2_Colonnes()

Dim sH As Worksheet
Dim derLigne As Long
'Pour essai hypothèse de 600 données sur 2 colonnes
Const a As Long = 301

    Set sH = Worksheets(2)

    With sH
        derLigne = Range("A" & Rows.Count).End(xlUp).Row
        Range(Cells(a, 1), Cells(derLigne, 1)).Select
        Selection.Cut
        Cells(1, 2).Select
        ActiveSheet.Paste
    End With

End Sub

bonsoir,

merci de votre aide.

après avoir essaye de comprendre comment fonctionné la macros., je me suis aperçu que les chiffre résultat partait dans tous les sens.

est je me suis rendu compte qu'il y a une erreur de ma part dans le fichier exemple. (j'ai pourtant fait attention, mais bon??)

donc je vous présente mes excuse pour cela.

je vous redonne un fichier qui est bon celui la.

donc je doit prendre les données de la colonne A >> 3, 5, 7, 9, 11, ...., 43 000

et les mettre dans la colonne F pour créer le graphique.

une fois de plus mille excuse

Re,

Ci-joint fichier revu corrigé;

Doit-on créer le graphique par vba?

Cdlt

Option Explicit
Public Sub Découpage()

Dim sH As Worksheet
Dim derLigne As Long
Dim i As Long
Dim j As Long

    Application.ScreenUpdating = False

    Set sH = Worksheets(1)

    With sH
        derLigne = Range("A" & Rows.Count).End(xlUp).Row
        Range(Cells(3, 1), Cells(derLigne, 1)).Select
        j = 3
        For i = 3 To derLigne Step 2
            Cells(i, 1).Select
            Selection.Copy
            Cells(j, 6).Select
            ActiveSheet.Paste
            j = j + 1
        Next i
        derLigne = Range("A" & Rows.Count).End(xlUp).Row
        For i = derLigne + 1 To 1 Step -2
        If Cells(i, 1) = "" Then Cells(i, 1).Delete Shift:=xlUp
        Next i
    End With

End Sub

re,

pas besoin pour le graphique,

Un grand merci, sa fonctionne parfaitement.

je vous souhaite une bonne soirée