la couleur je sais faire mais les charactéres

[pouping]

Bonjour,

J'ai créer des macros pour remplir un tableau de congé, seulement je n'ai réussi a le faire qu'en faisant correspondre des couleurs aux intitulé des boutons.

Serait il possible que soit marqué les intitulés des boutons aux lieu des couleurs et ce dans n'importe quelle cellule sélectionnées?

Merci de votre aide. (Fichier joint)

 

[GPLIONEL]

Re : la couleur je sais faire mais les charactéres

Bonjour pouing,

Si j'ai bien compris ce que tu veux, tu peux rajouter cette ligne dans tes macros :

Selection = "CT" (pour la macro Fermeture CT) etc..

 

[Staple1600]

Re : la couleur je sais faire mais les charactéres

Bonsoir



Un peit code pour récupérer les "captions" des CommandButtons
(enfin ici de toutes les shapes présentes sur la feuille active)
edit j'ai rajouté un if pour ne boucler que sur les boutons

Sub Test()
Dim FORME As String
Dim x As Long
For x = 1 To ActiveSheet.Shapes.Count
FORME = ActiveSheet.Shapes(x).Name
'Ne boucle que sur les "Boutons"
If ActiveSheet.Shapes(x).Type = 8 Then
'affiche la "caption" du bouton en supprimant le ¦ et l'espace
MsgBox _
Right(ActiveSheet.Shapes(FORME).[B]TextFrame.Characters.Text[/B], _
Len(ActiveSheet.Shapes(FORME).TextFrame.Characters.Text) - 2)
End If
Next x

 

[pouping]

Re : la couleur je sais faire mais les charactéres

Merci a tout les deux