XL 2016 VBA - Évènement TextBox_Enter() non géré en module de Classe

[Dudu2]

Bonjour,
Alors l'évènement _Enter() n'est pas géré en Classe ? Une solution ?

 

[patricktoulon]

punaise!!
donne moi le chemin complet de ton dossier designer

 

[patricktoulon]

re
tu a bien respecté ça?

1°placer la dll MSADDNDR.DLL dans LE DOSSIER "C:\Program Files (x86)\Common Files\DESIGNER"
2° executer le reg dll.cmd
3° installez smart indenter

pour l'executer tu clique deux fois dessus comme n'importe quel raccourci
si ca ne marche pas execute le en mode administrateur

 

[patricktoulon]

re
punaise par ce que tu es le 11 ou 12 eme qui me le demande depuis hier

 

[dysorthographie]

Bonjour,

Télécharger Smart Indenter

Télécharger Smart Indenter et les meilleurs outils du Club des développeurs et IT Pro

excel.developpez.com

J'ai jamais testé j'utilise la touche tabulation
Mais j'avoue que sur vs2022 c'est cool

 

[dysorthographie]

smart Indenter refermer automatiquement les blocs au retour chariot comme vs ou pas?

 

[Dudu2]

Également, dans mon code j'utilise la touche tabulation (4 caractères d'espacement) et je n'ai que très rarement le besoin d'indenter. C'est surtout quand on récupère le code de quelqu'un d'autre qui n'a pas le même nombre de caractères d'indentation ou qui n'en a pas du tout.

Edit: Ou encore ceux qui mettent les instructions de fermeture de bloc (End If, End Sub, Next, ...) au même niveau que le bloc, ce qui peut se concevoir théoriquement mais qui n'est pas du tout visuel.
Comme par exemple cet Indenter OnLine: (ou un XLDnaute bien connu !)

Sub a()
    Dim i As Integer
    For i = 1 To 10
        MsgBox i
        Next i
    End Sub

Ou encore les originaux qui comme cet Indenter Online décident que le "As" doit être à des kilomètres du nom de la variable: (ok il y a un paramètre mais il faut le décocher !)

Sub a()
    Dim i           As Integer
    For i = 1 To 10
        MsgBox i
    Next i
End Sub

Ou encore celui-là qui t'oblige à faire le ménage avant de coller ton code pour indentation !

Sub a()
    Dim i As Integer
    For i = 1 To 10
        MsgBox i
    Next i
End Sub

@ChTi160, essaie avec des doubles-quotes sur toute la référence.

 

[Dudu2]

Ça marche ça ?
Je pensais plutôt à regsvr32 "C:\Program Files (x86)\Common Files\DESIGNER\MSADDNDR.DLL''

 

[dysorthographie]

Dans notpad++ tu écris

regsvr32 %1
Pause

Que tu enregistre sous reg.bat
Tu ouvres un explorateur windows via le menu démarrer/explorateur avec click droit en tan qu'admin. Tu fais un glisser déplacer de ta DLL sur le fichier reg.Bat

 

[Dudu2]

Si tu n'y arrives pas il y a aussi Rubberduck.
Mais qui gave son monde avec l'affichage de sa fenêtre au chargement de l'AddIn.

 

[patricktoulon]

re
sérieux vous y arrivez pas ?
Robert le lien que tu donne c'est ce que j'ai mis dans le pack la dernière version qui est la 3.5
et jean-marie qui trouve pas le cmd
et ben mon ami ....

 

[ChTi160]

Re
Et ben mon ami !
Ça pourra sûrement servir à quelqu'un ! Mdr
Cordialement
Jean marie

 

[patricktoulon]

re

 

[Dudu2]

Avec ça les gars si vous n'y arrivez pas, allez cultiver des tomates

!

Sinon @patricktoulon, as-tu pu tirer quelque chose du code fourni par @fanch55 pour les Enter() et Exit () ?

 

[patricktoulon]

re
oui j'ai pigé le truc bien sur
j'en ai même trouvé un autre avec deux petite classe de rien du tout sur getfocus et lostfocus qui ale même effet en fait
je cherche juste à corriger le défaut quand on sort du multipage qui fait perdre le bon index sur le code qu'a trouvé fanch55
j'ai deja trouver l'astuce pour ne pas perdre le vbattribute

 

[Dudu2]

C'est quoi un "vbattribute" ?