Discussion :

[coolmomodu31]

Bonjour ,
je souhaite un Macro qui test la feuille : ( Feuille1 ) dans une plage de lignes ( de la ligne 40 à la ligne 150 ) , si toutes les lignes sont vide alors supprimer la feuille : ( Feuille1 ) et si au moins une ligne existe ne rien faire . Merci

[Daniel.C]

Bonjour,

La macro utilise la fonction Excel NBVAL :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
With Sheets("Feuil1")
    If Application.CountA(.[40:150]) = 0 Then
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End If
End With
End Sub

[coolmomodu31]

Merci c'est exactement le besoin