Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Proc évènementielle

  • Initiateur de la discussion Initiateur de la discussion ThierryR
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

ThierryR

Guest
Bonjour à tous,

Je déclenche l'appel d'un Userform à l'aide de l'évènement suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Définition de la plage

Set Plage = ActiveSheet.Range("E2:F33")

'Test de la plage

If Not Intersect(Target, Plage) Is Nothing Then
Espèces.Show
End If

End Sub

Tout marche à merveille sauf quand je veux selectionner toutes les cellules de la feuille entière avec le "carré" en haut à gauche.

Quel solution puis-je adopter ? Gestion d'erreurs et comment la faire ?

Merci d'avance à tous

ThierryR
 
Bonjour

Pourquoi dis-tu que cela ne marche pas?

A partir du moment où il y a une intersection entre ta sélection et ta plage,
il y a affichage de ton userform.
Et lorsque tu sélectionne tout, il y a intersection.

Mais peut-être que le n'ai pas tout compris à tes besoins ?
 
Bonjour Sousou

Je te remercie d'abord de prendre du temps pour me répondre.

Tu as bien compris mais je pense qu'Excel a un cas de conscience lorsque je selectionne tout : en même il y a intersection et non intersection, il me renvoie un message d'erreur. Tout le reste de mon programme fonctionne apparemment en normal.
S'il y a besoin, je peux mettre en pièce joint mon exemple.

ThierryR
 
Quel type de message d'erreur.
dans ton code j'ai remplacer l'affichage du userform par un msgbox, et je n'ai pas de message d'erreur.

es-tu sûr que l'erreur vient de l'intersection?
 
Salut " ThierryR ,sousou"
Bonjour le "FORUM"
chez moi ca marche lorsque je selectionne l'ensemble des cellules
le USF apparait pas de probleme
A+++
Jean Marie
 
Le message d'erreur "classique" : Erreur d'exécution 1004, Erreur définie par l'application ou par l'objet.

Effectivement quand je mets un msgbox à la place, il n'y pas de problème.
Mais je ne vois pas où dans ma programmation du userform j'ai commis une erreur. Je vous envoie mon exemple en pièce jointe si vous voulez bien y jeter un coup d'oeil.

Merci

A+

ThierryR
 

Pièces jointes

En question complémentaire, j'ai saisi une ligne. Je désire la modifier en reselectionnant la cellule Dépenses ou Recettes. Pris d'un remords soudain et subit, je ne veux donc plus faire de modifications. Donc je réponds non à la demande "Voulez-vous modifier la ligne ?". Dans l'évènement Userform Initialize, dans le cas VbNo j'ai mis l'instruction Unload Me. Et c'est là que ce situe le problème : il me renvoie un message d'erreur Erreur d'éxécution 91 Variable d'objet ou de bloc non défini.

Si vous avez une piste, je suis preneur.

ThierryR
 
Désolé, mais ton fichier plante excel (97).
Je suis incapable de voir le userform, même dans le VB
Il y a bien espèces, mais il n'est pas visualisable
et l'instruction espèces.show Plante excel (violation)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
405
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
4
Affichages
469
Réponses
16
Affichages
1 K
Réponses
6
Affichages
438
Réponses
4
Affichages
592
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…