Augmenter la taille d'une case à cocher

Bonjour

Je n'arrive pas à augmenter la taille de la case à cocher (cf fichier joint).

On peut augmenter la taille de la zone dans laquelle elle se trouve mais pas la case en elle meme.

J'ai lu que ca pouvait peut etre se faire par une macro.

Quelqu'un a t il une idee svp?

Merci

Bonne journée

bonjour,

Je ne croix pas que ce soit possible.

Tout ce qu'on peut faire avec macro c'est quelque chose comme en pièce jointe.

A+

Salut

Merci pour ta reponse, ce serait deja ttres bien.

comment as tu fait stp?

Merci d'avance

bonsoir,

Mettre la colonne A en police Winding

Voir la macro (Clic droit sur onglet de feuille +Visualiser le code...)

Ne pas oublier d'ajuster la plage cible...

A+

Bonsoir

Ce que je ne comprends pas, c'est que je ne vois pas de code, ni de macro dans Afficher les macros (cf PJ)

bonjour

Quelqu'un a t il une solution?

Ou peux tu m'envoyer le code de ta macro galopin1 stp?

Merci d'avance

Bonne journée

galopin01 a écrit :

bonsoir,

Mettre la colonne A en police Winding

Voir la macro (Clic droit sur onglet de feuille +Visualiser le code...)

Ne pas oublier d'ajuster la plage cible...

Voir la macro (Clic droit sur onglet de feuille +Visualiser le code...)

Ne pas oublier d'ajuster la plage cible...

Voir la macro (Clic droit sur onglet de feuille +Visualiser le code...)

Ne pas oublier d'ajuster la plage cible...

Voir la macro (Clic droit sur onglet de feuille +Visualiser le code...)

Ne pas oublier d'ajuster la plage cible...

Voir la macro (Clic droit sur onglet de feuille +Visualiser le code...)

Ne pas oublier d'ajuster la plage cible...

A+

Merci pour ces infos.

Je ne savais pas qu'on pouvais visualiser du code comme ca

Bonne journée

Salut Lecoc

Salut Galopin,

je vois que Galopin est venu à ta rescousse pendant que je refaisais sa macro à ma sauce, en utilisant son astuce Wingdings!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Count = 1 Then
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
        Target.Value = IIf(Target.Value = "ý", "þ", "ý")
        Target.Font.ColorIndex = IIf(Target.Value = "ý", 3, 4)
        Target.Offset(0, 4) = IIf(Target.Value = "ý", "FAUX", "VRAI")
    End If
End If
'
End Sub

A+

Merci à vous deux

bonsoir,

C'est le code de la feuille en question.

A la différence des autres macros ordinaires, Il ne peut pas être mis dans un autre module. car il n'inter-agit que sur cette feuille.

A+

Bonjour,

@Galopin : le code que tu as fourni pour contourner le pb de taille d'une case à cocher est top. Cela dit sais-tu comment l'appliquer pour l'action de cocher dans une colonne se fasse aussi pour une autre colonne dans la même feuille de calcul Excel. J'ai 2 colonnes que l'on peut cocher car 2 listes à côté. Une en colonne D (ça c'est ok ton code fonctionne en adaptant le n° de colonne) et une en colonne H. Et là j'arrive pas à étendre la plage. J'ai essayé pleins de choses mais rien ne fonctionne.

J'ai donc utilisé ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim isect, Z$, plage

plage = "D:D"

If Target.Count = 1 Then

Z = Target.Value

Set isect = Application.Intersect(Target, Range(plage))

If Not isect Is Nothing Then

Target.Value = IIf(Z = "", "ü", "")

ActiveCell.Offset(0, 1).Select

End If

End If

End Sub

Merci par avance pour ton aide. Ou à un autre qui a la réponde

Bonjour,

HLN13 : Quand on passe du code dans le fil après avoir sélectionné tout le code, on utilise la balise </> (en haut de l'éditeur) c'est quand même plus pratique pour relire ou capturer...

Une possibilité pour ces 2 colonnes :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect, Z$, plage
If Target.Count = 1 Then
   Z = Target.Value
   plage = "D:D"
   Set isect = Application.Intersect(Target, Range(plage))
   If Not isect Is Nothing Then
      Target.Value = IIf(Z = "", "ü", "")
   End If
   plage = "H:H"
   Set isect = Application.Intersect(Target, Range(plage))
   If Not isect Is Nothing Then
      Target.Value = IIf(Z = "", "ü", "")
   End If
End If
End Sub

... Mais je pense que tu as intérêt à circonscrire un peu la plage.

Bien que ce ne soit pas le cas avec le formatage de police, définir des plages pour une colonne entière conduit invariablement à des problèmes de ralentissement et de poids excessif du classeur.

Je t'engage donc à optimiser au maximum ta plage de travail en fonction de l'utilité prévisible et non sur la totalité de la feuille.

Diverses méthodes existent soit les plages dynamiques soit les tableaux intégrés Excel en fonction du besoin. A préciser pour avoir un conseil personnalisé...

A+

Je te remercie infiniment Galopin ! Désolée pour les balises je n'ai pas trop l'habitude mais c'est noté pour la prochaine fois !

Merci pour ta rapidité et pour la qualité de ta réponse.

Ça fonctionne super bien. J'étais pas si loin au final mais il manquait toujours un truc. Tu m'as économisé des heures encore à chercher partout !

Je vais suivre ton conseil et optimiser ma plage.

A+!