KTM
XLDnaute Impliqué
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
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