[XL-2007] Objets, Set, .Activate et d'autres horreurs [Résolu]

[Kwick]

Bonjour à tous.

Je commence en cours les objets, et je m'y perds !

Exercice pour Mardi :
Ecrire une procédure exercice1b qui successivement choisit une cellule aléatoirement dans la plage A1:J10 de la feuille active, attend 2 secondes et la colore avec une couleur aléatoire en faisant appel à la procédure exercice1a.

Voiçi la procédure exercice1a (qui fonctionne ) :

Code :

1
2
3
Sub exercice1a()
    ActiveCell.Interior.ColorIndex = Int(Rnd() * 49 + 1)
End Sub

Et voiçi ma procédure exercice1b (qui ne fonctionne pas ) :

Code :

1
2
3
4
5
6
7
8
Sub exercice1b()
    Dim rg As Range, ce As Range
    Set rg = Range("A1:J10") 'indique que rg est dans telle série de cellules
    Set ce = rg.Cells(Int(Rnd() * 9 + 1), Int(Rnd() * 9 + 1)) 'rg.Cells est la liste des cellules qu'elle contient
    ce.Activate
    Application.Wait Now + TimeValue("0:00:02") 'attend 2 secondes
    Call exercice1a
End Sub

Erreur affichée : "Erreur d'execution '1004' : Erreur définie par l'application ou par l'objet"

Note importante : On est obligés d'utiliser les syntaxes relatives aux objets.

Pourquoi ça ne marche pas ?
Merci d'avance.

Kwick

[Gorfael]

Salut Kwick et le forum

Pourquoi ça ne marche pas ?

Parce que ça n'a pas de jambes

Chez moi, ça fonctionne. Donc, difficile de t'aider.

Juste une remarque : Tu travailles avec ActiveCell => ça t'oblige à utiliser des Sélect/Activate).
- Il me semblerait plus judicieux de transmettre le paramètre ce à la seconde macro, soit en tant qu'adresse, soit en tant que cellule.
- Les Select/Activate ont quelques limitations, entre autres de ne pouvoir fonctionner correctement si elles concernent une plage d'une autre feuille que celle liée au module de classe "feuille" dans laquelle est le code.
- Ces instructions, non contentes de rendre plus illisible le code, ralentissent notablement son fonctionnement.
A+

[supersnail]

Bonjour,

Ton erreur a lieu sur quelle ligne?

[babaothe]

Salut,
C'est application.Wait qui réserve parfois des surprises, notamment avec Excel 2007
Privilégie plutôt (pour 2 seules secondes) l'utilisation de la fonction Timer, ainsi :

Code :

1
2
3
4
deb = Timer
   Do While Timer - deb < 2
      DoEvents
    Loop

et tu échapperas aux caprices de la version 2007