Lexique VBA à enrichir

Bonsoir au Forum,

mise à jour du 23/02/08

Petit-à-petit, je note des morceaux de code VBA,

Je pense que çà peut servir au Forum !

Aidez-moi à enrichir ce début de petit Lexique, en joingnant votre fichier complété

A nous tous, on devrait faire quelque-chose de pas mal !!!!

Amicalement votre.

Claude

Bonjour à tous,

Nouveau look sur cette version.

On peut consulter le lexique à partir d'un autre fichier et récupérer le code VBA

directement dans la programmation en cours.

C'est l'outil que je cherchais vainement à mes débuts (pas si loin) !

https://www.excel-pratique.com/~files/doc/lkHeFLexique_VBA.xls

Amicalement

Claude.

194journal-final.zip (46.82 Ko)

Bonjour au forum,

Nouvelle fonction sur cette version.

J'ai ajouté : Traduction des Fonctions Excel ("Français > Anglais" ou "Anglais > Français")

Question récurrente sur le forum .

https://www.excel-pratique.com/~files/doc/Lexique_VBA_2.zip

Cordialement

Claude.

bonsoir à tous,

Mise à jour, la version2 avait un petit bug ! en mode "Auto"

N'hésitez pas à me signaler les bugs ou vos suggestions.

https://www.excel-pratique.com/~files/doc/TqXrKLexique_VBA_3.zip

Amicalement votre

Claude.

Excellent ! Il y a qques petits bugs, mais l'appli est pratique, conviviale, simple à utiliser ! Bref, je la mets en mémoire. Merci

Bonjour à tous,

Salut Claude,

Merci à toi et à "la bande" pour cet outil très pratique (au sujet des codes VBA). Juste une petite question pratique : comment doit-on faire pour changer de mode par ex passer de manuel à auto ?

Bertrand,

Tout simplement, dans la barre d'outil perso. La 1ère liste (à gauche) t'offre 3 possibilités :Manuel, Auto et Fonctions.

En cliquant sur "Auto" , tu ne vois pas de différence, mais le programme copiera la sélection et reviendra dans la page VBA en cours, il reste à faire "coller" dans le module.

Tandis qu'en mode "Manuel" c'est juste une consultation.

PS: pas de messages perso., il faut enrichir et faire vivre ce fil !

Dire qu'il y a des bugs, c'est bien, signaler lesquels serait encore mieux pour y remédier.

Merci de participer.

Amicalement

Claude.

Ok, cest vu. Cela va vraiment m'aider dans la réalisation des macros.

Merci encore.

Bertrand

Bonjour,

Désolé Claude pour le message perso, c'était tout simplement un encouragement et mon enthousiasme a débordé ! Je suis débutant comme vus l'avez été me semble-t-il, au regard de ce que j'ai pu voir en parcourant le forum. Encore une fois, mile excuses !

Voilà, ça beug chez moi à cette ligne :

Application.VBE.MainWindow.Visible = True '****OK**** revient éditor VBA

