Méthode Select dans Private Sub

Résolu/Fermé

Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 - 28 mai 2014 à 11:32
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 29 mai 2014 à 07:38

Bonjour,

Le code suivant génère l'erreur : La méthode Select de la classe Range a échoué.

Savez-vous comment contourner le problème, sachant que je n'ai qu'une seule feuille dans mon classeur ?

Merci beaucoup.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

'Eviter selection multiple
ActiveSheet.Cells(Target.Row, Target.Column).Select

' Cocher resultats
If ActiveCell.Column = 3 Or ActiveCell.Column = 9 Then
ActiveCell.Value = "V"
Selection.Offset(0, 1).Value = ""
Selection.Offset(0, 2).Value = ""
ElseIf ActiveCell.Column = 4 Or ActiveCell.Column = 10 Then
ActiveCell.Value = "N"
Selection.Offset(0, -1).Value = ""
Selection.Offset(0, 1).Value = ""
ElseIf ActiveCell.Column = 5 Or ActiveCell.Column = 11 Then
ActiveCell.Value = "V"
Selection.Offset(0, -1).Value = ""
Selection.Offset(0, -2).Value = ""
End If

End Sub

A voir également:

Méthode Select dans Private Sub
Navigation in private - Guide
Dekart private disk - Télécharger - Chiffrement
D-sub coupure ✓ - Forum Matériel & Système
Reboot and select proper boot device asus - Forum Matériel & Système
Move your sub - Télécharger - Sous-titres

8 réponses

Réponse 1 / 8

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
28 mai 2014 à 12:42

Bonjour, comme tu n'as qu'une feuille il est inutile d'appeler "workbook"

macro à installer dans le module de la feuille

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Byte
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target
     Col = .Column
     Select Case Col
          Case 3, 9
               .Value = "V"
               .Offset(0, 1) = ""
               .Offset(0, 2) = ""
          Case 4, 10
                  .Value = "N"
                    Target.Offset(0, -1) = ""
                    ActiveCell.Offset(0, -2) = ""
          Case 5, 11
                    .Value = "N"
                    .Offset(0, -1) = ""
                    .Offset(0, -2) = ""
          End Select
End With
Application.EnableEvents = True
End Sub

Sub SOS()
'dépannage pour réamorcer les macros événementielles en cas de sortie intempestive de la procédure
Application.EnableEvents = True
End Sub

Réponse 2 / 8

Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 1
28 mai 2014 à 13:30

Bonjour Michel,

J'aurais besoin que la macro se déclenche à chaque changement de cellule. Malheureusement, je n'arrive pas à faire fonctionner ton code...
Le fichier joint, si tu as deux minutes pour regarder... C'est un petit loto foot

https://www.cjoint.com/?3ECnDRixz5D

Réponse 3 / 8

Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 1
28 mai 2014 à 13:34

Je crois qu'il y a un mot de passe, c'est DDDD
8))

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
28 mai 2014 à 14:37

