Discussion :

[marot_r]

Bonjour à tous.

Lorsqu'on utilise l'assistant de création de formulaire en mode feuille de données de Access 2010 (cela doit être vrai pour 2007 et 2013 mais je n'ai pas vérifié)
les noms des étiquettes sont ÉtiquetteX ou X est un numéro séquentiel.

Parfois il est pratique que le nom de de l'étiquette indique le contrôle auquel elle est attachée.

Ici du code qui fait cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Compare Database
Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Test_ModifNomLabel()
    Call ModifNomLabel("NomVotreFormulaire")
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub ModifNomLabel(prmNomForm As String)
    DoCmd.OpenForm prmNomForm, acDesign
 
    Dim f As Form: Set f = Forms(prmNomForm)
 
    Dim l As Label
    Dim c As Control: For Each c In f.Controls
 
        If c.ControlType = acLabel Then
 
            Set l = c
 
            'Debug.Print l.Name, l.Parent.Name
 
            If l.Parent.Name <> f.Name Then
                l.Name = "Etiquette_" & l.Parent.Name 'Ici le nouveau nom
            End If
 
        End If
 
    Next c
 
    DoCmd.Close acForm, prmNomForm, acSaveYes
 
    Set f = Nothing
End Sub

A+

[Paraffine]

Merci marot_r, quand on a besoin de maintenir une base où tous les contrôles portent des noms non significatifs, on s'arrache les cheveux.
Fort utile notamment quand il faut coder des libellés variables pour les étiquettes.

J'aimerais faire la même chose sur des contrôles (texte, listes...) associés à des données mais cela me semble sensiblement plus compliqué. Le renommage en soi devrait aller, en attribuant un nom significatif selon le type de contrôle et la source de données (normalement dans mon contexte les tables ont des noms de colonne "propres", pas d'accents ni de blancs). Mais l’intérêt serait alors de renommer, au moins dans le code du formulaire, les références au contrôle, et les procédures qui lui sont associées. Peut-on le faire avec VBA ? De plus, dans plusieurs occasions où j'ai fait le renommage "à la main", les propriétés de type "événement" du contrôle étaient vides après mon renommage (renommage du contrôle et des sub, j'entends) ; il suffisait de re-cliquer sur la propriété pour rétablir la liaison. Mais j'ignore s'il s'agissait seulement d'un problème IHM ou si le lien était vraiment perdu, et si dans ce dernier cas il existait une méthode VBA pour le rétablir.

Cordialement,
Paraffine.

[marot_r]

Bonjour.

Oui c'est faisable en VBA mais c'est beaucoup plus complexe car on ne peut pas se baser sur une substitution au cas où 2 contrôles aurait des noms semblables.
On peut manipuler le VBA avec du VBA et il va falloir faire un mini interpréteur de texte pour découper les mots comme il faut.
Ex : dans btnXYZ_Click il faut identifier btnXYZ et ne pas le confondre avec btnXYZ_W.
Et il ne faut pas oublier que les noms des contrôles dans les formulaires peuvent aussi servir de paramètre et dans des champs calculés à des requêtes et à dans champs calculés dans d'autres formulaires ou rapports.
Bref il y a plein de cas à considérer.

Tu as un exemple de code pour changer un module ici :

Replace Module Text in MS Access using VBA
https://stackoverflow.com/questions/...cess-using-vba

Personnellement je l'ai toujours fait à la main quand j'en ai eu besoin ou j'ai vécu avec.

A+