Les checkBox

13GIBE59

XLDnaute Accro

• 21 Janvier 2010

• #2

Re : Les checkBox

Bonjour Sariama, et bienvenue sur le forum.

Pour contourner ton problème, essaie les fausses checkbox en vba.

A +

Mais il faut connaître un peu le code vba...

 

Pièces jointes

• Fausse checkbox.xls

  26.5 KB · Affichages: 102
• Fausse checkbox.xls

  26.5 KB · Affichages: 119
• Fausse checkbox.xls

  26.5 KB · Affichages: 117

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 21 Janvier 2010

• #3

Re : Les checkBox

Bonjour Sariama, bonjour le forum,

Clique avec le bouton droit de la souris et dans le menu contextuel sélectionne Format de contrôle... puis l'onglet Proprietés et coche la case qui te convient pour le Positionnement de l'objet. Normalement l'option Déplacer sans dimensionner avec les cellules devrait te convenir.
Remarque : si tu veux l'appliquer à plusieurs Checkboxes il te faudra les sélectionner avant puis cliquer sur l'une d'entre elle avec le bouton droit.

Édition :

Bonjour Jean-Bernard on s'est croisé

 

Vote positif 0 Vote négatif

S

sariama

Guest

• 21 Janvier 2010

• #4

Re : Les checkBox

Magnifique!!!!!
Merci pour toutes vos réponses, et merci le forum!!!!!

 

Vote positif 0 Vote négatif

S

sariama

Guest

• 21 Janvier 2010

• #5

Re : Les checkBox

Hello,

comment je fais pour reproduire tes Fausses checkbox dans mon document?

Merci!!!

 

Vote positif 0 Vote négatif

S

sariama

Guest

• 21 Janvier 2010

• #6

Re : Les checkBox

en fait deux questions:
13GIBE59 : comment je fais pour reproduire tes Fausses checkbox dans mon document?
et
Robert et Jean-marcel : en anglais ça donne quoi, mes propriétés sont en anglais..
Merci!!!

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 21 Janvier 2010

• #7

Re : Les checkBox

Sariama :

Fais un clic droit sur le nom de ton onglet, choisis visualiser le code.
Dans la fenêtre de droite, tu obtiens ce code :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub 'Plus d'une cellule sélectionnée
  ' Je suis dans la plage H6:I... alors je coche ou décoche :
  Ligne = Target.Row
  If (Target.Column = 8 Or Target.Column = 9) And Ligne > 5 Then
    Target = IIf(Target = "þ", "o", "þ")
    Range("A1").Select
  End If
End Sub

Target.Column = n° de ta colonne. (Ici colonnes H et I).
Choisis la tienne et efface "Or target.Column = 9 si tu n'as qu'une seule colonne.
Ligne > 5 signifie toutes les lignes à partir de la ligne 6. Choisis ta ligne.
Range("A1").Select remet la sélection sur A1. Cellule au choix.
Choisis la police Wingdings dans ta colonne !

Bon courage. 😛

 

Vote positif 0 Vote négatif