Apparition cases à cocher avec condition

[Skyna]

Bonjour à tous,

Je voulais savoir s'il était possible de faire apparaître des cases à cocher si une certaine condition était respectée?
Par exemple, si la cellule Y10 est différente de 0, peut on faire apparaitre une case à cocher dans la cellule d10, en sachant que ceci est à reformuler pour d'autres lignes, 11, 12, 13, ....

Merci d'avance pour vos commentaires.

 

[st007]

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)

 

[Skyna]

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...

 

[st007]

Re : Apparition cases à cocher avec condition

une autre idée alors

 

[Skyna]

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?

 

[jpb388]

Re : Apparition cases à cocher avec condition

Bonjour le forum
essayes çà

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

 

[Skyna]

Re : Apparition cases à cocher avec condition

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

 

[jpb388]

Re : Apparition cases à cocher avec condition

Bonjour le forum
voici un exemple

 

[Eric C]

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

 

[jpb388]

Re : Apparition cases à cocher avec condition

re
exemple pour travailler sur la chk

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

 

[jpb388]

Re : Apparition cases à cocher avec condition

re
ou encore plus simple

ActiveSheet.Chk5.Caption = "ok"

 

[Si...]

Re : Apparition cases à cocher avec condition

salut

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

 

[Skyna]

Re : Apparition cases à cocher avec condition

Merci à tous