Discussion :

[perchman]

Bonjour à tous,

Joyeux Noël

J'ai eu un TP de VBA Excel fin décembre avec 8 exos !

Et je dois le faire chez moi car on a pas assez avancé pendant le TP (1 exo en 2h)...

voici mon code !! les SUB colore_cellule_active, exercice1b fonctionnent très bien... malheureusement ce n'est pas le cas de exercice1c... et je ne vois pas l'erreur !!!

Merci bien !

(je risque de faire appel à vous pour les autres exos)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Sub colore_cellule_active()
    Dim col As Integer
    Randomize
    col = Int(50 * Rnd) + 1
    ActiveCell.Interior.ColorIndex = col                'la cellule active est remplie avec une couleur
End Sub

Sub exercice1b()
    Dim colonne As Integer
    Dim ligne As Integer

    'Cells.Clear                                        'effacer le contenu des cellules
    Randomize                                           'activation une cellule au hasard
    colonne = Int(10 * Rnd) + 1
    ligne = Int(10 * Rnd) + 1
    Cells(ligne, colonne).Activate

    Application.Wait (Now + TimeValue("00:00:02"))      'attente de 2s
    Call colore_cellule_active                          'appel de la fonction colore_cellule
End Sub

Sub exercice1c()
    Dim x As Integer
    Dim fe As Integer
    x = Sheets.Count                    'compte le nombre de feuilles
    
    Randomize
    fe = Int(x * Rnd) + 1
    Worksheets(fe).Activate             'activation de la feuille n°X
    Call exercice1b
End Sub

[DidierLoche]

Bonjour,

Qu'est ce qui ne marche dans ton code ? Quel est le résultat attendu ?
Je l'ai fait tourné sur E-03 et je n'ai pas de message d'erreur.

- une feuille est choisie au hazard
- une cellule est choisie au hazard
- cette cellule est coloriée avec une couleur aléatoire

Quel est le problème donc ?

Didier

[perchman]

C'est ça !!

mais moi, je n'arrive pas à la faire fonctionner !!

ça affiche "erreur 400" !!!

[DidierLoche]

Lance ta macro en pas-à-pas pour savoir où est-ce que cela coince.
Peut-être qu'au lieu de "Activate", tu devrais utiliser "Select" ??

Didier

[perchman]

j'ai 1 soucis !! il n'y a plus que la 1ère qui marche !!

j'ai l'erreur suivante: "erreur définie par l'application ou par l'objet" !!

je n'ai pourtant rien touché !!

[DidierLoche]

Execute ton code en mode pas-à-pas (F8 dans VBA) pour savoir où est le problème.

Didier