Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Centrer case à cocher

Centrer case à cocher

7 réponses
Avatar
clotilde athenour
Comment peut-on centrer une case à cocher dans une cellule d'excel ?

MERCI !!
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Bonsoir Clotilde,

En supposant que ta case à cocher se nomme CheckBox1,
tu pourrais essayer ceci. Tu sélectionnes une cellule et tu
appelles cette macro :

Sub Centrer_Image()
Set s = ActiveSheet.Shapes("CheckBox1")
Set c = ActiveCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce que ça te convient ?

Serge



"clotilde athenour" a écrit dans le message de
news: 40b4e6d6$0$21556$
Comment peut-on centrer une case à cocher dans une cellule d'excel ?

MERCI !!




Avatar
clotilde athenour
Merci de ton aide mais la case à cocher dont j'ai besoin vient de la barre
d'outils formulaire et non "boites à outils controle".
Je n'arrive donc pas appliquer ton exemple

MERCI

"garnote" a écrit dans le message de news:
hd6tc.17633$
Bonsoir Clotilde,

En supposant que ta case à cocher se nomme CheckBox1,
tu pourrais essayer ceci. Tu sélectionnes une cellule et tu
appelles cette macro :

Sub Centrer_Image()
Set s = ActiveSheet.Shapes("CheckBox1")
Set c = ActiveCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce que ça te convient ?

Serge



"clotilde athenour" a écrit dans le message de
news: 40b4e6d6$0$21556$
Comment peut-on centrer une case à cocher dans une cellule d'excel ?

MERCI !!








Avatar
garnote
Alors dans ce cas, assure-toi que ta case à cocher
est à l'intérieur d'une cellule. Sélectionne alors la
case à cocher et appelle cette macro :

Sub Centrer_Image()
Set s = Selection
Set c = s.TopLeftCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce mieux ainsi ?

Serge




"clotilde athenour" a écrit dans le message de
news: 40b4f80c$0$21559$
Merci de ton aide mais la case à cocher dont j'ai besoin vient de la barre
d'outils formulaire et non "boites à outils controle".
Je n'arrive donc pas appliquer ton exemple

MERCI

"garnote" a écrit dans le message de news:
hd6tc.17633$
Bonsoir Clotilde,

En supposant que ta case à cocher se nomme CheckBox1,
tu pourrais essayer ceci. Tu sélectionnes une cellule et tu
appelles cette macro :

Sub Centrer_Image()
Set s = ActiveSheet.Shapes("CheckBox1")
Set c = ActiveCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce que ça te convient ?

Serge



"clotilde athenour" a écrit dans le message
de


news: 40b4e6d6$0$21556$
Comment peut-on centrer une case à cocher dans une cellule d'excel ?

MERCI !!












Avatar
garnote
Pour être plus précis, la macro centre
l'objet sélectionné dans la cellule contenant
le coin supérieur gauche de la sélection.

Serge


"garnote" a écrit dans le message de news:
MR6tc.17639$
Alors dans ce cas, assure-toi que ta case à cocher
est à l'intérieur d'une cellule. Sélectionne alors la
case à cocher et appelle cette macro :

Sub Centrer_Image()
Set s = Selection
Set c = s.TopLeftCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce mieux ainsi ?

Serge




"clotilde athenour" a écrit dans le message de
news: 40b4f80c$0$21559$
Merci de ton aide mais la case à cocher dont j'ai besoin vient de la
barre


d'outils formulaire et non "boites à outils controle".
Je n'arrive donc pas appliquer ton exemple

MERCI

"garnote" a écrit dans le message de news:
hd6tc.17633$
Bonsoir Clotilde,

En supposant que ta case à cocher se nomme CheckBox1,
tu pourrais essayer ceci. Tu sélectionnes une cellule et tu
appelles cette macro :

Sub Centrer_Image()
Set s = ActiveSheet.Shapes("CheckBox1")
Set c = ActiveCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce que ça te convient ?

Serge



"clotilde athenour" a écrit dans le
message



de
news: 40b4e6d6$0$21556$
Comment peut-on centrer une case à cocher dans une cellule d'excel ?

MERCI !!
















Avatar
clotilde athenour
Encore merci mais je n'y arrive pas.
Je cherche plutot à faire de la mise en forme qu'une action.
En fait, je voudrais centrer ma case à cocher comme lorsque l'on centre du
texte dans une cellule.

"garnote" a écrit dans le message de news:
MR6tc.17639$
Alors dans ce cas, assure-toi que ta case à cocher
est à l'intérieur d'une cellule. Sélectionne alors la
case à cocher et appelle cette macro :