:-(

Pourtant, j'avais écris
macro à installer dans le module de la feuille
je complète
et non dans thisworkbook

Réponse 4 / 8

Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 1
28 mai 2014 à 14:42

Tout à fait, c'est bien ce que j'ai fait, mais voyant que ça ne fonctionnait pas, j'ai essayé dans Thisworkbook, et évidemment, rien de plus.

Depuis tout à l'heure je réessaye, mais visiblement j'ai du mal, je n'arrive à rien de bon.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
28 mai 2014 à 14:46

J'ai essayé avec victoire du brésil en cliquant sur la cellule colonne 4 à coté de Brésil: ca a bien écrit V et donner 3 points au Brésil

Terminé

Réponse 6 / 8

Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 1
28 mai 2014 à 14:52

:((

Est-ce que tu voudrais bien m'envoyer ton fichier, dans lequel ça fonctionne ?
Parce que moi, j'ai enlevé tous mes modules, effacé thisworkbook et créé un nouveau module pour y mettre ton code, et... rien ne se passe.

Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 1
28 mai 2014 à 14:58

En créant un nouveau classeur non plus, pas de réaction et possibilité de sélectionner plusieurs cellules en même temps (ce que If Target.Count > 1 Then Exit Sub devrait interdire, il me semble).

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
28 mai 2014 à 16:33

lance la macro SOS et tu dis

Réponse 7 / 8

Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 1
29 mai 2014 à 01:51

Bonjour,

J'ai finalement réussi à faire fonctionner le code, mais en l'insérant bien dans thisworkbook, et en modifiant le début :

With Target
  If .Count > 1 Then Exit Sub
  Select Case .Column
   Case 3, 9 
etc.

Impossible par contre de le faire fonctionner depuis un module standard, même avec la meilleure volonté...
Sans doute un mystère qui restera dans l'ombre.

Je mets en résolu, merci encore et à bientôt !

II

Réponse 8 / 8

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
29 mai 2014 à 07:38

Ce n'est pas un module Standard mais un MODULE FEUILLE !!!!

pourtant j'ai écris et ré écris

macro à installer dans le module de la feuille

Désespérant d'essayer d'aider

Discussions similaires

Aide Please select boot device

Bonjour, j'ai reçu mon PC monté hier, il n'a pas encore de système d'exploitation (j'ai Windows 10 en CD à installer.). Lorsque j'allume mon ecran, voici ce qu'il m'affiche
Je ne sais pas quoi sélectionner, ni ce que cela veux dire. Pouvez vous m'aider?

Problème d'allumage écran LG : "OUT OF RANGE"

Bonjour,
je viens d'acheter un écran LG neuf.
J'ai fais tous les branchements et il me dit : "D-sub Out Of Range 63,9 kHz / 60 Hz" dans un écran noir.
Que dois-je faire pour qu'il s'allume??
Quelqu'un peut-il m'aider ??
Merci

Select boot device première utilisation

Bonjour !

J’ai acheté mon ordinateur ce matin et pendant que je le configuras, il a redémarré et un message « Please select boot device » est apparu. J’ai le choix entre « Windows Boot Manager » et « Setup ». Si j’appuie sur Windows boot manager, rien ne se passe. Si j’appuie sur Setup j’arrive sur un menu mais peu importe ce que je change, l’ordi redémarre et le même message s’affiche encore. Avez-vous une idée de ce que je dois faire ? Sachant que j’ai juste eu le temps de regler la langue de mon clavier.

Merci d’avance

"Please select a boot device " ? ???

Bonjour,

J'ai eu ce problème, mon ordinateur asus rog acheté l'année dernière a freez puis apres il s'est re demaré et au re démarrage j'ai eu cette question avec en choix : Toshiba avec une serie de chiffre , ce que je ne comprends comme j'ai un Asus c'est vraiemnt bizarre
et en deuxieme choix select a device , au final j'ai eteint manuellement mon ordinateur et s'est redevenu normal
Voila je voulais savoir deja pourquoi j'avais des freez comme ca de temps en temps pour savoir si je dois faire marcher ma garantie et qu'est ce que je dois leur dire vu que c'est pas un bug qui se remarque quand on allume l'ordi , ca m'embete pour un ordinateur tout nouveau d'av...

Please select boot device

Bonjour,

Ce matin j'ai voulu allumer mon ordinateur ASUS qui a moins d'un an. je ne sais pas si l'info peut aider mais c'est un odri qui fait aussi tablette et il fonctionne sous Windows 8. Bref, en l'allumant écran noir avec un message qui s'affiche:
''Please select boot device'' Avec comme choix ''Windows boot manager'' ou ''enter setup''.
Est ce un reboot ? c'est à dire une restauration à l'état d'usine...
Je ne suis pas très douée en informatique et je ne sais même pas ce que je dois faire, quoi sélectionner sachant que j'aimerai préserver mes données et ne pas avoir à tout réinstaller.

Si quelqu'un sait à quoi est du ce probl...