supprimer plage cellules sous condition

[KTM]

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]

Bonsoir

Ta macro "écrite" à ta sauce et fonctionnelle

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]

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

 

[Staple1600]

Re

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

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]

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

 

[Staple1600]

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)

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)

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

Ensuite efface manuellement un cellule en colonne F.

 

[KTM]

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)

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)

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

Ensuite efface manuellement un cellule en colonne F.

Super !!!
Merci