Titre du sujet : Re: Les erreurs par myDearFriend! le 13/01/2008 11:17:50
Bonjour PowerPlus, le Forum,
Citation : PowerPlus a écrit: J'ai ouvert ce post pour que l'on m'aide à la gestion de l'erreur.
Bonjour,
Voici une erreur assez énervante qui se pasee quand on selectionne une plage de cellule.
Ennoncé: Dans mon classeur, j'ai fait une ouverture automatique d'une UserForm quand on selectionne une cellule. Cet même UserForm me permet de rééditer la plage; ce qui est dans la cellule s'inscrit dans la textbox1. Or cet UserForm ne peut pas rééditer une plage de cellule complète.
Dans cet UserForm: Quand on selectionne une cellule: çà marche; quand on selectionne une plage çà ne marche pas et affiche un message d'erreur.
Je voudrais que: quand on selectionne une plage de cellule, un message s'affiche comme celui là:
msgbox "Vous ne pouvez pas selectionner de plage"
A note mDF que le fichier est extrèmement simplifier. Et aussi je me suis appliquer dans l'édition de ce post.
A+
Merci de l'effort réalisé pour la clarté de ta question PowerPlus.
Petite question toutefois concernant la pièce jointe : pourquoi poster à nouveau le fichier que j'avais moi-même joint dans l'autre fil et que viennent faire les menus contextuel de cellule (que je n'aime pas voir ici tu le sais) dans le présent sujet ?
Bon, j'ai essayé de reprendre l'essentiel de ce qui nous intéresse ici afin de reconstituer un nouveau classeur qui devrait répondre à ta question. Tu le trouveras en pièce jointe.
Le code utilisé pour l'objet ThisWorkbook est le suivant :
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("Feuil1").Range("A1").Value = True Then
If Target.NumberFormat = "0.00" Then
If Target.Count > 1 Then 'Si la sélection est une plage de cellules
MsgBox "Vous ne pouvez pas selectionner de plage"
Else
UserForm1.Show
End If
End If
End If
End Sub
Cordialement,
|