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

 

[Caninge]

Ah ! j'ai oublié c'est ici que ça bug : UserForm1.Show

 

[Dudu2]

Bonjour,
C'est la galère des UserForm.Show.
Car ça plante quelque part dans le Private Sub UserForm_Initialize().
Si tu ne trouves pas, il faut tout sortir du Private Sub UserForm_Initialize() et le placer dans un module en qualifiant complètement les objets du UserForm.

 

[Hasco]

Bonjour,

Lancez votre userform en pas à pas (F8) afin de localiser réellement la ligne qui coince et pourquoi.

Cordialement

 

[jmfmarques]

Bonjour
Si ta nouvelle version Office est en 64 bits, elle n'accepte tout simplement pas le contrôle activex (CON9U pour 32 bits) que tu utilise comme objet "calendrier".
Et le plantage intervient alors d'entrèe de jeu (au chargement même de ton userform).

 

[Caninge]

Bonjour à tous,

Merci pour vos interventions. Je suis loin de tout comprendre...Je pense que c'est le calendrier qui n'est plus bon. Il faudrait peut-être mettre une version 2019

 

[jmfmarques]

Il faudrait peut-être mettre une version 2019

tu veux probablement dire "une version en 64 bits" (je ne crois pas qu'elle existe).

 

[Caninge]

non je ne vais pas changer je viens d'acheter cette version.

 

[jmfmarques]

non je ne vais pas changer je viens d'acheter cette version.

Je comprends mal ce que cette phrase vient faire ici. Personne ne t'a invité à changer de version Office.

 

[patricktoulon]

bonjour
est un control calendrier dans le userform ou l'userform un calendrier perso

 

[Caninge]

Bonjour,

je ne comprend pas trop ce que vous me dites. Pour moi c'est une langue étrangère lol

 

[patricktoulon]

re
a ben si tu en comprends pas un minimum il va être difficile de t'aider
ma question est pourtant simple
peut être un exemple de fichier anonymisé nous aiderait a comprendre ton problème

 

[Caninge]

Oui c'est mieux. Je vais vous envoyer un fichier.

 

[danielco]

Bonjour,

Il s'agit d'un classeur .xlsx. Il ne contient ni userform, ni code.

Cordialement.

Daniel

 

[Caninge]

Bonsoir,

C'est Excel 2019. mais oui forcément je n'ai pas fait de code Daniel, c'est justement ce que je demande de me faire.

Merci