Private Sub choix()  '''LISTE DEROULANTE
    Dim Wbk$
    Wbk = ActiveWorkbook.Name
    If Range("base!e1") = "Fonctions" Then Exit Sub
        Application.ScreenUpdating = False
            Workbooks("Lexique_VBA_3.xls").Activate 'fichier de base
                Dim MonBtn As CommandBarComboBox, Valeur As String
                    Set MonBtn = CommandBars("VBA").FindControl(, , "Liste")
                              Range("base!b3") = MonBtn.Text ''action
       Call cherche
                MonBtn.ListIndex = 1  ''revient au 1er de la liste
            If Range("base!e1") = "Auto" Then
                Workbooks(Wbk).Activate
                Application.VBE.MainWindow.Visible = True '****OK**** revient éditor VBA
                Else: Sheets("VBA").Select
            End If
        Set MonBtn = Nothing
End Sub

Une petite contribution de débutant pour améliorer la mise page et aller plus vite à remplir le lexique. Je la livre telle qu'elle car elle doit pouvoir être améliorée, notamment en rapidité.

Sub MiseEnForme()

    ActiveCell.Select 'selection de la cellule où on colle le titre de la macro ou procédure
    R = ActiveCell.Address
    ActiveCell.Offset(0, 2).Select
    ActiveCell.Select
    Range(Selection, Selection.End(xlDown)).Select
    s = Selection.Count

    Range(R).Select

    If s > 1000 Then
    Range(R).Offset(0, -1).Select
    Selection.Interior.ColorIndex = 38
    Else
    Selection.Copy
    For z = 1 To s - 1
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Next
    Range(R).Offset(0, -1).Select
    ActiveCell.Value = 1
    Selection.Interior.ColorIndex = 38
    For y = 1 To s - 1
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
    Selection.Interior.ColorIndex = 38
    Next
    ActiveCell.Offset(1, 1).Select

    End If
    End Sub

Cordialement

Désolé si cela vient de moi, mais au fur et à mesure que je complète la base, celle_ci ne prend pas en compte après tri les derniers ajouts, du fait me semble-t-il! que le nom "base" ne s'agrandit pas avec le texte ajouté. Olalala, j'ai du mal à exprimer clairement mes idées. La sélection "Base" s'arrête toujours à la ligne 191 chez moi. Est-ce normal ? ou bien faudrait-il prévoir un réajustement de cette sélection, voire d'autres, notamment dans la copie de la formule concernant les colonnes "E" et "F".

Cordialement

Cyrille

Bonjour à tous,

Cyrille, çà bouge chez toi !!

tu as déjà ajouter un cinquantaine de lignes ? très bien.

J'ai vu pour incrémenter la base, il faut redéfinir les noms :"base" et "criteres" en partant de la colonne "a". et profiter du tri pour incrémenter.

Je te remercie de participer.

Ce qu'on peut faire Cyrille : essaye de retrouver les lignes que tu as ajouté , mets les en couleur et envoie-moi ton fichier, avec ta suggestion de saisie et ta macro en place,

Je ferais un tri et remettrais une nouvelle version sur le forum en tenant compte des bugs.

Je ne voudrais pas tombé dans la lourdeur, et ne mettre que des codes essentiels, tu comprends.

à bientôt....Claude

PS:pour ne pas prêter à confusion, envoie ton fichier en MP.

Génial ton fichier Claude !! Félicitations !

Bonjour à tous,

Je continu à enrichir !

  • Ajout nouveaux codes simplifié.
  • Base, liste, noms et formules s' incrémentent automatiquement.

- Nouvelle feuille "nouveau_code" pour ceux qui voudront participer, ils pourront

m'envoyer par MP une copie de cette feuiile, afin de mettre à jour la future version du Forum.

https://www.excel-pratique.com/~files/doc/Lexique_VBA_V5.zip

PS:

Il semble que sur certaines versions (Vista ?) il y aurait un bogue en mode "Auto"

Veuillez me le confirmer.

amicalement

Claude.

Salut tout le monde

Génial ce fichier voila vraiment quelque chose de très très utile

Petite suggestion (pour les admin) serait-il possible de l'intégrer directement au site puisque il y a des leçons, astuces etc.. proposées donc on pourrait imaginer une partie d'aide vba avec des listes dans ce genre ou des "leçons" pour débuter.

C'est juste une suggestion mais je pense que ce serait super pratique

en tout cas c'est génial

ciao

Bonjour,

Je ne suis pas sur que ce soit la dernière version, ou peut-être existe t-il une version plus à jour, ou améliorée, sur le forum ou le site.

Si oui, pouvez vous me l'indiquer?

En tout cas je garde ce fichier sous le coude, je suis sur qu'il pourra me servir !

Rechercher des sujets similaires à "lexique vba enrichir"