Bonjour,
Je suis débutant et je recherche une solution pour simplifier le code suivant :
jusqu'à S13
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 If Range("S320") = "" Then Rows("320:320").Delete If Range("S319") = "" Then Rows("319:319").Delete If Range("S318") = "" Then Rows("318:318").Delete If Range("S317") = "" Then Rows("317:317").Delete If Range("S316") = "" Then Rows("316:316").Delete
Ce code me permet dans un formulaire de commande de garder que les lignes qui sont commandées.
Merci par avance pour vos réponses
Partager