Bonjour
Voila je fais un démineur sous excel mais ça fait quelques jours que je bloque sur un petit truc...
Je voudrais que lorsqu'on clique sur une case vide (avec aucune mine autour de la case), toutes les faces vides qui se trouvent à coté soient découvertes et faire la grosse réaction en chaine qui dévoile toute la zone ou il n'y a pas de mines (et qui la plupart du temps entraine une grande satisfaction de la part du joueur ) .
Pour l'instant le programme dévoile juste les mines autour du clic:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
...
If Range(Target.Address) = "0" Then
ActiveCell.Offset(-1, -1).Range("A1:C3").Interior.ColorIndex = xlNone
End If
...
End Sub
Quand il y a un "0" là ou on clique, on décolore (eau de javel ou autre) les cases autour
Voila si vous avez des idées n'hésitez pas
Merci!
Natha
Voila je fais un démineur sous excel mais ça fait quelques jours que je bloque sur un petit truc...
Je voudrais que lorsqu'on clique sur une case vide (avec aucune mine autour de la case), toutes les faces vides qui se trouvent à coté soient découvertes et faire la grosse réaction en chaine qui dévoile toute la zone ou il n'y a pas de mines (et qui la plupart du temps entraine une grande satisfaction de la part du joueur ) .
Pour l'instant le programme dévoile juste les mines autour du clic:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
...
If Range(Target.Address) = "0" Then
ActiveCell.Offset(-1, -1).Range("A1:C3").Interior.ColorIndex = xlNone
End If
...
End Sub
Quand il y a un "0" là ou on clique, on décolore (eau de javel ou autre) les cases autour
Voila si vous avez des idées n'hésitez pas
Merci!
Natha