XL 2019 Code qui ne fonctionne plus

D

danielco

XLDnaute Accro

• 27 Avril 2020

• #16

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

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 27 Avril 2020

• #17

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.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 27 Avril 2020

• #18

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

Daniel

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 27 Avril 2020

• #19

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 27 Avril 2020

• #20

Oui, avec le texte du message.

Daniel

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 27 Avril 2020

• #21

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

Daniel

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 27 Avril 2020

• #22

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 !

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 27 Avril 2020

• #23

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

Cliquez pour agrandir...

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

Daniel

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 27 Avril 2020

• #24

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

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 27 Avril 2020

• #25

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 28 Avril 2020

• #26

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

Cliquez pour agrandir...

Le classeur. Sans donnée au besoin.

Daniel

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 28 Avril 2020

• #27

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

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 28 Avril 2020

• #28

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 ?

 

Vote positif 0 Vote négatif