une valeur pr cocher une case à cocher

[koko_spv89]

bjr à tous....

voilà le soucis :

j'ai un tableau sur une feuille (1) excel dont les lignes s'affiche si une case à cocher qui est sur une autre feuille (2)...

Maintenant j'aimerai que cette case à cocher se coche + d'autres en fonctino d'une case sur la même feuille (2). par exemple si A1=2 ça coche les cases 1/2/5/9 qui elles vont activer mes calculs feuille 1!

merci de m'éclaircir sur le sujet je nage un peu en vb!lol

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

personne pour m'aider??????

 

[pierrejean]

Re : une valeur pr cocher une case à cocher

bonjour koko

avec un petit fichier exemple on serait plus a l'aise pour comprendre ce que tu souhaites et donc pour t'aider

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

oki je te fais ça.... de suite

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

voilà c'est en feuille 1

j'aimerais que si F2=2 par exemple check1 et 2 se cochent automatiquement pour que ça change les formules en A1 et A2.........

 

[pierrejean]

Re : une valeur pr cocher une case à cocher

Re

vois si cela te convient

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

merde je suis à mon boulot là et l'admi bloque le téléchargement des fichiers.... tu peux pas m'envoyer le code simplement commme ça? car je vais aller voir mais je sais pas si je vais pouvoir corriger ça!

 

[pierrejean]

Re : une valeur pr cocher une case à cocher

Re

Voila

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
 If Target = 2 Then
   CheckBox1 = True
   CheckBox2 = True
 Else
   CheckBox1 = False
   CheckBox2 = False
 End If
End If
End Sub

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

merci bcp pierrejean!

dc maintenant si je veux reproduire ça avec plusieures valeurs! si j'ai un souci je sais ou trouver de l'aide!!! pas facile qd on débute!

merci

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

j'ai pas le droit de faire ça???

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
If Target = 2 Then
CheckBox1 = True
CheckBox2 = True
Else
If Target = 3 Then
CheckBox1 = True
CheckBox3 = True
Else
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
End If
End If
End If
End Sub

 

[Excel_lent]

Re : une valeur pr cocher une case à cocher

Salut Koko, Pierrejean sans oublier les autres.

Autre suggestion sans macro :

Pour chaque Checkbox, choisis une cellule liée (LinkedCell).
Exemple :
[FONT=&quot]Si en fonction du contenu de F2 (2 ou autre chose) et si tu choisis B1 pour Checkbox1, écris dans B1 la formule : =Si($F$2=2 ; 1 ;0).
Tu peux copier cette formule dans chacune des cellules liées que tu veux.

Désolé, je n'avais pas rafraîchi.
[/FONT]

 

[pierrejean]

Re : une valeur pr cocher une case à cocher

Re

Salut Excel_lent

je pense que ceci est plus facile a comprendre et a faire evoluer eventuellement

If Target.Address = "$F$2" Then
Select Case Target
Case 2
 CheckBox1 = True
 CheckBox2 = True
 CheckBox3 = False
Case 3
 CheckBox1 = True
 CheckBox2 = False
 CheckBox3 = True
Case Else
 CheckBox1 = False
 CheckBox2 = False
 CheckBox3 = False
End Select
End If

mais revois ta

Private Sub CheckBox3_Click()
Elle empeche de cocher CheckBox3 !!!

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

comme ça va va nikel pierrejean merci parce que j'ai 35 cas à faire comme ça donc ça sera tres simple!

@+ et merci encore.....

 

[damien.L]

Re : une valeur pr cocher une case à cocher

Bonjour,

Je suis tout nouveaux et je connais pas encore très bien excel.

Mais ce sujet m'intéresse fortement.

Je voulais juste savoir si il était possible au lieu de mettre un chiffre, de mettre une lettre(choisi au par avant) qui est sur une autre feuille (feuille 4)de mon classeur et que ca me coche la case en feuille 1.

Merci d'avance.

 

[koko_spv89]

Re : une valeur pr cocher une case à cocher

Salut Damien.L

La solution de Pierrejean est très facile à mettre en oeuvre et à faire évoluer....
Si tu veux mettre une lettre à la place du chiffre tu peux il suffit de le mettre entre guillemets.

Exemple :
Au lieu de

Case 1

Tu marques

Case "A"


Voilà....
@+