Discussion :

[RichRich59]

Bonjour,

J'aimerais créer une macro disant que

Si la colonne A est vide
Pour les ligne de 8 a 200
On les supprime .

Comment pourrions nous faire ?

[peregna2007]

Tu veux faire un programme Vb.net qui fait ce traitement ou bien une macro dans excel ?

[Eric_M]

Quel contrôle utilises-tu? (une listview?)

Supposons que tu utilises une ListView, et que, dans ta première colonne, ce soit le texte de tes items,
je croix que ce bout de code serait ce que tu cherche;

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
   Dim Colonne1ContientQuelqueChose As Boolean
        For Each itm As ListViewItem In ListView1.Items
            ' Vérifie si il y a du texte dans la première colonne.
            If Not itm.Text = "" Then
                Colonne1ContientQuelqueChose = True
                Exit For
            End If
        Next
 
        If Not Colonne1ContientQuelqueChose Then
            ' Supprime les éléments de 8 à 200
            For i As Integer = 8 To 200 Step 1
                ListView1.Items.Item(i).Remove()
            Next
        End If

[alex61]

Bonjour,

J'aimerais créer une macro disant que

euh vba alors ^^

[Theze]

Bonsoir,

Avec ceci peut être ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Supprimer()
 
    Dim Plage As Range
    Dim I As Integer
 
    Set Plage = [A8:A200]
 
    For I = Plage.Count To 1 Step -1
        If Plage(I) = "" Then Plage(I).EntireRow.Delete
    Next I
 
End Sub

Hervé.