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

XL 2019 Code qui ne fonctionne plus

  • Initiateur de la discussion Initiateur de la discussion Caninge
  • 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 !

Caninge

XLDnaute Accro
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
 
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.
 
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).
 
- 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

Discussions similaires

Réponses
9
Affichages
404
Réponses
14
Affichages
330
Réponses
4
Affichages
406
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…