Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
uFqOUjF7GHA.2364@TK2MSFTNGP02.phx.gbl...
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %231emEuF7GHA.3732@TK2MSFTNGP05.phx.gbl...
Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
uFqOUjF7GHA.2364@TK2MSFTNGP02.phx.gbl...
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case supérieure
du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" a écrit dans le message de news:Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case supérieure
du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
OKWByWG7GHA.4276@TK2MSFTNGP04.phx.gbl...
Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %231emEuF7GHA.3732@TK2MSFTNGP05.phx.gbl...
Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
uFqOUjF7GHA.2364@TK2MSFTNGP02.phx.gbl...
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case supérieure
du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" a écrit dans le message de news:Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la mise
en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Re Guy,
En relisant mon envoi, j'ai pensé à un petit plus ;-)
remplace la ligne
For t = 1 To 5000000
par
t2 = 5000000 / nb
For t = 1 To t2
Merry Christmas d'avance ;-)
Paul V
"Paul V" a écrit dans le message de news:hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case
supérieure du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" a écrit dans le message de news:Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la
mise en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Re Guy,
En relisant mon envoi, j'ai pensé à un petit plus ;-)
remplace la ligne
For t = 1 To 5000000
par
t2 = 5000000 / nb
For t = 1 To t2
Merry Christmas d'avance ;-)
Paul V
"Paul V" <nobody@home.ir> a écrit dans le message de news:
OjYzgzG7GHA.4604@TK2MSFTNGP03.phx.gbl...
hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case
supérieure du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
OKWByWG7GHA.4276@TK2MSFTNGP04.phx.gbl...
Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %231emEuF7GHA.3732@TK2MSFTNGP05.phx.gbl...
Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la
mise en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
uFqOUjF7GHA.2364@TK2MSFTNGP02.phx.gbl...
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Re Guy,
En relisant mon envoi, j'ai pensé à un petit plus ;-)
remplace la ligne
For t = 1 To 5000000
par
t2 = 5000000 / nb
For t = 1 To t2
Merry Christmas d'avance ;-)
Paul V
"Paul V" a écrit dans le message de news:hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case
supérieure du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" a écrit dans le message de news:Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du carré
quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la
mise en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Salut Paul V
Ouaaaaahhhh !!!!!!
En effet c'est sympa, c'est ce que je voulais, je vais essayé de l'adapter
au jeu car pour tourner autour du carré.(le jeu fait 45x45 cellules, il y
a des cellules pour pouvoir mettre des valeurs possibles).
Je te remercie encore, je suis autant comptent que lui le sera.
A+
Cordialement
Guy
"Paul V" a écrit dans le message de news:Re Guy,
En relisant mon envoi, j'ai pensé à un petit plus ;-)
remplace la ligne
For t = 1 To 5000000
par
t2 = 5000000 / nb
For t = 1 To t2
Merry Christmas d'avance ;-)
Paul V
"Paul V" a écrit dans le message de news:hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case
supérieure du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" a écrit dans le message de news:Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du
carré quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la
mise en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Salut Paul V
Ouaaaaahhhh !!!!!!
En effet c'est sympa, c'est ce que je voulais, je vais essayé de l'adapter
au jeu car pour tourner autour du carré.(le jeu fait 45x45 cellules, il y
a des cellules pour pouvoir mettre des valeurs possibles).
Je te remercie encore, je suis autant comptent que lui le sera.
A+
Cordialement
Guy
"Paul V" <nobody@home.ir> a écrit dans le message de news:
eNPxE7G7GHA.2288@TK2MSFTNGP05.phx.gbl...
Re Guy,
En relisant mon envoi, j'ai pensé à un petit plus ;-)
remplace la ligne
For t = 1 To 5000000
par
t2 = 5000000 / nb
For t = 1 To t2
Merry Christmas d'avance ;-)
Paul V
"Paul V" <nobody@home.ir> a écrit dans le message de news:
OjYzgzG7GHA.4604@TK2MSFTNGP03.phx.gbl...
hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case
supérieure du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
OKWByWG7GHA.4276@TK2MSFTNGP04.phx.gbl...
Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du
carré quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %231emEuF7GHA.3732@TK2MSFTNGP05.phx.gbl...
Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la
mise en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" <Guy72@nospams.ouf> a écrit dans le message de news:
uFqOUjF7GHA.2364@TK2MSFTNGP02.phx.gbl...
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
Salut Paul V
Ouaaaaahhhh !!!!!!
En effet c'est sympa, c'est ce que je voulais, je vais essayé de l'adapter
au jeu car pour tourner autour du carré.(le jeu fait 45x45 cellules, il y
a des cellules pour pouvoir mettre des valeurs possibles).
Je te remercie encore, je suis autant comptent que lui le sera.
A+
Cordialement
Guy
"Paul V" a écrit dans le message de news:Re Guy,
En relisant mon envoi, j'ai pensé à un petit plus ;-)
remplace la ligne
For t = 1 To 5000000
par
t2 = 5000000 / nb
For t = 1 To t2
Merry Christmas d'avance ;-)
Paul V
"Paul V" a écrit dans le message de news:hello Guy,
Puisque c'est pour ton petit fils ;-)
Un petit truc sympa pas testé mais qui pourrait t'inspirer
Sub Colorier()
On Error Resume Next
For nb = i To 10
For i = 1 To 10
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
ActiveCell.Offset(10, 10 - i).Interior.ColorIndex = 6
ActiveCell.Offset(i, 10).Interior.ColorIndex = 6
ActiveCell.Offset(10 - i, 0).Interior.ColorIndex = 6
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
Set oldcell1 = ActiveCell.Offset(0, i)
Set oldcell2 = ActiveCell.Offset(10, 10 - i)
Set oldcell3 = ActiveCell.Offset(i, 10)
Set oldcell4 = ActiveCell.Offset(10 - i, 0)
For t = 1 To 5000000
Next t
Next i
Next nb
oldcell1.Interior.ColorIndex = xlColorIndexAutomatic
oldcell2.Interior.ColorIndex = xlColorIndexAutomatic
oldcell3.Interior.ColorIndex = xlColorIndexAutomatic
oldcell4.Interior.ColorIndex = xlColorIndexAutomatic
End Sub
Tu sélectionne en entrée la case en haut et à gauche de la case
supérieure du soduku et VBA fait le reste ;-)
HTH
Paul V
"Guy72" a écrit dans le message de news:Salut Pierre
C'est ça, tu n'est pas loin.
C'est un sodoku (très facile)
Je voudrais faire un genre, comme une cellule qui tourne autour du
carré quand c'est résolu.
C'était pour avoir une motivation supplémentaire quand mon petit fils
réussit son exercice.
Je suis entrain de faire des essais, mais bon c'est pas évident.
Exemple :
Sub Cellule2()
Range("h3").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("i3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Range("j3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
End Sub
--
Cordialement
Guy
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour Guy,
Tu crées une guirlande lumineuse? ;-))
Sans vba, ce n'est pas possible, il n'y a pas de temporisateur à la
mise en forme conditionnelle? Peux-tu préciser le but à atteindre?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien
en commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Guy72" a écrit dans le message de news:Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 P
En B3 un motif Jaune 1" ou 2" après B2
En B4 un motif Jaune 1" ou 2" après B3 etc............
Cordialement
Guy
je vais essayé de l'adapter au jeu car pour tourner autour du carré.le jeu
fait 45x45 cellules
je vais essayé de l'adapter au jeu car pour tourner autour du carré.le jeu
fait 45x45 cellules
je vais essayé de l'adapter au jeu car pour tourner autour du carré.le jeu
fait 45x45 cellules
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :je vais essayé de l'adapter au jeu car pour tourner autour du carré.le
jeu fait 45x45 cellules
une petite varante avec sonorisation ;o)))
c'est elle qui sert de temporisation ;o)))
'==================================================== > '---- a mettre en début de module
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal
dwDuration As Long) As Long
Sub Chenillard()
' ---la case en haut et à gauche de la case supérieure du soduku sera
nommée GUY
' ---modifier ci-dessous le nombre de colonnes à prendre en compte
nbcol = 45 + 1
With Range("GUY")
For j = 1 To 4
Select Case j
Case 1
For i = 1 To nbcol
.Offset(0, i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(0, i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 2
For i = 1 To nbcol
.Offset(i, nbcol).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(i, nbcol).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 3
For i = 1 To nbcol
.Offset(nbcol, nbcol - i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol, nbcol - i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 4
For i = 1 To nbcol
.Offset(nbcol - i, 0).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol - i, 0).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case Else
End Select
Next
End With
End Sub
--
--
@+
;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
je vais essayé de l'adapter au jeu car pour tourner autour du carré.le
jeu fait 45x45 cellules
une petite varante avec sonorisation ;o)))
c'est elle qui sert de temporisation ;o)))
'==================================================== > '---- a mettre en début de module
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal
dwDuration As Long) As Long
Sub Chenillard()
' ---la case en haut et à gauche de la case supérieure du soduku sera
nommée GUY
' ---modifier ci-dessous le nombre de colonnes à prendre en compte
nbcol = 45 + 1
With Range("GUY")
For j = 1 To 4
Select Case j
Case 1
For i = 1 To nbcol
.Offset(0, i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(0, i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 2
For i = 1 To nbcol
.Offset(i, nbcol).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(i, nbcol).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 3
For i = 1 To nbcol
.Offset(nbcol, nbcol - i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol, nbcol - i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 4
For i = 1 To nbcol
.Offset(nbcol - i, 0).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol - i, 0).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case Else
End Select
Next
End With
End Sub
--
--
@+
;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :je vais essayé de l'adapter au jeu car pour tourner autour du carré.le
jeu fait 45x45 cellules
une petite varante avec sonorisation ;o)))
c'est elle qui sert de temporisation ;o)))
'==================================================== > '---- a mettre en début de module
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal
dwDuration As Long) As Long
Sub Chenillard()
' ---la case en haut et à gauche de la case supérieure du soduku sera
nommée GUY
' ---modifier ci-dessous le nombre de colonnes à prendre en compte
nbcol = 45 + 1
With Range("GUY")
For j = 1 To 4
Select Case j
Case 1
For i = 1 To nbcol
.Offset(0, i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(0, i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 2
For i = 1 To nbcol
.Offset(i, nbcol).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(i, nbcol).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 3
For i = 1 To nbcol
.Offset(nbcol, nbcol - i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol, nbcol - i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 4
For i = 1 To nbcol
.Offset(nbcol - i, 0).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol - i, 0).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case Else
End Select
Next
End With
End Sub
--
--
@+
;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :je vais essayé de l'adapter au jeu car pour tourner autour du carré.le
jeu fait 45x45 cellules
une petite varante avec sonorisation ;o)))
c'est elle qui sert de temporisation ;o)))
'==================================================== > '---- a mettre en début de module
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal
dwDuration As Long) As Long
Sub Chenillard()
' ---la case en haut et à gauche de la case supérieure du soduku sera
nommée GUY
' ---modifier ci-dessous le nombre de colonnes à prendre en compte
nbcol = 45 + 1
With Range("GUY")
For j = 1 To 4
Select Case j
Case 1
For i = 1 To nbcol
.Offset(0, i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(0, i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 2
For i = 1 To nbcol
.Offset(i, nbcol).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(i, nbcol).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 3
For i = 1 To nbcol
.Offset(nbcol, nbcol - i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol, nbcol - i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 4
For i = 1 To nbcol
.Offset(nbcol - i, 0).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol - i, 0).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case Else
End Select
Next
End With
End Sub
--
--
@+
;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
je vais essayé de l'adapter au jeu car pour tourner autour du carré.le
jeu fait 45x45 cellules
une petite varante avec sonorisation ;o)))
c'est elle qui sert de temporisation ;o)))
'==================================================== > '---- a mettre en début de module
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal
dwDuration As Long) As Long
Sub Chenillard()
' ---la case en haut et à gauche de la case supérieure du soduku sera
nommée GUY
' ---modifier ci-dessous le nombre de colonnes à prendre en compte
nbcol = 45 + 1
With Range("GUY")
For j = 1 To 4
Select Case j
Case 1
For i = 1 To nbcol
.Offset(0, i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(0, i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 2
For i = 1 To nbcol
.Offset(i, nbcol).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(i, nbcol).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 3
For i = 1 To nbcol
.Offset(nbcol, nbcol - i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol, nbcol - i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 4
For i = 1 To nbcol
.Offset(nbcol - i, 0).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol - i, 0).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case Else
End Select
Next
End With
End Sub
--
--
@+
;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :je vais essayé de l'adapter au jeu car pour tourner autour du carré.le
jeu fait 45x45 cellules
une petite varante avec sonorisation ;o)))
c'est elle qui sert de temporisation ;o)))
'==================================================== > '---- a mettre en début de module
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal
dwDuration As Long) As Long
Sub Chenillard()
' ---la case en haut et à gauche de la case supérieure du soduku sera
nommée GUY
' ---modifier ci-dessous le nombre de colonnes à prendre en compte
nbcol = 45 + 1
With Range("GUY")
For j = 1 To 4
Select Case j
Case 1
For i = 1 To nbcol
.Offset(0, i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(0, i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 2
For i = 1 To nbcol
.Offset(i, nbcol).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(i, nbcol).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 3
For i = 1 To nbcol
.Offset(nbcol, nbcol - i).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol, nbcol - i).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case 4
For i = 1 To nbcol
.Offset(nbcol - i, 0).Interior.Color = vbYellow
Beep j * 733, 25
.Offset(nbcol - i, 0).Interior.ColorIndex = xlNone
Beep j * 733, 25
Next
Case Else
End Select
Next
End With
End Sub
--
--
@+
;o)))
Je n'arrive pas à le faire fonctionner, il s'arrête au mot premier mot Beep
avec comme message :
Nombre d'arguments incorrect ou affectation de propriété incorrecte.
Je n'arrive pas à le faire fonctionner, il s'arrête au mot premier mot Beep
avec comme message :
Nombre d'arguments incorrect ou affectation de propriété incorrecte.
Je n'arrive pas à le faire fonctionner, il s'arrête au mot premier mot Beep
avec comme message :
Nombre d'arguments incorrect ou affectation de propriété incorrecte.