XL 2010 Créer un message erreur

[amstrong32]

Bonjour,

J'ai fait un bouton avec l'enregistreur de macro pour réinitialiser mon tableau , or si rien n'est sélectionné il me met un debug.
J'aimerais que si rien n'est sélectionné en cliquant pour réinitialiser cela me mette un message d'erreur.

Comment fait ?

Merci à vous

 

[sousou]

bonjour
sans exemple on peut supposer que ceci pourrait aller
à mettre en début de code ( 1 parce-que il y a toujours au moins une cellule sélectionnée)
if selection.count=1 then msgbox "erreur"

 

[soan]

Bonjour amstrong32, sousou,

Essaye ce code VBA (à adapter à ton vrai tabeau) :

Option Explicit

Sub ClrTbl()
  Dim dlg&: Application.ScreenUpdating = 0
  dlg = Cells(Rows.Count, 1).End(3).Row 'dlg = dernière ligne utilisée, selon la colonne A
  If dlg > 1 Then Range("A2:G" & dlg).ClearContents 'cela si ton tableau va des colonnes A
  'à G, et qu'il y a une ligne d'en-têtes en ligne 1 => 1ère ligne de données en ligne 2.
End Sub

soan