Discussion :

[retraite83]

Bonjour,

je voudrai modifier dynamiquement par une macro le libellé affiché sur un bouton de formulaire en fonction d'une valeur (identifiant de la personne qui utilise) au moment de l'affichage de la feuille
Le bouton pointe sur la même macro mais le traitement est différent suivant les autorisations.
Je voudrai mettre soit "Transfert" soit "Récupération"

Si ce n'est pas possible je peux toujours créer 2 boutons dans la feuille Excel et supprimer dans la macro qui affiche la feuille celui qui ne correspond pas à la valeur, mais je trouve plus propre de n'avoir qu'un bouton.

merci si vous avez une solution

[Theze]

Bonjour,

Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Activate()
 
    Dim S As Shape
 
    Set S = ActiveSheet.Shapes("Bouton 1")
    S.TextFrame.Characters.Text = Environ("UserName")
 
End Sub

[retraite83]

bonjour,

j'ai testé :

Code :

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

1
2
3
4
5
 
Dim S As Shape    
 
Set S = Sheets("Modele").Shapes("Parchemin : horizontal 1") 
S.TextFrame.Characters.Text = Environ("Récupération des données")

Le texte d'origine n'est pas modifié sur le bouton "Parchemin : horizontal 1" de la feuille "Modele"

[Theze]

Bonjour,

Environ() est une fonction qui attend soit un argument de type String soit un argument de type Integer et retourne une chaîne dont voici un extrait de l'aide :

Si l'argument envstring est introuvable dans la table d'environnement, une chaîne de longueur nulle ("") est renvoyée. Dans le cas contraire, Environ renvoie le texte associé à l'argument envstring, à savoir le texte de la table d'environnement suivant le signe égal (=) pour cette variable d'environnement.

donc quand dans cette ligne de code :

Code :

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

1
2
 
S.TextFrame.Characters.Text = Environ("UserName")

j'indique en argument "UserName", ce n'est pas un hasard, c'est pour retourner le nom de l'utilisateur car ta question était :

en fonction d'une valeur (identifiant de la personne qui utilise)

avec un argument de ce type :

Code :

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

1
2
 
Environ("Récupération des données")

la valeur retournée par la fonction sera "" (voir la partie mise en gras de l'extrait d'aide !
Si tu veux qu'il y ai juste marqué "Récupération des données" alors c'est :

Code :

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

1
2
 
S.TextFrame.Characters.Text = "Récupération des données"