Bonjour,

J'ai un petit soucis de : " rien ne se passe "


voici mon code pourtant simple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim compteur1 As Integer
Dim compteur2 As Integer
Dim sum As Integer
Dim compt As Integer
Dim cellule As Integer
Dim t(500, 6) As Variant
 
' initialistion de compteur1 pour l'ecriture sur la feuille résumer
sum = 0
compt = 6
MsgBox ("coucou")
ActiveSheet.Cells.Clear
MsgBox ("coucou")
Le soucis est que quand je le met directement dans la page, tout va bien, mais dès que je le passe dans un module cela m'affiche le premier "coucou", mais pas le 2eme.
Le programme ne plante pas, rien ne se passe..
Pourriez vous m'aider ?


Nouvelle bizarerie...ca me met a marcher tout seul sans modification du code...

Quelqu'un aurait une explication ?