Discussion :

[mcary71]

voici une macro qui se trouve dans un module que j'ai purgé au maximum pour être plus lisibile

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
Sub supprdoublon()
 
    ligne = 2
`TRACE
Do While (ligne < 10)
 
 ligne = ligne + 1
 
 If (ligne > 5) Then
`je mets un point d'arret ici pour voir si on y passe
 Exit Sub
 End If
 
 Loop
 
End Sub

et donc mon soucis est qu'on passe bien par EXIT SUB qui devrait sortir de la macro , mais dans mon cas, la macro se relance et redemarre au debut !
j'y fais un simple appel via le menu d'excel des macros et en mode debogage

j'ai tente ce code aussi :

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
 
Sub supprdoublon()
 
Application.EnableEvents = False
 
    ligne = 2
`TRACE
Do While (ligne < 10)
 
 ligne = ligne + 1
 
 If (ligne > 5) Then
`je mets un point d'arret ici pour voir si on y passe
 Exit Sub
 End If
 
 Loop
 Application.EnableEvents = True
End Sub

mais ça n'y change rien !

Avez vous une idée?

Merci de votre aide !

[joe.levrai]

Bonjour,

c'est pas la procédure le problème, elle fonctionne bien (même si telle quelle, elle ne sert à rien)

en gros, elle sort par le Exit Sub et recommence à l'infini ?
ça ne peut venir que de la procédure appelante qui l'appelle en boucle

tu as trop épuré tes codes là, on peut pas savoir d'où ça vient

t'as pas une macro qui appelle cette procédure dans une boucle du style While ou Until etc.. et qui l'appelle à l'infini car la sortie de boucle ne s'effectue pas ?

[mcary71]

je l'appelle à partir du menu excel :

DEVELOPPEUR=>MACRO=> exécuter pas à pas


j'ai même essayé en l'affectant à un bouton que j'ai mis sur la feuille de calcul !

Rien n'y a changé, toujours pareil !

Ps : j'ai justement épuré le code, pour faire remarquer que ça ne provenait pas du code !

ça doit être un truc à régler dans Excel mais quoi ?

[SfJ5Rpw8]

bonjour,

peu-être ton code est trop épuré ...

rajoute tout en haut de ta page la ligne "Option Explicit" et déclare toutes tes variables...

[gnain]

Bonjour,
Est-ce que ton sub supprdoublon est appeler dans l'évenement Worksheet_SelectionChange ?

[mcary71]

Bonjour,
Est-ce que ton sub supprdoublon est appeler dans l'évenement Worksheet_SelectionChange ?

pas à ma connaissance, ou est ce qu'on viot ça ?

[Marc-L]

Bonjour.

Est-ce que ton sub supprdoublon est appeler dans l'évenement Worksheet_SelectionChange ?

De toute manière après le malencontreux Exit Sub du second code les évènements sont désactivés …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[mcary71]

bonjour,

peu-être ton code est trop épuré ...

rajoute tout en haut de ta page la ligne "Option Explicit" et déclare toutes tes variables...

j'ai epuré le code, pour faire remarquer que ça se produisait avec un code tout bête !


et donc après test et avec option explicit, ça fait la même chose !

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
 
Option Explicit
 
Dim ligne As Integer
 
Sub supprdoublon2()
 
Application.EnableEvents = False
 
    ligne = 2
 
Do While (ligne < 10)
 
 ligne = ligne + 1
 
 If (ligne > 5) Then
 
 Exit Sub
 End If
 
 Loop
 Application.EnableEvents = True
End Sub

Merci en tout cas de m'aider !

pour information,

je viens de tout fermer excel

- creer une nouvelle feuille
-creer une nouvelle macro
j'ai mis ce code :

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
 
Option Explicit
 
Dim ligne As Integer
 
Sub supprdoublon2()
 
Application.EnableEvents = False
 
    ligne = 2
 
Do While (ligne < 10)
 
 ligne = ligne + 1
 
 If (ligne > 5) Then
 
 Exit Sub
 End If
 
 Loop
 Application.EnableEvents = True
End Sub

et ça fait la même chose !

[gnain]

Bonjour,
normalement cela devrait fonctionné.
met ton code épurer dans un nouveau classeur vierge, et essaie.

[mcary71]

résultat identique !

je n'y comprends vraiment rien !