Discussion :

[charlesveillet]

Bonjour,

Je suis debutant en vba excel. J'ai une feuille 1 ou j'ai un tableau. Je souhaite creer une macro afin de copier coller ce tableau de la feuille 1 vers la feuille 2. La macro devra ensuite faire une recherche au niveau de la colonne C de la ligne 3 jusqu'a la fin: A chaque fois que la valeur de la cellule est differente d'un chiffre alors supprimer la ligne. En definitive, la macro genere un graphe prenant en compte les dates au niveau de la colonne A et les valeurs de la colonne H. Tout cela au niveau de la feuille 2.

Est ce que vous pouvez svp m'indiquer comment je peux proceder?

Merci beaucoup!

[Daniel.C]

Bonjour,

Pour un tableau débutant en A1 et en supposant que les suppressions de ligne se fassent si la valeur en colonne C diffère de 1 avec l'une de ses voisines :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test()
    Dim c As Range, Plage As Range, Ligne As Long, Col As Integer, Graph
    With Sheets("Feuil1")
        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        Col = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Set Plage = .Cells(1, 1).Resize(Ligne, Col)
        Plage.Copy [Feuil2!A1]
    End With
    With Sheets("Feuil2")
        Set Plage = .Cells(1, 1).Resize(Ligne, Col)
        For i = Plage.Rows.Count To 1 Step -1
            If .Cells(i, 3) - .Cells(i + 1, 3) = 1 And i + 1 <= Plage.Rows.Count Then
                Rows(i).Delete
            ElseIf i > 1 Then
                If .Cells(i, 3) - .Cells(i - 1, 3) = 1 Then
                    Rows(i).Delete
                End If
            End If
        Next i
        Set Graph = .Shapes.AddChart
        Graph.Chart.ChartType = xlLine
        Graph.Chart.SeriesCollection.NewSeries
        Graph.Chart.SeriesCollection(1).Values = "=Feuil2!" & Plage.Columns(8).Address
        Graph.Chart.SeriesCollection(1).XValues = "=Feuil2!" & Plage.Columns(1).Address
    End With
End Sub