Discussion :

[scotop]

bonjour,
voici mon problème est de supprimer plusieurs lignes suivant 2 criteres

exemple:

si colonne B=20 et si colonne C est vide, alors supprimer ligne et supprimer les 2 lignes au-dessus de celle-ci

pour les critères je pense pourvoir me débrouiller mais c'est surtout pour faire supprimer les 3 lignes que j'ai besoin d'aide..

merci

[Marc-L]

Bonjour, bonjour,

merci la prochaine fois de poster dans la section VBA (ici c'est les formules dans les feuilles de calcul !)
et publier aussi l'ébauche de code … Ne pas oublier l'Enregistreur de macros offrant une base de code !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Demo()
    Application.ScreenUpdating = False
 
    For R& = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
        If Cells(R, 2).Value = 20 And Cells(R, 3).Value = "" Then
            Rows(R - 2 & ":" & R).Delete
            R = R - 2
        End If
    Next
 
    Application.ScreenUpdating = True
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[scotop]

ok noté.

merci c'est nickel !

rien à modifier !