cocher cases en fonction d'un nombre

[noard]

Bonjour le forum
Donc voilà mon souci, il faudrait qu'en fonction d'un nombre present dans une cellule, une autre cellule se coche en fonction du nombre. Par exemple, je met trois nombres dans les colonnes suivante K L M,alors les cases 1(B&C) 2(E&F) et 3(H&I) se cochent en fonction des nombres present en K(cuve1), L(cuve2) & M(cuve3).Pour information, les nombres seront toujours 1,2 ou 3.
-Donc par exemple si je met un '1' dans la cuve1 B5&C6 se cochent en diagonale.
-Donc par exemple si je met un '2' dans la cuve2 E6&F5 se cochent en diagonale.
-Et enfin 3 eme cas si je met un '3' dans la cuve3 H5&H6 se cochent en vertical.
Mon explication n'est peut etre pas tres clair,dans le fichier ci-joint,c'est plus clair je pense.
Merci d'avance pour votre aide ! ! ! [file name=essai_20051203103208.zip size=2928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20051203103208.zip[/file]

 

[justine]

ton histoire est interressant a elaborer, je vais me plancher dessus, il faut etudier tous les cas possibles, si tu limites a trois cuves, tu as 37 possibilités de remplissage (algebriquement)

donc long a elaborer mais peut etre des methodes plus rapides.

justine

 

[justine]

voila c'est fait
a toi de voir si cela te va [file name=essai_20051203103208_20051203143519.zip size=12717]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20051203103208_20051203143519.zip[/file]

 

[noard]

Merci beaucoup justine
C'est à peu pres ce que je voulais mais je pense que grace à ton aide je vais pouvoir me debrouiller.Si quelque fois j'ai d'autres soucis,je te ferais signe
Merci beaucoup pour ton aide.

 

[noard]

Reboujour tout le monde
En fait justine, j'ai bien compris ton petit programme mais j'ai essayé de le refaire mais sans tes petits boutons pour mettre 1 2 ou 3. Le gros probleme c'est lorsque je tappe par exemple 1 ca me coche tout comme il faut mais lorsque je tappe 2 ca le coche bien mais je n'arrive pas à effacer le 1 cocher avant.
Merci d'avance justine

 

[justine]

il faut mettre tes cellules a vide au depart de la macro

 

[noard]

merci pour ton aide justine meme si je ne vois pas trop comment faire je vais chercher,mais merci beaucoup quand meme.

 

[justine]

bonjour
une fois ton programme fait, envoie le moi, je peux t'implanter la macro

 

[noard]

en fait j'ai garder le meme programme que tu m'a donné sauf que j'ai changer le numero de cellule et la couleur des traits donc ca donne ca:

If Range('Q4') = 1 Then
With Range('F4').Borders(xlDiagonalDown)
.LineStyle = xlcontinous
.Weight = xlThick
.ColorIndex = 32
End With
With Range('G5').Borders(xlDiagonalDown)
.LineStyle = xlcontinous
.Weight = xlThick
.ColorIndex = 32
End With
End If

et il faudrait inserer ton ptit programme vide à chaque fois mais je sais pas trop comment faire...
merci d'avance

 

[justine]

salut
regarde bien ma macro, j'ai fait appel a la macro 'vide' au tout debut, elle a pour but d'effacer tout les traits deja existant

mais il faut aussi reprendre 'sub vide()' pour mettre tes cellules appropriées.
en fait toute la page contenant la macro sert pour ton application
bon courage
justine