XL 2013 Vba Indenter Interface v4.0a

[Jean BUSSER]

Bonjour.
La démo étant séduisante, j'ai installé cette ressource. Mais dès le lancement d'Excel, le code VBA s'ffiche avec une erreur 1004 :
"Set bar = Application.VBE.CommandBars("Code Window")" "L'accès par programme au projet Visual Basic n'est pas fiable"
Je suis sous Windows 10, Excel 2013.
Que faire ?
Merci.
Jean

 

[wDog66]

Bonjour Jean,

Perso, j'ai laissé tomber et j'ai installé "rubberduck vba" depuis longtemps 😜

rubberduckvba.com

rubberduckvba.com

A+

 

[Jean BUSSER]

Bonjour Jean,

Perso, j'ai laissé tomber et j'ai installé "rubberduck vba" depuis longtemps 😜

rubberduckvba.com

rubberduckvba.com

A+

Bonjour.

Merci.
Je suis allé voir le site, mais tout y est en anglais !
Je ne suis malheureusement pas bilingue.
Et je n'ai pas réussi à comprendre si c'est un produit payant (et combien ?) ou gratuit, ni comment on l'installe.
Ennuyeux pour se faire une opinion.

A+

 

[wDog66]

Bonjour Jean,

Sans être forcément bilingue, vous avez la traduction Google sur Chrome qui peut vous aidez aujourd'hui 🤔
Clic droit sur le côté de la page et -> Traduire en français (simple non)

Sinon, il faut cliquer sur ce bouton

C'est de l'open-source, donc GRATUIT, mais vous pouvez tout comme moi, faire un don (déductible des impôts) 😉

A+

 

[Jean BUSSER]

Bonjour Jean,

Sans être forcément bilingue, vous avez la traduction Google sur Chrome qui peut vous aidez aujourd'hui 🤔
Clic droit sur le côté de la page et -> Traduire en français (simple non)

Sinon, il faut cliquer sur ce bouton
Regarde la pièce jointe 1221827
Regarde la pièce jointe 1221828

C'est de l'open-source, donc GRATUIT, mais vous pouvez tout comme moi, faire un don (déductible des impôts) 😉

A+

Tu es vraiment sympa.
Avec ces tuyaux, je vais pouvoir essayer ce produit, tout seul comme un grand.
Cerise sur le gâteau : je sais enfin comment demander la traduction d'une page par Google.
Un double MERCI, donc.

A+

 

[kiki29]

Salut, pour info, par exemple Anglais,Français : https://translate.google.fr/?sl=en&tl=fr&op=translate

 

[Jean BUSSER]

Salut, pour info : https://translate.google.fr/?sl=en&tl=fr&op=translate

Merci.
JB

 

[Jean BUSSER]

Tu es vraiment sympa.
Avec ces tuyaux, je vais pouvoir essayer ce produit, tout seul comme un grand.
Cerise sur le gâteau : je sais enfin comment demander la traduction d'une page par Google.
Un double MERCI, donc.

A+

Dernier retour : Installé, essayé, ça me semble pas mal du tout.
Encore merci.
JB

 

[Valtrase]

Bonjour a tous,
RubberDuck contient beaucoup de fonctionnalités, il faut prendre le temps de toutes les explorer. Par contre cela prends pas mal de ressources.
Pour ma part je travaille en duo avec Rubberduck et MZ-Tools avec la version payante à vie qui et très bien, et complémentaire au Canard.

je sais enfin comment demander la traduction d'une page par Google.

Je sais que tout le monde n'aime pas mais, Edge fait cela très bien, je dirais même beaucoup mieux que Google. Une demande dès que le site s'affiche.

Bonne découverte de Rubberduck.

 

[patricktoulon]

bonjour

"Set bar = Application.VBE.CommandBars("Code Window")" "L'accès par programme au projet Visual Basic n'est pas fiable"
Je suis sous Windows 10, Excel 2013.
Que faire ?
Merci.

