Faire une boucle

Version imprimable

09/02/2011, 13h42
RichRich59

Faire une boucle

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 ?
09/02/2011, 14h21
peregna2007

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

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:

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

09/02/2011, 14h47
alex61

Citation:

Bonjour,

J'aimerais créer une macro disant que

euh vba alors ^^

Bonsoir,

Avec ceci peut être ?

Code:

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é.