Sub Centrer_Image()
Set s = Selection
Set c = s.TopLeftCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce mieux ainsi ?

Serge




"clotilde athenour" a écrit dans le message de
news: 40b4f80c$0$21559$
Merci de ton aide mais la case à cocher dont j'ai besoin vient de la
barre


d'outils formulaire et non "boites à outils controle".
Je n'arrive donc pas appliquer ton exemple

MERCI

"garnote" a écrit dans le message de news:
hd6tc.17633$
Bonsoir Clotilde,

En supposant que ta case à cocher se nomme CheckBox1,
tu pourrais essayer ceci. Tu sélectionnes une cellule et tu
appelles cette macro :

Sub Centrer_Image()
Set s = ActiveSheet.Shapes("CheckBox1")
Set c = ActiveCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce que ça te convient ?

Serge



"clotilde athenour" a écrit dans le
message



de
news: 40b4e6d6$0$21556$
Comment peut-on centrer une case à cocher dans une cellule d'excel ?

MERCI !!
















Avatar
garnote
Si tu veux, je peux t'envoyer un exemple.

Serge

"clotilde athenour" a écrit dans le message de
news: 40b4fd0b$0$21560$
Encore merci mais je n'y arrive pas.
Je cherche plutot à faire de la mise en forme qu'une action.
En fait, je voudrais centrer ma case à cocher comme lorsque l'on centre du
texte dans une cellule.

"garnote" a écrit dans le message de news:
MR6tc.17639$
Alors dans ce cas, assure-toi que ta case à cocher
est à l'intérieur d'une cellule. Sélectionne alors la
case à cocher et appelle cette macro :

Sub Centrer_Image()
Set s = Selection
Set c = s.TopLeftCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce mieux ainsi ?

Serge




"clotilde athenour" a écrit dans le message
de


news: 40b4f80c$0$21559$
Merci de ton aide mais la case à cocher dont j'ai besoin vient de la
barre


d'outils formulaire et non "boites à outils controle".
Je n'arrive donc pas appliquer ton exemple

MERCI

"garnote" a écrit dans le message de news:
hd6tc.17633$
Bonsoir Clotilde,

En supposant que ta case à cocher se nomme CheckBox1,
tu pourrais essayer ceci. Tu sélectionnes une cellule et tu
appelles cette macro :

Sub Centrer_Image()
Set s = ActiveSheet.Shapes("CheckBox1")
Set c = ActiveCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce que ça te convient ?

Serge



"clotilde athenour" a écrit dans le
message



de
news: 40b4e6d6$0$21556$
Comment peut-on centrer une case à cocher dans une cellule d'excel
?






MERCI !!




















Avatar
clotilde athenour
Oui je veux bien

merci !

"garnote" a écrit dans le message de news:
p47tc.17644$
Si tu veux, je peux t'envoyer un exemple.

Serge

"clotilde athenour" a écrit dans le message de
news: 40b4fd0b$0$21560$
Encore merci mais je n'y arrive pas.
Je cherche plutot à faire de la mise en forme qu'une action.
En fait, je voudrais centrer ma case à cocher comme lorsque l'on centre
du


texte dans une cellule.

"garnote" a écrit dans le message de news:
MR6tc.17639$
Alors dans ce cas, assure-toi que ta case à cocher
est à l'intérieur d'une cellule. Sélectionne alors la
case à cocher et appelle cette macro :

Sub Centrer_Image()
Set s = Selection
Set c = s.TopLeftCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce mieux ainsi ?

Serge




"clotilde athenour" a écrit dans le
message



de
news: 40b4f80c$0$21559$
Merci de ton aide mais la case à cocher dont j'ai besoin vient de la
barre


d'outils formulaire et non "boites à outils controle".
Je n'arrive donc pas appliquer ton exemple

MERCI

"garnote" a écrit dans le message de news:
hd6tc.17633$
Bonsoir Clotilde,

En supposant que ta case à cocher se nomme CheckBox1,
tu pourrais essayer ceci. Tu sélectionnes une cellule et tu
appelles cette macro :

Sub Centrer_Image()
Set s = ActiveSheet.Shapes("CheckBox1")
Set c = ActiveCell
LC = c.Left
TC = c.Top
HC = c.Height
WC = c.Width
HI = s.Height
WI = s.Width
s.Left = (2 * LC + WC - WI) / 2
s.Top = (2 * TC + HC - HI) / 2
End Sub

Est-ce que ça te convient ?

Serge



"clotilde athenour" a écrit dans le
message



de
news: 40b4e6d6$0$21556$
Comment peut-on centrer une case à cocher dans une cellule
d'excel






?

MERCI !!