Re G'Claire
Ben je ne sais pas ce que tu trafiques, mais si tu as bien développé ton truc, tu devrais pouvoir sortir ton tableau sans avoir de souci particulier...
Je ne sais pas moi comment ton tableau se présente, mais tu pourrais faire une sorte de test comme ceci :
Sub TestPlageVide()
Dim Plage As Range, Cell As Range
Dim X As Integer
Dim msg As Byte
With Sheets(1)
Set Plage = Application.Union(.Range("A1"), .Range("E1"), .Range("A5:G30"), .Range("A40:G45"))
End With
For Each Cell In Plage
If Not IsEmpty(Cell) Then X = X + 1
Next
If X >= 1 Then
msg = MsgBox("Le tableau n'est pas vide, voulez vous le purger ?", vbCritical + vbYesNo, "Warning")
If msg = 6 Then
Plage.ClearContents
Sheets(1).PrintOut
Else
Sheets(1).Activate
End If
Else
Sheets(1).PrintOut
End If
End Sub
Dans le set avec la Méthode Union tu dois définir tes plages, tu as droit à 30 arguments Range...
Voilà cette fois je pense t'avoir compris
Bon Déveoppement et bon Wouik Hand
@+Thierry