la couleur je sais faire mais les charactéres

pouping · 29 Janvier 2008

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 · 29 Janvier 2008

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 · 29 Janvier 2008

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

Code:

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 · 29 Janvier 2008

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

Merci a tout les deux

la couleur je sais faire mais les charactéres

pouping

XLDnaute Nouveau

Pièces jointes

GPLIONEL

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

pouping

XLDnaute Nouveau

Discussions similaires