XL 2010 Créer un message d'erreur

[Jekk]

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

 

[Lone-wolf]

Bonjour jekk, le Forum

Tu peux être un peu plus précis? Tu parle de sélection, mais c'est une cellule ou plusieures? Quelle colonne?
Sans fichier joint, difficile de donner une réponse satisfaisante.

 

[don_pets]

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

Bonjour,

Peux-tu nous donner plus d'info ou bien même mieux nous glisser un fichier exemple afin de cerner au mieux ton besoin.

 

[don_pets]

Arf scuze Jekk, pas vu que tu avais déjà répondu

 

[Lone-wolf]

Bonjour don_pets

@Jekk

Sinon, un essai comme ceci

Sub test()
Dim cel As Range

    For Each cel In Range("a2:p8")
        Set cel = ActiveCell
        If Application.Intersect(cel, Range("a2:p8")) Is Nothing Then _
           MsgBox "Veuillez sélectionner la ou les cellules": Exit Sub
    Next cel
    Application.Goto Range("a1")
End Sub

 

[Jekk]

Bonjour,

Voici le fichier en PJ
Le bouton est sur la page TOURNEE

Cordialement

 

[Lone-wolf]

Re Jekk

@Jekk

Regarde avec l'auteur des macros, si il peux faire quelque chose.

 

[don_pets]

salut Lone, je ne devais aps être bien réveillé ce matin ^^

sinon Jekk si c'est le message d'erreur qui te chatouille essaye juste

On Error Resume Next

Enjoy

 

[Jekk]

Toujours pas trouvé la solution ^^

 

[Dranreb]

Bonjour.
Ah, oh ce n'est pas la peine de mettre un message d'erreur à mon avis :

Sub RàZTournée()
WshTournée.[TabÉtapes[?]].Value = "û"
On Error Resume Next
WshTournée.[TabTournée].Delete xlShiftUp
End Sub
Sub RemiseEtapeAZero()
WshTournée.[TabÉtapes[?]].Value = "û"
End Sub

Remarque: don_pets, que je salue, l'a bien compris et l'a exactement suggéré aussi !

 

[Dranreb]

Cependant si vous y tenez vraiment :

Sub RàZTournée()
Dim Retenus As Boolean, Reliquat As Boolean
Retenus = Application.CountIf(WshTournée.[TabÉtapes[?]], "ü") > 0
Reliquat = WshTournée.[TabTournée].ListObject.ListRows.Count > 0
If Not (Retenus Or Reliquat) Then MsgBox _
   "Ça va, c'est bon, là, tout est déjà à l'état initial !", _
   vbCritical, "RÉINITIALISATION TOURNÉE"
If Retenus Then WshTournée.[TabÉtapes[?]].Value = "û"
If Reliquat Then WshTournée.[TabTournée].Delete xlShiftUp
End Sub
Sub RemiseEtapeAZero()
Dim Retenus As Boolean, Reliquat As Boolean
Retenus = Application.CountIf(WshTournée.[TabÉtapes[?]], "ü") > 0
If Not Retenus Then MsgBox _
   "Ça va, c'est bon, là, aucune étape n'est retenue !", _
   vbCritical, "RÉINITIALISATION ÉTAPES"
WshTournée.[TabÉtapes[?]].Value = "û"
End Sub