Les erreurs
#1
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 13-01-2008 10h07
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 noter mDF que le fichier est extrèmement simplifier. Et aussi je me suis appliquer dans l'édition de ce post.

A+
Pièce jointe:
xls Classeur1.xls   [ Taille: 35.00 Ko - Téléchargements: 542 ]
Edité par PowerPlus le 13/01/2008 21:49:52

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-01-2008 11h17
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 ObjectByVal 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,
Pièce jointe:
zip PourPowerPlus2.zip   [ Taille: 13.06 Ko - Téléchargements: 590 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#3
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 13-01-2008 11h37
Je me suis trompé de pièce jointe !!
Pièce jointe:
xls Classeur1.xls   [ Taille: 35.00 Ko - Téléchargements: 564 ]

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-01-2008 11h44
Arf, ok pas grave.

J'espère que celui que j'ai joint te conviendra...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#5
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 13-01-2008 13h53
Votre code est bien pour le workbook mais pour un module standart j'obtient ce code:

Sub edit()
            If 
Target.Count 1 Then   'Vérifie si le nombre de cellule sélectionner est superieur à 1
      MsgBox "Vous ne pouvez pas selectionner plus de 2 cellules"
            Else
          
            If Selection.NumberFormat = "##.00" Then '
Vérifie si la cellule a le format"##.00"
      
note.txtNote Selection.Value
      note
.txtCoef Selection.Offset(10).Value
      note
.Show 0
            
Else
    
     
MsgBox "Vous ne pouvez pas rééditez de note à cet endrois"
           
End If
           
End If
End Sub


Quelque explications: Pour lancer ce genre de macro on utillise un commandbar (désolé). La macro ne se lance pas car le code continue à s'éxecuter, et l'erreur recommence.
Edité par PowerPlus le 15/01/2008 16:58:08

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-01-2008 21h29
Re PowerPlus,

Je ne comprends pas la situation.

Le Userform doit-il se lancer automatiquement lors de la sélection de cellule (avec format "##.00") ou doit il se lancer par clic droit et sous-menu contextuel ?

Tu as abandonné l'idée du lancement sur simple sélection de cellule ?

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#7
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 13-01-2008 21h45
Re,
Non non, je souhaite en réalité faire les deux. Quand je selectionne la cellule "##.00", je veux que l'userform s'ouvre. Mais la 2e possibilité serai d'ouvrir l'userform avec le menu contextuel. Pour laisser le choix à l'utilisateur entre l'affichage automatique ou le menu contextuel.

Quand je selectionne une case "##.00" dans le tableau l'userform s'ouvre, or si c'est une plage elle ne s'ouvre pas.
Ensuite avec le menu contextuel si je selectionne une cellule "##.00" et puis "Editer la note" l'userform s'ouvre. Et si je selectionne une plage et bien là ERREUR.

Quand je clique sur "éditer la note" j'enclance l'userform "edit" qui ce situe dans un module standart. Comme tout à l'heure je souhaiterai rendre impossible cette erreur.

Merci

PS: heureusement que tout est rentré dans l'ordre.

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#8
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-01-2008 22h10
Re,

Si j'ai bien compris, alors dans ta procédure Edit() ci-dessus, essaye en remplaçant :
If Target.Count 1 Then

par
If Selection.Count 1 Then

Je pense que ça devrait fonctionner.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Les erreurs
#9
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-01-2008 22h26
Citation :

PowerPlus a écrit:
Mais rien à faire: Excel continue de lire le code et ça s'arrête à la ligne:
note.txtNote Selection.Value


Et quelle est le type d'erreur qu'affiche Excel à ce moment là (code de l'erreur et intitulé dans la MsgBox qui s'affiche) ?

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Les erreurs
#10
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 15-01-2008 15h56
Bonjour, finalement votre code marche, désolé.

Mais je tien à m'arrêter un instant là dessus: La VBA n'est pas toujours fiable, car j'ai fais le même code, exactement le même et ça ne marchais pas.

Et ce n'est pas la première fois ! La même chose avec un sous menu, j'ai pioché un code pour faire un menu contextuel quand j'appuie sur TAB. Et hop une erreur, je l'ai essayer plusieurs fois quand je décida d'aller chercher exactement le même dans un autre classeur où ça marchait et la çà a marcher. Mister.

Je met ce fil en [résolu] et je ne cherche même pas à vous poser des questions sur ce phénomène !

A+
Edité par PowerPlus le 15/01/2008 17:02:06

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes