Discussion :

[sab_info]

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

[QuestVba]

Bonjour,

essaie avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sab_info]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

Sinon, en une seule ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sab_info]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Sur la même lancée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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*"