Discussion :

[babemagus]

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 ?

[babemagus]

Sans rire, tu pense que ca viens de l'OS ?

Comme c'est pour le boulot, j'ai pas envie que ca marche pas ...

[COCONUT2]

Si ca marche, tu sauvegardes!
Et tu réessaie demain pour valider que ca marche bien.

Sinon, tu évite les manoeuvres intuitives du type

Code :

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

Activesheets.

et tu mets des commandes plus ciblées

Code :

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

Sheets("onglet").

Ca évite les erreurs en lancant la macro à partir de la mauvaise feuille
ou alors de ne pas travailler sur la bonne feuille pendant les tests parcequ'avant de taper sur F8, on a joué avec Alt + Tab et on n'était pas sur la bonne feuille.