Copier ligne suivante si cellule non vide autre feuille

Bonjour a tous.

Voilà je me permet de poster ici pour une petit problème.

En effet, sur ma euil6, j'importe un CSV, que je me sert ensuite pour remplir des tableaux de stats sur les autres feuille.

Je souhaite donc indiquer toutes mes valeurs de ma première colonne sur le tableau de ma feuille 1, tant que le tableau de la feuille6 ne se fini pas, donc que la ligne suivante de ma colonne A n'est pas vide.

J'ai donc fait une incrémentation sur ma ligne.

voici mon code:

Sub Selection()
   Dim numeroligne As Integer
   Dim numeroligneCSV As Integer

   numeroligne = 11
   numeroligneCSV = 2

   While Worksheets("Feuil6").Range(numeroligneCSV + 1, 1) <> ""
        Worksheets("Feuil6").Range(numeroligneCSV, 1).Copy
        Worksheets("Feuil2").Range(numeroligne, 3).Paste
        numeroligne = numeroligne + 1
        numeroligneCSV = numeroligneCSV + 1
   Wend
End Sub

Le problème est qu'il me met le debug sur ma ligne de ma boucle While.

Merci de votre aide.

Cordialment, Fitouf

Bonjour,

Voilà qui devrait marcher :

Sub Selection()
   Dim numeroligne As Integer
   Dim numeroligneCSV As Integer

   numeroligne = 11
   numeroligneCSV = 2

   While Worksheets("Feuil6").Cells(numeroligneCSV, 1) <> ""
        Worksheets("Feuil6").Cells(numeroligneCSV, 1).Copy
        Worksheets("Feuil2").Range("C" & numeroligne).PasteSpecial
        numeroligne = numeroligne + 1
        numeroligneCSV = numeroligneCSV + 1
   Wend

End Sub

Cordialement.

Il me replace toujours le debug sur ma ligne

While Worksheets("Feuil6").Cells(numeroligneCSV, 1) <> ""

Tes feuilles s'appellent bien toujours Feuil1, Feuil2,... ? Si tu les as renommées, il faut changer et mettre le bon nom en remplacement dans le code.

Enfin le code que je t'ai fournis fonctionne chez moi.

C'est bon j'ai trouvé.

Je suis passé par des ActiveCell en stockant les lignes.

voici mon code:

Sub Mise_en_page()
   Dim numeroligne As Integer
   Dim decalage As Integer
   Dim numeroligneCSV As Integer

   'Ajout segments Feuil2
   Sheets(6).Select
   Range("A2").Select
   numeroligne = 11
   numeroligneCSV = 2
   decalage = 1
        Do While ActiveCell <> ""
            ActiveCell.Copy
            ActiveCell.Offset(decalage, 0).Select
            decalage = decalage + 1
            Sheets(2).Select
            Cells(numeroligne, 3).Select
            numeroligne = numeroligne + 1
            numeroligneCSV = numeroligneCSV + 1
            ActiveCell.PasteSpecial
            Sheets(6).Select
            Cells(numeroligneCSV, 1).Select
        Loop

Je risque de rencontrer d'autres problèmes, donc je me retournerai vers vous.

Merci de votre aide

Bizarre pourtant mon code marchait chez moi, alors que le tiens, j'ai une erreur sur

Cells(numeroligne, 3).Select

Enfin si tu as réussi à faire ce que tu voulais , tant mieux

Salut a tous.

Voilà, comme je m'en doutai je me retourne vers vous.

Mon projet à bien avancé, les tableaux sont enfin finis et je m'attaques aux graphiques a l'aides des tableaux.

Toujours dans la même macro, j'aimerais changer la couleur de mes colonnes de graphiques, comment faire?

J'aimerai que pour "jamais ouvert" la couleur soit la couleur de fond de la cellule D12. comment faire?

'GRAPHIQUES
    Dim Rep As String
    nbsegment = nbsegment - 1
    Rep = "Nombre de mails ouverts"
    'Statistiques d'ouverture

     Sheets(3).Select
     ActiveSheet.Shapes.AddChart.Select
     ActiveChart.SetSourceData Source:=Range( _
     "'Statistiques d''ouverture'!A14:A" & nbsegment & "")
     ActiveChart.ChartType = xl3DColumnClustered
     ActiveChart.SeriesCollection(1).Name = "=""Jamais ouvert"""
     ActiveChart.SeriesCollection(1).Values = _
     "='Statistiques d''ouverture'!D14:D" & nbsegment & ""
     ActiveChart.SeriesCollection(1).Color = RGB(255, 0, 0)
     ActiveChart.SeriesCollection.NewSeries
     ActiveChart.SeriesCollection(2).Name = "=""Ouvert au moins une fois"""
     ActiveChart.SeriesCollection(2).Values = _
     "='Statistiques d''ouverture'!F14:F" & nbsegment & ""

     ActiveSheet.Shapes.AddChart.Select
     ActiveChart.SetSourceData Source:=Range( _
     "'Statistiques d''ouverture'!A14:A" & nbsegment & "")
     ActiveChart.ChartType = xl3DColumnClustered
     ActiveChart.SeriesCollection(1).Name = "=""Ouvert une fois"""
     ActiveChart.SeriesCollection(1).Values = _
     "='Statistiques d''ouverture'!K14:K" & nbsegment & ""
     ActiveChart.SeriesCollection.NewSeries
     ActiveChart.SeriesCollection(2).Name = "=""Ouvert plus d'une fois"""
     ActiveChart.SeriesCollection(2).Values = _
     "='Statistiques d''ouverture'!N14:N" & nbsegment & ""