Salut G'claire, le Fil, le Forum
Arf, je ne peux dire comme çà sans savoir ce que tu as fais de cette démo...
Ce que je peux confirmer :
1) En n'utilise jamais de cellule fusionnée dans des feuilles étant destinées à être manipulées pas macro (énorme souci en moins)
2) En général, dans toutes mes démos, la feuille dite "Database" ne contient rien de spécial qui serait susceptible de poser problème pour y faire un nettoyage par macro. Ce sont simplement des feuilles où les données sont listées proprement avec un "heading de colonne" c'est tout.
Sans mettre mon nez dans ton bazard, je pense que tout simplement il te manque la référence de la feuille à nettoyer... Car si aucune feuille n'est précisée dans le code, c'est par défaut la feuille active qui sera traitée par des codes VBA depuis un UserForm...
Juste à titre d'exemple voici deux moyens de nettoyer une feuille parmis la masse des feuilles d'un classeur :
Sub TestClearSheetIndex()
Dim I As Byte, X As Byte
X = Sheets.Count
I = InputBox("taper un nombre de 1 à : " & X)
Sheets(I).Range("A2:X65536").ClearContents
End Sub
Ou encore (avec un Test en prime sur le nom de la feuille) :
Sub TestClearSheetName()
Dim WSname As String, X As Byte, Test As Byte
WSname = InputBox("taper le nom d'un feuille")
For X = 1 To Sheets.Count
If Sheets(X).Name = WSname Then
Sheets(X).Range("A2:X65536").ClearContents
Test = Test + 1
End If
Next
If Test = 0 Then MsgBox "Par de feuille au nom de : " & WSname
End Sub
Voilà G'claire, à toi maintenant de savoir adapter tout çà
Bonne Journée
@+Thierry
))
