Stéphane

Hervé

XLDnaute Barbatruc

• 11 Avril 2006

• #2

Bonjour Taille case à cocher checkbox

Ca à pas du etre facile tout les jours pour toi avec un nom pareil


BOn, euh... je crois que ce n'est pas possible stéphane.

salut

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 11 Avril 2006

• #3

quel humour, j'étais en train de m'endormir devant mon écran :side: merci hervé, tu m'as reveillé avec le sourire

 

Vote positif 0 Vote négatif

S

Stéphane

Guest

• 11 Avril 2006

• #4

LOL !!!!

donc vous ne pouvez vraiment pas m aider ???

une autre solution ????

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Avril 2006

• #5

Bonjour

Dis Hervé ce n'est pas beau d'être jaloux. Ce n'est pas parce qu'on a un prénom commun qu'il faut envier les copains :woohoo: :lol:

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 11 Avril 2006

• #6

re stéphane, ccpapy, pascal

désolé ccpapy, loin de moi l'idée de te réveiller en pleine sieste

pascal, LOOOOL

stéphane, une solution à 2 sous.

créer un rectangle (barre d'outils dessin), et lui affecter ce code :

Sub Macro1()
With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
        If .Text = '' Then
                .Text = 'X'
        Else
                .Text = ''
        End If
End With

End Sub

Cliquez pour agrandir...

exemple en piece jointe.

salut [file name=shapescaseacocher.zip size=7163]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/shapescaseacocher.zip[/file]

 

Pièces jointes

• shapescaseacocher.zip

  7 KB · Affichages: 24

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 11 Avril 2006

• #7

re tout le monde

pareil, mais mieux

Sub Macro1()
With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
        .Text = IIf(.Text = '', 'X', '')
End With
End Sub

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif