Lier une checkbox avec une valeur de cellule d'un tableau

Bonjour,

Je souhaite mettre en relation une chekbox avec le contenu d'une cellule d'un tableau.

J'ai un tableau qui se charge à partir d'une base de données et je souhaite lier le contenu d'une cellule avec une case à coché de la sorte que :

Si le contenu de la celulle du tableau = "exemple" alors ma chekbox devrait passer en état coché

Pouvez vous me proposer une solution s'il vous plait

Merc

Bonjour,

essaie avec ceci

Code:

---

If Cells(1, 1).Value = "exemple" Then Sheets("Feuil1").CheckBox1.Value = True

---

Merci pour ta réponse,

Cela dit j'ai quand même un petit souci je m'explique :
J'ai trois ChekBox lié avec des cellule qui se trouve dans une feuille cachée " cache".

Je veux que quand la valeur de ma cellule = "exemple " deux CheckBox se mettent en état coché.

Ma cellule de tableau en question je l'ai nommé "exp" j'ai donc utiliser ce code là:

Code:

---

1 2 3 4 5

If Range("exp").Value="exemple" Then Worksheets("cache").Range("check1")=True Worksheets("cache").Range("check2")=True Worksheets("cache").Range("check3")=False End if

---

Mais le problème c'est que quand ma cellule "exp" contient autre chose que "exemple" les case check1 et check2 sont cochées et ce n'est pas le but rechercher.

je ne vois pas où est le problème !!!!!

Il faudra décocher si la cellule est différentes de "exemple"

Sinon, en une seule ligne

Code:

---

Worksheets("cache").CheckBox1.Value = Range("Exp") = "exemple"

---

Au fait j'ai solutionner mon problème en ajoutant un esle comme ceci

Code:

---

1 2 3 4 5 6 7 8 9

If Range("exp").Value="exemple" Then Worksheets("cache").Range("check1")=True Worksheets("cache").Range("check2")=True Worksheets("cache").Range("check3")=False Else Worksheets("cache").Range("check1")=False Worksheets("cache").Range("check2")=False Worksheets("cache").Range("check3")=True End if

---

Mais j'ai constaté un autre problème : le contenu de ma cellule "exp" peut contenir autre chose en incluant le mot "exemple " .

Je donne un exmple : le contenu de ma cellule "exp" = exemple prioritaire
dans ce cas la les deux case ne sont pas coché mais je veux que ça soit pris en compte .

J'ai donc penser à utiliser la fonction Right mais ça ne marche pas j'ai utilisé ce code là :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim projet As string projet = Range("exp").Value If Right(projet,7)="exemple" Then Worksheets("cache").Range("check1")=True Worksheets("cache").Range("check2")=True Worksheets("cache").Range("check3")=False Else Worksheets("cache").Range("check1")=False Worksheets("cache").Range("check2")=False Worksheets("cache").Range("check3")=True End if

---

Ahh mince fallait utiliser le Left et non le Right je vais retester :roll:

Sur la même lancée

Code:

---

1 2 3

Worksheets("cache").Range("check1") = Range("exp").Value Like "exemple*" Worksheets("cache").Range("check2") = Range("exp").Value Like "exemple*" Worksheets("cache").Range("check3") = Not Range("exp").Value Like "exemple*"

---