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

[Lone-wolf]

Bonsoir le Forum,

comme ces temps-ci, je n'ai pas de ministres à tuer; depuis que je suis là ça manque. 😉

J'essaie de faires clignoter des cellules avec 6 couleurs aléatoires pour chaque cellule; ceci avec For each.

Là problème, j'ai l'erreur Objet Requis sur cette ligne: Plage = Sheets("Arc en ciel").Range("H7:N13") .


Je vous remet le fichier en question.

A+ 😎

Amicalement
Lone-wolf

 

[Roland_M]

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 !

 

[Lone-wolf]

Re : Clignotement des cellules avec couleurs aléatoires

Bonsoir Roland,

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

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


A+ 😎


Amicalement
Lone-wolf

 

[Lone-wolf]

Re : Clignotement des cellules avec couleurs aléatoires

Désolé pour le message à double. 😱




A+ 😎


Amicalement
Lone-wolf

 

[Compte Supprimé 979]

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

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

A+

 

[Lone-wolf]

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

 

[Modeste geedee]

Re : Clignotement des cellules avec couleurs aléatoires

Bonsour®

???

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

 

[Lone-wolf]

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

 

[Roland_M]

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é

 

[Lone-wolf]

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

 

[Lone-wolf]

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