Salut le forum, @Thierry
En ce heure tardive, je te solicite une interrogation:
Dans ce code, que tu m'as modifièe es-ce normale que la procédure d'affichage des feuilles purgées ne se fassent que quand les feuilles sont vides, c'est a dire a partir de la deuxième purge?
Private Sub CommandButton9_Click()
Dim WS As Variant, RG As Range
Dim vide As Byte
Dim msg As String
If MsgBox("Voulez-vous mettre les bases de données a zéro ?", vbYesNo, "CONFIRMATION") = vbYes Then
For Each WS In Array(Worksheets("Tool_dir"), Worksheets("Tool_prof"), Worksheets("Tool_danseurs"), Worksheets("Tool_grou"), Worksheets("Tool_chansons"))
Set RG = WS.Range(Cells(2, 1).Address, Cells(100, 4).Address)
If WorksheetFunction.CountA(RG) = 0 Then
vide = vide + 1: msg = msg & WS.Name & vbCrLf
Else
RG.ClearContents
End If
Next WS
End If
Set WS = Nothing
Set RG = Nothing
If vide > 0 Then
MsgBox "Données purgées pour les bases de données " & vbCrLf & msg
End If
End Sub
Je te remercie de ton aide, et te souhaite une bonne nuit ainsi qu'a tout XLD