Discussion :

[markotxe]

Bonsoir,
Je cherche un code VBA, qui à partir d'une cellule non-vide (cellule cible), me permettrait d'effacer 3 lignes contiguës (celle du dessous, celle du dessus, et la ligne concernée par la cellule cible).
En fouillant, à droite à gauche, j'ai pu écrire le code suivant:

Code :

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

1
2
3
   Worksheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Offset(-1, 0).EntireRow.Delete
   Worksheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Delete
   Worksheets("Feuil1").Range("C" & Rows.Count).End(xlUp).EntireRow.Delete

Bon, ça marche mais je trouve ça ultra bourrin. Y'aurait-il une manière plus élégante de régler ceci?

Merci de votre attention

[Invité]

Bonjour,

Je ne parlerais pas de simplification... , mais ce code correspond à ce que j'aurais fait. Reste à voir le cas où la ligne cible est la première ligne du tableau.
Nb :

• Effacement n'est pas le bon terme, il s'agit là d'une suppression.
• La neutralisation du calcul est intéressante si vous avez un grand tableau avec de nombreuses formules.
• Le code peut s'appliquer à n'importe quel onglet de la même structure en modifiant le paramètre de SuppressionDeLignes Sheets("Feuil1").

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub SuppressionDeLignes(ByVal ShCible As Worksheet)
 
Dim LigneCible As Long, I As Long
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
    With ShCible
         LigneCible = .Cells(.Rows.Count, 3).End(xlUp).Row
         If LigneCible > 5 Then
            For I = LigneCible + 1 To LigneCible - 1 Step -1
               .Cells(I, 3).EntireRow.Delete
            Next I
         End If
    End With
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
End Sub
 
Sub TestSuppressionLignes()
 
    SuppressionDeLignes Sheets("Feuil1")
 
End Sub

[markotxe]

Bonjour Eric,
Le code fonctionne parfaitement, c'est carrément plus propre. Ça fait plaisir aux yeux et je pense qu'Excel apprécie aussi...
Merci bien!
Bien que le sujet soit résolu, j'aurais quand même une petite question… (sans abuser)
À quoi sert?

Code :

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

1
2
3
4
   With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With

...???

Quoiqu'il en soit merci encore et bonne journée!

[Invité]

Bonjour,

.ScreenUpdating = False neutralise le rafraîchissement de l'écran et fait gagner du temps bien que pour 3 lignes le gain est marginal, et .Calculation = xlCalculationManual neutralise le recalcul des formules, là c'est également pour gagner du temps si le fichier comporte de nombreuses formules.

[markotxe]

Bonsoir,
Merci Eric pour ces éclaircissements. C'est bien noté.
Bonne soirée et merci encore.