Apparition cases à cocher avec condition

S

st007

XLDnaute Barbatruc

• 1 Juin 2013

• #2

Re : Apparition cases à cocher avec condition

Bonjour,
Avec les fameuses fausses cases à cocher, çà semble facile à mettre en place

si(y10<>0;"q";" ") en police wingdings (o, p, q)

 

Dernière édition: 1 Juin 2013

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 1 Juin 2013

• #3

Re : Apparition cases à cocher avec condition

Merci, mais il faudrait que de vraies cases à cocher apparaissent, car j'en ai besoin pour d'autres macros...

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 1 Juin 2013

• #4

Re : Apparition cases à cocher avec condition

une autre idée alors

 

Pièces jointes

• Copie de masquer case a cocher1 .xls

  35 KB · Affichages: 59
• Copie de masquer case a cocher1 .xls

  35 KB · Affichages: 61
• Copie de masquer case a cocher1 .xls

  35 KB · Affichages: 66

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 1 Juin 2013

• #5

Re : Apparition cases à cocher avec condition

Très intéressant, et quasiment ce que je recherche, mais il me manque juste un petit quelque chose, est-il possible de lier une cellule à cette case? Et est-il possible d'effecter cela à toute la colonne?

 

Dernière édition: 1 Juin 2013

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 1 Juin 2013

• #6

Re : Apparition cases à cocher avec condition

Bonjour le forum
essayes çà

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Erreur
Dim Lg&
If Target.Column = 1 Then
Lg = Target.Row
If Cells(Target.Row, 1) > 0 Then
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=Cells(Lg, 4).Left, Top:=Cells(Lg, 4).Top, _
        Width:=Cells(Lg, 4).Width, Height:=Cells(Lg, 4).Height). _
        Name = "Chk" & Lg
        
Else
   ActiveSheet.Shapes("Chk" & Lg).Delete
        
End If
End If
Erreur:
End Sub

Edit colonne a n'importe quelle ligne

 

Dernière édition: 1 Juin 2013

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 2 Juin 2013

• #7

Re : Apparition cases à cocher avec condition

Malheureusement il ne se passe rien du tout chez moi..

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 2 Juin 2013

• #8

Re : Apparition cases à cocher avec condition

Bonjour le forum
voici un exemple

 

Pièces jointes

• Classeur1.xls

  21.5 KB · Affichages: 51
• Classeur1.xls

  21.5 KB · Affichages: 54
• Classeur1.xls

  21.5 KB · Affichages: 56

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Juin 2013

• #9

Re : Apparition cases à cocher avec condition

Bonjour le forum
Bonjour Skyna, bonjour st007, bonjour jp

Je précise que la macro fonctionne parfaitement et je m'étonne que la Chk créée ne prenne pas le nom voulu malgré la déclaration??
Bon dimanche à toutes & à tous

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 2 Juin 2013

• #10

Re : Apparition cases à cocher avec condition

re
exemple pour travailler sur la chk

Code:

Sub eeee()
Dim obj As OLEObject
 
 For Each obj In ActiveSheet.OLEObjects
       If obj.Name = "Chk" & Cells(5, 1).Row Then
                 obj.Object.Caption = "réussi"
       End If
 Next obj
 End Sub

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 2 Juin 2013

• #11

Re : Apparition cases à cocher avec condition

re
ou encore plus simple

ActiveSheet.Chk5.Caption = "ok"

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 2 Juin 2013

• #12

Re : Apparition cases à cocher avec condition

salut

moins de problèmes avec les "fausses Cases à cocher".

 

Pièces jointes

• FaussesCasesàCocher .xls

  28.5 KB · Affichages: 31

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 7 Juin 2013

• #13

Re : Apparition cases à cocher avec condition

Merci à tous

 

Vote positif 0 Vote négatif