Proc évènementielle

[ThierryR]

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

 

[sousou]

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 ?

 

[ThierryR]

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

 

[sousou]

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?

 

[le CH'TI160]

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

 

[ThierryR]

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

 

[ThierryR]

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

 

[sousou]

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)

 

[ThierryR]

Merci beaucoup sousou.

(C'est fait sous Excel 2003 et Windows XP Pro)