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]

personne pour m'aider??????

[pierrejean]

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]

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

[koko_spv89]

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

vois si cela te convient

[koko_spv89]

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

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]

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]

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]

Salut Koko, Pierrejean sans oublier les autres.

Autre suggestion sans macro :

Pour chaque Checkbox, choisis une cellule liée (LinkedCell).
Exemple :
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.

[pierrejean]

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]

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]

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]

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à....
@+