[Résolu] Clignotement des cellules avec couleurs aléatoires

Roland_M

XLDnaute Barbatruc

• 31 Mars 2012

• #2

Re : Clignotement des cellules avec couleurs aléatoires

bonsoir à tous.

si je peux te donner un conseil(déjà donné) et qui ne solutionnera bien sûr pas ton problème !
A EVITER !
les procédures existent. mais ce sont des sources de problèmes !

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 31 Mars 2012

• #3

Re : Clignotement des cellules avec couleurs aléatoires

Bonsoir Roland,

A EVITER !
les procédures existent. mais ce sont des sources de problèmes !

Cliquez pour agrandir...

Tu pourrais préciser s'il te plaît? Je ne comprends pas.


A+ 😎


Amicalement
Lone-wolf

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 31 Mars 2012

• #4

Re : Clignotement des cellules avec couleurs aléatoires

Désolé pour le message à double. 😱




A+ 😎


Amicalement
Lone-wolf

 

Dernière édition: 31 Mars 2012

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 31 Mars 2012

• #5

Re : Clignotement des cellules avec couleurs aléatoires

Bonsoir Lone-wolf

"Plage" est un objet, la définition d'un objet se fait par : Set

Code:

Set Plage = Sheets("Arc en ciel").Range("H7:N13")

A+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 31 Mars 2012

• #6

Re : Clignotement des cellules avec couleurs aléatoires

Bonsoir Bruno,

d'accord, merci. Est-ce que le reste du code est juste?


A+ 😎


Amicalement
Lone-wolf

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Mars 2012

• #7

Re : Clignotement des cellules avec couleurs aléatoires

Bonsour®

???

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
'--------------- nombre de couleurs
x = Int(Rnd() * 56)
'--------------
Application.ScreenUpdating = False
'--------------
For Each cel In Range("B2:W20")
'-------------remplissage aléatoire parmi x couleurs
cel.Interior.ColorIndex = Int(Rnd() * x)
Next cel
'--------------
Application.ScreenUpdating = True
End SubEnd Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Avril 2012

• #8

Re : Clignotement des cellules avec couleurs aléatoires

Bonsoir Modeste geedee,

désolé mais ça ne fonctionne pas comme je le souhaite.

Il manque le timing (timer Do Loop) entre les couleurs et j'aimerais effectuer le code sur DoubleClick.

A+ 😎

Amicalement
Lone-wolf

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 1 Avril 2012

• #9

Re : Clignotement des cellules avec couleurs aléatoires

re:

s'il s'agit simplement de boucler sur des couleurs, alors peut-être comme ceci ...
en double-cliquant dans le carré

 

Pièces jointes

• Copie de Classeur1(1).xls

  34 KB · Affichages: 55
• Copie de Classeur1(1).xls

  34 KB · Affichages: 55
• Copie de Classeur1(1).xls

  34 KB · Affichages: 54

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Avril 2012

• #10

Re : Clignotement des cellules avec couleurs aléatoires

Bonjour Roland,

pas mal du tout 😉, mais beaucoup trop rapide.

Regarde mon fichier joint. Ce qu'il faudrait ajouter c'est un Random sur les cellules.
Double-clique sur n'impote quelle cellule.

A+ 😎


Amicalement
Lone-wolf

 

Pièces jointes

• Cellules clignotantes.xls

  162.5 KB · Affichages: 50

Dernière édition: 1 Avril 2012

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Avril 2012

• #11

Re : Clignotement des cellules avec couleurs aléatoires

Alt! Stop! Arrêtez tout !! 😀

J'ai enfin obtenu le résultat souhaité.

Voir PJ


A+ 😎


Amicalement
Lone-wolf

 

Pièces jointes

• Cellules clignotantes-Final.xls

  154.5 KB · Affichages: 63

Vote positif 0 Vote négatif