Bonjour,
J'ai un petit soucis de : " rien ne se passe "
voici mon code pourtant simple :
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.
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 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 ?
Partager