Taille des case à cocher

bonjour à tous

je souhaiterais augmenter la taille de mes cases à cocher de mon document (en pièce jointe).

je n'arrive qu'à augmenter le texte et non la petite case à cocher.

avez vous une solution?

merci pour votre aide, bonne journée

virginie

Bonjour Trieux

A ma connaissance, ce n'est pas possible, ce sont des composants Windows.

En revanche tu peux contourner le problème avec des zones de texte et du VBA

A+

ah zut

comment fait-on avec la zone de texte et VBA? j’ai très peu de connaissance en VBA

Re,

Voici ton fichier avec les premières Zone de Texte, à toi de faire le reste

Tu dupliques les Zones de texte qui servent de Checkbox et celle pour le texte

Ensuite tu sélectionnes ta Zone de texte Checkbox et dans la zone de nom, tu lui donnes un nom unique "ZT_Checkbox#"

ou # représente le numéro

Chaque Zone de texte sont liées à la macro

Sub CheckBoxClic()
  Dim ShpName As String, Shp As Shape
  ' Définir l'objet cliqué
  ShpName = Application.Caller
  Set Shp = ActiveSheet.Shapes(ShpName)
  If Shp.TextFrame2.TextRange.Characters.Text = "" Then
    Shp.TextFrame2.TextRange.Characters.Text = "X"
  Else
    Shp.TextFrame2.TextRange.Characters.Text = ""
  End If
End Sub

Qui mets une croix ou l'enlève à chaque clic

Voili voilà

merci par contre j'ai un problème car il ne veut rien faire sur mon ordi

Re,

Et si tu cliques sur débogage, qu'elle ligne est en surbrillance ?

A+

Sub CheckBoxClic()

Dim ShpName As String, Shp As Shape

' Définir l'objet cliqué

ShpName = Application.Caller

Set Shp = ActiveSheet.Shapes(ShpName)

If Shp.TextFrame2.TextRange.Characters.Text = "" Then

Shp.TextFrame2.TextRange.Characters.Text = "X"

Else

Shp.TextFrame2.TextRange.Characters.Text = ""

End If

End Sub

Re,

Au moment de l'erreur, quand tu entre dans le mode débogage

Si tu affiches ta fenêtre d'exécution (CTRL+G)

Et que tu tapes : debug.print ShpName

Qu'obtiens-tu ?

A+

si j'ai bien fait la manip, ceci

ZT_Checkbox1

Re,

Essaye de remplacer

ActiveSheet

par

ActiveWorksheet

A+

Re

cela fonctionne merci

par contre peux tu m'expliquer en détail comment je fais pour reproduire les cases

j'ai fais un copier coller d'une case mais cela ne fonctionne pas cela enlève la croix de la première case copiée

Tu dupliques les Zones de texte qui servent de Checkbox et celle pour le texte ce sont lesquelles dans la feuille?

Ensuite tu sélectionnes ta Zone de texte Checkbox où est t-elle?et dans la zone de nom, tu lui donnes un nom unique "ZT_Checkbox#"

ou # représente le numéro

Chaque Zone de texte sont liées à la macro

Code: Tout sélectionner

Sub CheckBoxClic()

Dim ShpName As String, Shp As Shape

' Définir l'objet cliqué

ShpName = Application.Caller

Set Shp = ActiveSheet.Shapes(ShpName)

If Shp.TextFrame2.TextRange.Characters.Text = "" Then

Shp.TextFrame2.TextRange.Characters.Text = "X"

Else

Shp.TextFrame2.TextRange.Characters.Text = ""

End If

End Sub

désolée je suis vraiment novice

virginie

Re,

trieux a écrit :

par contre peux tu m'expliquer en détail comment je fais pour reproduire les cases

j'ai fais un copier coller d'une case mais cela ne fonctionne pas cela enlève la croix de la première case copiée

C'est normal au départ

trieux a écrit :

Tu dupliques les Zones de texte qui servent de Checkbox et celle pour le texte ce sont lesquelles dans la feuille?

Celles qui servent de CheckBox sont nommées "ZT_Checkbox#" et lorsques tu cliques dessus un X se met ou s'enlève

1) Tu fais un clic droit sur ta zone de texte (checkbox) pour la sélectionner

2) En haut d'Excel tu as une zone qui te permet de définir des noms directement, c'est là que tu doit saisir ou copier/coller le nom en changeant le numéro du pseudo checkbox

J'espère que ces explications te suffiront

A+

OUIII super cela fonctionne

merci pour ton temps, tes explications (désolée de ne pas percuter dès le départ )

tu m'a été d'une très grande aide merci encore

bonne fin de journée

virginie

bonjour BrunoM45

j'ai voulu copier mes cases sur un autre fichier excel, cela ne marche pas cela me ré ouvre le premier fichier excel. j'ai essayé de comprendre la démarche en créant un module avec les formules que toi

comment je peux créer la même chose sur l'autre dossier?

merci pour ton aide à nouveau

virginie

Bonjour Virginie

1) il faut dupliquer le module dans le nouveau classeur par un clic/déplacer vers

2) il faut affecter les pseudos checkbox à la macro du nouveau module

Clic droit -> affecter une macro -> CheckBoxClic

Mais surtout pas à la macro de l'autre classeur

Trieux_Classeur1.xlsm!CheckBoxClic

A+

Re bonjour

merci beaucoup en fait c'était très simple je me suis compliqué la tache

merci pour ton aide

bonne journée

virginie