supprimer plage cellules sous condition

KTM · 11 Avril 2019

Salut le Forum
Jaimerais suprimer les pages de cellules des colonnes A à F si la valeur en F est vide
J'ai concocté ce code mais je pense qu'il est mal fait. Un coup de main ?

Dim lig, dlig As Integer
lig = Range("F" & Rows.Count).End(xlUp).Row + 1
dlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A & lig: F " & dlig).Clear

Staple1600 · 11 Avril 2019

Bonsoir

Ta macro "écrite" à ta sauce et fonctionnelle

Code:

Sub suppr()
Dim lig, dlig As Integer
lig = Range("F" & Rows.Count).End(xlUp).Row + 1
dlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lig & ":F" & dlig).Clear
End Sub

KTM · 11 Avril 2019

Merci pour le coup de main vraiment!!!!!!

Staple1600 · 11 Avril 2019

Re

Et voici (si j'ai bien compris), la même macro (mais à ma sauce)

VB:

Sub Suppr_LigneV_ColF()
Set f = ActiveSheet
f.Range("F4:F" & f.Cells(Rows.Count, "A").End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

KTM · 11 Avril 2019

Merci
Mais ici la macro supprime les lignes entieres
comment l'adapter pour ne supprimer que les plages concernées?

Staple1600 · 11 Avril 2019

Bonsoir

Toujours si j'ai bien compris ce que la macro doit faire
Ci-dessous une procédure événementielle
(à mettre dans le code de la feuille => Clic-droit sur l'onglet -> Visualiser le code)

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
If IsEmpty(Target) Then Target.Offset(, -5).Resize(, 6) = Empty
End If
End Sub

Pour tester lancer cette petite macro au préalable (sur une feuille vide)

VB:

Sub Creer_Donnees()
[A1:F16] = "=ROW()+2^COLUMN()-1"
End Sub

Ensuite efface manuellement un cellule en colonne F.

KTM · 14 Avril 2019

Staple1600 à dit:
Bonsoir

Toujours si j'ai bien compris ce que la macro doit faire
Ci-dessous une procédure événementielle
(à mettre dans le code de la feuille => Clic-droit sur l'onglet -> Visualiser le code)

VB:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then If IsEmpty(Target) Then Target.Offset(, -5).Resize(, 6) = Empty End If End Sub

Pour tester lancer cette petite macro au préalable (sur une feuille vide)

VB:

Sub Creer_Donnees() [A1:F16] = "=ROW()+2^COLUMN()-1" End Sub

Ensuite efface manuellement un cellule en colonne F.

Super !!!
Merci

supprimer plage cellules sous condition

KTM

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires