Discussion :

[NulenVBA]

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 :

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

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

[DocDen]

Bonjour,

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

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

[Peut-êtreUneRéponse]

est-ce que vous comprenez ou ça coince ?

Code :

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

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 vba :

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

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

[NulenVBA]

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