Case à cocher

13GIBE59

XLDnaute Accro

• 8 Novembre 2009

• #2

Re : Case à cocher

Bonjour Steve.

Essaie les "fausses" checkbox, plus souples à manipuler. Après pour ton choix en colonne J, une MFC suffit.

Pour les checkbox, un clic en colonne K suffit.

 

Pièces jointes

• Faussecaseàcocher.xls

  41 KB · Affichages: 99
• Faussecaseàcocher.xls

  41 KB · Affichages: 97
• Faussecaseàcocher.xls

  41 KB · Affichages: 102

Vote positif 0 Vote négatif

stevevda

XLDnaute Junior

• 8 Novembre 2009

• #3

Re : Case à cocher

Comment construire la fausse check box ?
Car sur le fichier que tu as joint je trouve que c'est bien mais comment faire pour que quand elle est cochée donne ok et décochée donne X.
Car la je comprend pas très bien ...

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 8 Novembre 2009

• #4

Re : Case à cocher

Voilà.

Je t'ai rajouté en plus une mfc en colonne J .

 

Pièces jointes

• Faussecaseàcocher.xls

  42 KB · Affichages: 81
• Faussecaseàcocher.xls

  42 KB · Affichages: 82
• Faussecaseàcocher.xls

  42 KB · Affichages: 86

Vote positif 0 Vote négatif

stevevda

XLDnaute Junior

• 8 Novembre 2009

• #5

Re : Case à cocher

La c'est ok mais le mieux est que j'apprends cette nouvelle fonction que je ne connait pas mais faut apprendre... comment faire cette fausse check box ou cette petite case à cocher ?

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Novembre 2009

• #6

Re : Case à cocher

Salut stevevda, JB🙂, le Forum

Un peut plus court et sur l'évènement Double Click

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True[COLOR=Green] 'Permet de ne pas séléctionner la cellule[/COLOR]
If Not Application.Intersect(Target, [K:K]) Is Nothing Then  ' Si la cellule est dans La colonne (K)
   Target = IIf(Target = "þ", "o", "þ") [COLOR=Green]'si Cellule = "þ" alors coché sinon décoché[/COLOR]
   Target.Offset(0, -1) = IIf(Target = "þ", "X", "Ok") [COLOR=Green]' si La cellule selectionné est _
   Cochée, mettre un X dans La cellule à Gauche d'une case, Sinon mettre OK[/COLOR]
End If
End Sub

Regardes ce Fil auquel j'ai participé
Bonne Journée

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 8 Novembre 2009

• #7

Re : Case à cocher

Tout est dans le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

La fonction ne marche qu'en cas de changement dans la feuille

If Target.Column = 11 And Target.Count = 1 Then

Si la colonne de la cible = 11 donc colonne K, mais une seule cellule sélectionnée (Target.Count=1)

Target = IIf(Target = "þ", "o", "þ") 'Police Wingdings

Ici fonction SI mais en vba : Si la cible = "þ" alors elle devient "o", sinon elle devient "þ". Le tout est écrit en police Wingdings pour avoir nos cases cochées ou non.



Target.Offset(0, -4).Select
Ici c'est facultatif pour sortir de la cible (cellule). Tu peux écrire Range("A1").Select

End If
Exit Sub

Edit : salut Dull 🙂

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 8 Novembre 2009

• #8

Re : Case à cocher

Bonjour à tous,
Salut l'ami Dull 🙂🙂,

J'avais suggéré, en MP, à JB (GiBé) la modification que tu préconises, aussi...

Il n'a pas souhaité la déposer à "son nom"... Dommage mais honorable (ce que lui suggérait de faire).

A++ GiBé 🙂
A++ l'ami Dull 🙂🙂 Quiestsouslescendres.Jevaisréduirelasécheressedetaboucheparun Rhumarrangé:SpécialFournaise...Quatrequartsde Rhum...Arf Arf

A+ à tous

 

Vote positif 0 Vote négatif