besoin aide sur une macro !!

Le
Cyr13
si quelqu' un peut m aider pour arreter ce code des que la feuille n est plus
active
car le code continue en fond.

Private Sub Worksheet_Activate()

[D14:N22].Interior.ColorIndex = 15
[E16:E20].Interior.ColorIndex = 16
[F16:F20].Interior.ColorIndex = 16
[G16:G20].Interior.ColorIndex = 16
[H16:H20].Interior.ColorIndex = 16
[I16:I20].Interior.ColorIndex = 16
[J16:J20].Interior.ColorIndex = 16
[K16:K20].Interior.ColorIndex = 16
[L16:L20].Interior.ColorIndex = 16
[M16:M20].Interior.ColorIndex = 16

For X = 1 To 30
[D14:N22].Interior.ColorIndex = 16
[E16:E20].Interior.ColorIndex = 15
Attente (3000)
[F16:F20].Interior.ColorIndex = 15
Attente (3000)
[G16:G20].Interior.ColorIndex = 15
Attente (3000)
[H16:H20].Interior.ColorIndex = 15
Attente (3000)
[I16:I20].Interior.ColorIndex = 15
Attente (3000)
[J16:J20].Interior.ColorIndex = 15
Attente (3000)
[K16:K20].Interior.ColorIndex = 15
Attente (3000)
[L16:L20].Interior.ColorIndex = 15
Attente (3000)
[M16:M20].Interior.ColorIndex = 15
Attente (3000)
[D14:N22].Interior.ColorIndex = 15
[E16:E20].Interior.ColorIndex = 16
Attente (3000)
[F16:F20].Interior.ColorIndex = 16
Attente (3000)
[G16:G20].Interior.ColorIndex = 16
Attente (3000)
[H16:H20].Interior.ColorIndex = 16
Attente (3000)
[I16:I20].Interior.ColorIndex = 16
Attente (3000)
[J16:J20].Interior.ColorIndex = 16
Attente (3000)
[K16:K20].Interior.ColorIndex = 16
Attente (3000)
[L16:L20].Interior.ColorIndex = 16
Attente (3000)
[M16:M20].Interior.ColorIndex = 16
Attente (3000)
[D14:N22].Interior.ColorIndex = 16
Next X

End Sub
Sub Attente(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4495851
Bonsoir,

Essaye d'ajouter ceci dans le module de ta feuille.

Private Sub Worksheet_Deactivate()
End
End Sub

Cordialement,
Manu/

"Cyr13"
si quelqu' un peut m aider pour arreter ce code des que la feuille n est
plus
active
car le code continue en fond....

Private Sub Worksheet_Activate()

[D14:N22].Interior.ColorIndex = 15
[E16:E20].Interior.ColorIndex = 16
[F16:F20].Interior.ColorIndex = 16
[G16:G20].Interior.ColorIndex = 16
[H16:H20].Interior.ColorIndex = 16
[I16:I20].Interior.ColorIndex = 16
[J16:J20].Interior.ColorIndex = 16
[K16:K20].Interior.ColorIndex = 16
[L16:L20].Interior.ColorIndex = 16
[M16:M20].Interior.ColorIndex = 16

For X = 1 To 30
[D14:N22].Interior.ColorIndex = 16
[E16:E20].Interior.ColorIndex = 15
Attente (3000)
[F16:F20].Interior.ColorIndex = 15
Attente (3000)
[G16:G20].Interior.ColorIndex = 15
Attente (3000)
[H16:H20].Interior.ColorIndex = 15
Attente (3000)
[I16:I20].Interior.ColorIndex = 15
Attente (3000)
[J16:J20].Interior.ColorIndex = 15
Attente (3000)
[K16:K20].Interior.ColorIndex = 15
Attente (3000)
[L16:L20].Interior.ColorIndex = 15
Attente (3000)
[M16:M20].Interior.ColorIndex = 15
Attente (3000)
[D14:N22].Interior.ColorIndex = 15
[E16:E20].Interior.ColorIndex = 16
Attente (3000)
[F16:F20].Interior.ColorIndex = 16
Attente (3000)
[G16:G20].Interior.ColorIndex = 16
Attente (3000)
[H16:H20].Interior.ColorIndex = 16
Attente (3000)
[I16:I20].Interior.ColorIndex = 16
Attente (3000)
[J16:J20].Interior.ColorIndex = 16
Attente (3000)
[K16:K20].Interior.ColorIndex = 16
Attente (3000)
[L16:L20].Interior.ColorIndex = 16
Attente (3000)
[M16:M20].Interior.ColorIndex = 16
Attente (3000)
[D14:N22].Interior.ColorIndex = 16
Next X

End Sub
Sub Attente(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..


Cyr13
Le #4495131
si simple et pourtant cela fonctionne merci !!
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..



Bonsoir,

Essaye d'ajouter ceci dans le module de ta feuille.

Private Sub Worksheet_Deactivate()
End
End Sub

Cordialement,
Manu/

"Cyr13"
si quelqu' un peut m aider pour arreter ce code des que la feuille n est
plus
active
car le code continue en fond....

Private Sub Worksheet_Activate()

[D14:N22].Interior.ColorIndex = 15
[E16:E20].Interior.ColorIndex = 16
[F16:F20].Interior.ColorIndex = 16
[G16:G20].Interior.ColorIndex = 16
[H16:H20].Interior.ColorIndex = 16
[I16:I20].Interior.ColorIndex = 16
[J16:J20].Interior.ColorIndex = 16
[K16:K20].Interior.ColorIndex = 16
[L16:L20].Interior.ColorIndex = 16
[M16:M20].Interior.ColorIndex = 16

For X = 1 To 30
[D14:N22].Interior.ColorIndex = 16
[E16:E20].Interior.ColorIndex = 15
Attente (3000)
[F16:F20].Interior.ColorIndex = 15
Attente (3000)
[G16:G20].Interior.ColorIndex = 15
Attente (3000)
[H16:H20].Interior.ColorIndex = 15
Attente (3000)
[I16:I20].Interior.ColorIndex = 15
Attente (3000)
[J16:J20].Interior.ColorIndex = 15
Attente (3000)
[K16:K20].Interior.ColorIndex = 15
Attente (3000)
[L16:L20].Interior.ColorIndex = 15
Attente (3000)
[M16:M20].Interior.ColorIndex = 15
Attente (3000)
[D14:N22].Interior.ColorIndex = 15
[E16:E20].Interior.ColorIndex = 16
Attente (3000)
[F16:F20].Interior.ColorIndex = 16
Attente (3000)
[G16:G20].Interior.ColorIndex = 16
Attente (3000)
[H16:H20].Interior.ColorIndex = 16
Attente (3000)
[I16:I20].Interior.ColorIndex = 16
Attente (3000)
[J16:J20].Interior.ColorIndex = 16
Attente (3000)
[K16:K20].Interior.ColorIndex = 16
Attente (3000)
[L16:L20].Interior.ColorIndex = 16
Attente (3000)
[M16:M20].Interior.ColorIndex = 16
Attente (3000)
[D14:N22].Interior.ColorIndex = 16
Next X

End Sub
Sub Attente(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..







Publicité
Poster une réponse
Anonyme