Double appel de fonction...

[aziatedu13]

Bonjour,

J'ai un problème dans mon code.
Ce n'est pas un problème d'algo ou de code, mais d'appel à ma fonction...

Mon problème est que ma fonction est appelé deux fois dessuite ( visible en mode pas à pas ).
à la première passe, c'est bien ce que je veux faire, soir un décalage de feuille dans un classeur à partir de la feuille active.
Mais ma fonction est réappelée et je ne sait pas pourquoi....

Je met le code au cas ou...

Sub decallePDT()

Dim indice As Integer

indice = 0
Dim aSheet As Object
For Each aSheet In ActiveWorkbook.Sheets
indice = indice + 1
If ActiveSheet.Name = aSheet.Name Then
Exit For
End If
Next

If indice <> 0 Then
For i = indice To ActiveWorkbook.Sheets.Count - 1
ActiveWorkbook.Sheets.Item(i + 1).Range("A1:G100").Copy ActiveWorkbook.Sheets.Item(i).Range("A1")
Next
Application.DisplayAlerts = False
ActiveWorkbook.Sheets.Item(ActiveWorkbook.Sheets.Count).Delete
Application.DisplayAlerts = True
End If
End Sub


Si vous avez des idées pourquoi elle est appelée deux fois, je vous en serai reconnaissant...

 

[Guest]

Re : Double appel de fonction...

Bonjour,

Si tu appelles ta fonction dans un évènement de feuille, ajout en début de fonction:

Application.EnableEvents =false

et en fin

Application.EnableEvents = true

ou avant et après l'appel de la fonction
A+

 

[aziatedu13]

Re : Double appel de fonction...

Bonjour,

je pensai aussi au event, mais j'appel ma fonction basiquement avec Outils=>Macro=>Executer macro...

Donc il n'y a aucun event qui lance ma fonction.