Par VBA, comment pourrais-je dire:
pour chaque cellule dans la colonne B11:B?, si la cellule =3D "" alors
la cellule correspondante dans les colonnes C,D et E doivent aussi
=EAtre =3D ""
Voici o=F9 j'en suis....
Sub EnleverLignes()
Application.ScreenUpdating =3D False
Sheet1.Select
With ActiveSheet
For Each cell In Range("B11:B2000")
If cell.Value =3D "" Then
ActiveCell.Offset(0, 1).Value =3D ""
ActiveCell.Offset(0, 2).Value =3D ""
ActiveCell.Offset(0, 3).Value =3D ""
ActiveCell.Offset(0, 4).Value =3D ""
End If
Next
end with
End Sub
Ca ne fonctionne pas...
J'ai aussi essay=E9 ce qui suit:
Sub EnleverLignes()
Application.ScreenUpdating =3D False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow =3D Cells.Find("*", [A1000], , , xlByRows,
xlPrevious).Activate
Cells(ActiveCell.Row, 1).Activate
For i =3D Lastrow To 2 Step -1
If ActiveCell.Row =3D 10 Then Exit Sub
If Cells(i, 2).Value =3D "" Then
Cells(i, 3).ClearContents
Cells(i, 4).ClearContents
Cells(i, 5).ClearContents
Cells(i, 6).ClearContents