XL 2010 Créer un message erreur

amstrong32 · 6 Octobre 2020

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 · 6 Octobre 2020

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 · 7 Octobre 2020

Bonjour amstrong32, sousou,

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

VB:

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

XL 2010 Créer un message erreur

amstrong32

XLDnaute Nouveau

sousou

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Discussions similaires