la réponse est pourtant claire (je l'ai mise en rouge )
tu n'a tout simplment pas activé dans les options Excel "accès approuvé au model dobjet vbaprojet

donc pour 2013 cliquer sur :

1. fichier
2. options
3. centre de gestion de la confidencialité
4. paramètres du centre de gestion de confidencialité
5. paramètres des macros
6. et enfin cocher la case à cocher "Accès approuvé au model d'objet du projet VBA"

tu dois arriver ici

 

[wDog66]

Bonjour patricktoulon

bonjour

la réponse est pourtant claire (je l'ai mise en rouge )
tu n'a tout simplment pas activé dans les options Excel "accès approuvé au model dobjet vbaprojet

donc pour 2013 cliquer sur :

1. fichier
2. options
3. centre de gestion de la confidencialité
4. paramètres du centre de gestion de confidencialité
5. paramètres des macros
6. et enfin cocher la case à cocher "Accès approuvé au model d'objet du projet VBA"

tu dois arriver ici
Regarde la pièce jointe 1221849

Désolé, mais NON, la réponse n'est pas claire pour les non initiés 🙄
Tu devrais essayer de te mettre à la place des néophytes de temps à autres 😜🤭

 

[patricktoulon]

re

Bonjour @wDog66
et toi met toi a la place de celui qui vous fourni un gros travail de dev gratos et qui li ça

Perso, j'ai laissé tomber et j'ai installé "rubberduck vba" depuis longtemps 😜

alors que tu n'es jamais venu le voir et lui demander

bien comme ça vous le saurez
si vous faite des commandbars perso ou si vous touchez aux modules (import/export/codage dynamique /etc...)
il vous faut OBLIGATOIREMENT activer l'accès approuvé au modèle d'objet du projet vba

et pour info
rubberduck , Mztool , smartIndenter v4 de 2024, sont à la ramasse en terme d'indentation en cas de codage non orthodoxe
je les ai testé tout les 3

un exemple simplissime
avec l'un des 3 ,essai de transformer ceci
en mode normal

Sub testf()
   'un commentaire :     precision
    For I = 1 To 10: tb(I) = I * 0.055: Next 'un commentaire  :    tout court
   
    For E = 1 To 5:            For a = 1 To 10: tb(I) = I * E / 0.7: Next a
Next

For I = 1 To 10: tb(I) = I * 0.055: Next I

For E = 1 To 5: For a = 1 To 10: tb(I) = I * E / 0.7: Next a: Next E


    For E = 1 To 5: For a = 1 To 10: tb(I) = I * E / 0.7
    Next a
Next

With machin: .valeur = 10: With .Imag.Picture = "tttt": .Imag.Left = 18: End With: End With

With machin: .valeur = 10: With .Imag.Picture = "tttt": .Imag.Left = 18: End With
End With
End Sub

en cela

et en mode scolaire (1er de la classe )

voila ça se passe de commentaire je crois
j'ai livré la 4.0b hier justement avec le protocole de semie decompilation renforcé
Patrick

 

[Dudu2]

Bonjour @patricktoulon ,
Est-ce que ça veut dire que tu as une option pour détricoter les lignes multi-instructions en lignes mono-intruction ?
Perso ça m'intéresse car je n'arrive pas à lire du code avec des lignes multi-instructions. Mes yeux se croisent et mes neurones s’emmêlent 😅.

 

[Dudu2]

il vous faut OBLIGATOIREMENT activer l'accès approuvé au modèle d'objet du projet vba

Ce que tu pourrais faire, c'est vérifier via le VBA si l'accès est approuvé ou pas et lancer l'interface CommandBar si nécessaire pour que l'utilisateur le coche directement.
J'ai ce code dans les cartons (à franciser si besoin).

'--------------------------------------------------------------------------------------
'Returns True if the "Trust Access to the VBA Project Object Model" checkbox is checked
'--------------------------------------------------------------------------------------
Private Function VBATrusted(Optional PromptUser As Boolean = True) As Boolean
    Dim oWshell As Object
    Dim Trusted As Boolean
    Dim BN As Integer
 
    'Check access to VBA Project
    Trusted = CheckAccessVBOM
 
    'Access denied
    If Not Trusted Then
        'Prompt the User to change the Macros Security
        If PromptUser Then
            BN = MsgBox("The current Macros Security does not allow access to VBA code." & vbCrLf & _
                        "You will be prompted to change this option if you agree to do so." & vbCrLf & vbCrLf & _
                        "To allow access to VBA code, check the checkbox ""Trust Access to the VBA Project Object Model""", _
                        vbOKCancel + vbInformation)
            If BN = vbCancel Then Exit Function
        
            Application.CommandBars.ExecuteMso "MacroSecurity"
        
            'Check access to VBA Project
            Trusted = CheckAccessVBOM
        End If
    End If
 
    'Return value
    VBATrusted = Trusted
    Exit Function
End Function

'--------------------------------------------------
'Check Trust Access to the VBA Project Object Model
'--------------------------------------------------
Private Function CheckAccessVBOM() As Boolean
    Dim AccessVBOM As Integer
    Dim oWshell As Object
   
    Set oWshell = CreateObject("WScript.Shell")
    AccessVBOM = oWshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM")
    CheckAccessVBOM = (AccessVBOM = 1)
    Set oWshell = Nothing
End Function

 

[patricktoulon]

Bonjour @Dudu2 merci
mais j'ai déjà ma méthode pour activer l’accès par vba
si je ne le fait pas c'est par déontologie
cela doit être de la responsabilité de l'utilisateur
j'ai expliqué comment il fallait faire sur 2013
un peu d'effort n'a jamais fait de mal a personne