supprimer des lignes avec VBA

Version imprimable

Bonjour, je galère grave... Mon code bugge au niveau du range, est-ce que vous comprenez ou ça coince ? En fait je veux effacer des lignes en commençant par le bas. Merci de votre aide!
Code:

1 2 3 4 5 6 7 8 Sub EFFACELIGNE() Range("a1:a100").Select Dim i As Integer For i = 1 To 99 If Cells(100 - i, 1).Value = "" Then Range(Cells(100 - i, 1), Cells(100 - i), 6).Delete shift:=xlUp Next i End If End Sub

Bonjour,

Tu peux essayer comme ça :
(Tu n'as pas besoin de sélectionner une plage, au départ.)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
      For i = 100 To 1 Step -1
 
      If Cells(i, 1).Value = "" Then
 
        'Choisir l'une des 2 solution :
 
        'Pour effacer le contenu des cellules 2 à 6 :
        Range(Cells(i, 2), Cells(i, 6)).ClearContents
 
        'Pour effacer la ligne complète
        Rows(i & ":" & i).Delete Shift:=xlUp
 
      End If
 
 
    Next

Bon courage

Citation:

Envoyé par NulenVBA

est-ce que vous comprenez ou ça coince ?

Code:

1
2
3
4
5
6
7
8
Sub EFFACELIGNE()
Range("a1:a100").Select
Dim i As Integer
For i = 1 To 99
If Cells(100 - i, 1).Value = "" Then Range(Cells(100 - i, 1), Cells(100 - i), 6).Delete shift:=xlUp
Next i
End If
End Sub

1 / Problème de parenthèse sur Range
2 / end if placé après next

Code:

1
2
3
4
5
6
7
8
9
Sub EFFACELIGNE()
Range("a1:a100").Select
Dim i As Integer
For i = 1 To 99
If Cells(100 - i, 1).Value = "" Then
    Range(Cells(100 - i, 1), Cells(100 - i, 6)).Delete shift:=xlUp
End If
Next i
End Sub

29/10/2008, 17h14
NulenVBA

super! merci beaucoup !! je sens que je vais progresser