XL 2019 Code qui ne fonctionne plus

[Caninge]

Bonsoir tout le monde,

depuis que j'ai installé Excel 2019, ce code qui va à la dernière ligne et ouvre un calendrier ne fonctionne plus !!!
Enfin du moins c'est ce que je pense. Je n'en suis pas certain. Merci de bien vouloir m'aider !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B6:B9000")) Is Nothing Then UserForm1.Show
End Sub

 

[danielco]

Non, tu postes un code et tu dis qu'il ne fonctionne pas. Or ben évidemment, il fonctionne. C'est pourquoi, tu devrais poster ton vrai classeur.

Daniel

 

[Caninge]

Non je ne peux pas ce sont mes comptes personnels. Et depuis 2008,il y 7000 lignes. mais si tu me donnes le code pour faire fonctionner mon fichier, je pense que je l'adapterai à celui de mes comptes.

 

[danielco]

Le code que tu as posté dans ton premier message fonctionne. Quel est le libellé et le numéro de l'erreur ?

Daniel

 

[Caninge]

Erreur d’exécution 424. C'est ça que tu veux

 

[danielco]

Oui, avec le texte du message.

Daniel

 

[danielco]

Pour aller plus loin, il me faut le classeur, même sans données.

Daniel

 

[Caninge]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B6:B9000")) Is Nothing Then UserForm1.Show
End Sub

ca bug à USERFORM1.SHOW

je vais manger à plus !

 

[danielco]

Erreur d’exécution 424. C'est ça que tu veux

Oui, avec le texte du message.
Pour aller plus loin, il me faut le classeur, même sans données.

Daniel

 

[Caninge]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B6:B9000")) Is Nothing Then UserForm1.Show
End Sub
Ça bug sur UserForm1.Show

Bonne nuit

 

[Caninge]

Je n'avais pas que tu avais répondu.
Je ne sais pas ce que tu veux désolé.

Private Sub Workbook_Open()

End Sub

 

[danielco]

Je ne sais pas ce que tu veux désolé.

Le classeur. Sans donnée au besoin.

Daniel

 

[jmfmarques]

Re
Il faudrait surtout (relire mes messages plus haut) :
- un inventaire complet des objets (contrôles activex) que contient le Userform concerné
- la précision , non encore donnée clairement, du nombre de bits (32 ou 64) de la version office utilisée.
Et ce ne saurait en tout état de cause être un classeur qui serait joint ici qui permettrait de répondre à la seconde de ces deux questions. 😉
(on en est maintenant au 21ème message et cela pourrait durer longtemps encore dans de telles conditions).

 

[Caninge]

Bonjour,

vous êtes bien sympas de vouloir m'aider mais je ne comprends ce que vous me demandez. Je ne vais pas continuer de vous ennuyer avec une chose qui n'a pas trop d'importance. En ce moment je pense qu'il y a des choses plus grave non ?