cocher cases en fonction d'un nombre

  • Initiateur de la discussion Initiateur de la discussion noard
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

noard

Guest
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]
 

Pièces jointes

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
 
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.
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
25
Affichages
606
Réponses
5
Affichages
472
Retour