Discussion :

[RAID14]

Bonjour,

Je suis débutant et je recherche une solution pour simplifier le code suivant :

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

jusqu'à S13

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

[NEC14]

Bonjour,

Essai ce code à placer dans un module

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
18
 
'Déclaration de la routine
Sub SupprimerLignesVides()
Dim vDernièreLigne As Long
Dim vLigne As Long
'le numéro de la dernière ligne utilisée de la feuille active est afecté à la variable
vDernièreLigne = ActiveSheet.UsedRange.Rows.Count
'L'écran est figé
    Application.ScreenUpdating = False
'Cette boucle passe en revue toutes les lignes de la zone occupée en commençant par la dernière
    For vLigne = vDernièreLigne To 1 Step -1
'Ce test compte le nombre de cellules occupées
'si le résultat est égal à zéro, donc ligne, donc suppression
        If Application.CountA(Rows(vLigne)) = 0 Then
    Rows(vLigne).Delete
'Fin de la boucle
   Next
End Sub

Cordialement