Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Colorier une cellule après l'autre

Colorier une cellule après l'autre

15 réponses
Avatar
Guy72
Bonjour à tous
Est-il possible d'avoir :
En B2 un motif Jaune (6) si A1 =50
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Pierre Fauconnier
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



Avatar
Guy72
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







Avatar
Paul V
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











Avatar
Paul V
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















Avatar
Guy72
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



















Avatar
Paul V
Hello again, Guy,

Il ne te restera plus qu'à mettre ton jeu sur le forum (par cjoint et par
toutatis) pour que ce soit complet ;-)

Ravi d'avoir pu t'aider.

Paul V

"Guy72" a écrit dans le message de news:
%
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























Avatar
Modeste
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)))

Avatar
Paul V
Hey Modeste,

Quelle horreur, ton truc. Et il fait plein de bruits stridents.

je garde le mien même si tu l'échange contre deux des tiens gratos ;-)

A+

Paul V


"Modeste" a écrit dans le message de news:

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)))




Avatar
Guy72
Salut Modeste
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.
Cordialement
Guy

"Modeste" a écrit dans le message de news:

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)))




Avatar
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

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.


'---- a mettre en début de module avant toute macro
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As
Long) As Long

par ailleurs il faut posséder XP et une version EXCEL => 2002
sinon oter les parametres de l'instruction Beep

http://cjoint.com/?kkxeSUJeXq

--
--
@+
;o)))

1 2