Liste et checkbox

Bonjour à tous,

Je voudrais en fonction de la valeur de ma cellule en E3 que le checkbox se coche.

Pour le moment je n arrive pas meme à cocher une checkbox si la condition est validée.

Exemple c est a dire si la valeur de ma cellule en E3 est egale à Toto alors la checkbox doit se cocher.

Est-ce que quelqu un pourrait m aider ?

Voici le code :

Private Sub Worksheet_Changs(ByVal target As Range)
If Sheets("Report FDF").Range(E3).Value = "O4.1" Then
            ActiveSheet.Shapes("CheckBox3").OLEFormat.Object.Value = 1
        End If
        End Sub
 

Vous trouverez le fichier xlsm en piece-jointe.

Merci beaucoup

Bonjour,

Comme tu utilises des cases à cocher "Formulaire", il suffit de lier une cellule à la case à cocher (en général, la cellule qui contient cette case)

Puis, en mettant "VRAI" ou "FAUX" dans la cellule, la case se coche ou non...

Maintenant, pourquoi utiliser une case à cocher uniquement pour le visuel?

En général, on coche ou décoche, et en fonction, on associe un code ou une action...

Ici, tu semble utiliser à l'envers????

Bonjour,

Ce n est pas que pour le visuel c est pour garder une trace.

A chaque fois que par exemple la condition est validée il faut que la checkbox se cocher et reste cocher.

Merci beaucoup,

Marion

Bonjour toutes et tous

Est-ce cela, que tu souhaitais ?

NOTE: j'ai oublié de rajouté

On Error Resume Next en cas de rafraîchissement de la page

j'ai rajouté est renommé toutes tes checkbox (case à cocher par check01, check02[...] check13:

If Sheets("Report FDF").Range("E3").Value = "U1.1" Then
            Sheets("Report FDF").Shapes("Check01").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "O4.1" Then
            Sheets("Report FDF").Shapes("Check02").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "O4.2" Then
            Sheets("Report FDF").Shapes("Check03").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "O1.2" Then
            Sheets("Report FDF").Shapes("Check04").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "S1.3" Then
            Sheets("Report FDF").Shapes("Check05").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "S1.6" Then
            Sheets("Report FDF").Shapes("Check06").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "S2.13" Then
            Sheets("Report FDF").Shapes("Check07").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "TPTOBS" Then
            Sheets("Report FDF").Shapes("Check08").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "AIFM reporting (filing)" Then
            Sheets("Report FDF").Shapes("Check09").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "AIFM reporting (Graphical User Interface Amfine)" Then
            Sheets("Report FDF").Shapes("Check10").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "UCITS IV Notification for Luxembourg Funds - CSSF 11/509" Then
            Sheets("Report FDF").Shapes("Check11").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "Publication & Transmission documents to authorities" Then
            Sheets("Report FDF").Shapes("Check12").OLEFormat.Object.Value = 1
ElseIf Sheets("Report FDF").Range("E3").Value = "Disclosure to investors (CSSF 08/371) (CSSF 09/423)" Then
            Sheets("Report FDF").Shapes("Check13").OLEFormat.Object.Value = 1
        End If

@ tester

crdlt,

André

Re-,

Ok

regarde le fichier joint (tout ne fonctionne pas, car il y a des cellules de la colonne B qui n'ont pas d'onglets à leur nom...)

J'ai lié la cellule contenant la case à cocher à celle-ci, et mis la police en blanc

en fonction du choix dans la liste de validation, on recherche la cellule correspondante dans la colonne B, et dans la cellule juste à côté, on met "VRAI" afin que la case se coche

Bonjour,

Je suis impressionnee par votre rapidité et j ai du coup envie de pleurer tellement je suis nulle....

Merci beaucoup

C est exactement ca.