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 !
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
![+1](https://www.developpez.net/forums/images/smilies/poucevert.gif)
pour chaque message ayant aidé puis sur
![:resolu:](https://www.developpez.net/forums/images/buttons/resolu.gif)
pour clore cette discussion …
Partager