Discussion :

[i0raek]

Bonjour forum !!!

Voici mon problème : j'ai créé une fonction personnalisée que j'utilise dans des feuilles d'excel. Jusqu'ici tout va bien...

La où j'ai un problème c'est que cette fonction s'active à chaque modification d'une cellule quelconque, liée ou pas avec la fonction !!!

Le mieux c'est que, quand à j'ouvre en parallèle de mon fichier excel un classeur vierge, et que je modifie une cellule dans ce classeur vierge de formule et de code, la fonction s'active !!!

La fonction n'est pas longue à s'exécuter toutefois, je suis amené régulièrement à modifier de manière automatique un grand nombre de cellule (plus de 300...) donc le code de la fonction s'exécuter plus de 300 fois ce qui deviens vite très très long !!!

voici un fichier d'exemple si cela peut vous aiguiller...

ps : bien que ce dernier contienne une procédure worksheet_change, celle-ci n'a pas d'influence sur le problème, pour s'en convaincre, on peut la passer en commentaire et rien ne s'améliore...

Merci d'avance pour votre aide !!! toute proposition sera la bienvenue !!!

[fring]

Bonjour,

Je vois pas vraiment où se situe le binz mais j'ai juste constaté un ptit truc dans le code suivant

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
Sub Worksheet_Change(ByVal Target As Range)
    
    If flag = True Then
        Exit Sub
    End If
    
    flag = True
    
    If Feuil1.Range("A1") = "oui" Then
        Feuil1.Range("A1") = "non"
    Else
        Feuil1.Range("A1") = oui
    End If
    
    flag = False
    
End Sub

il manque les ""
@+

[i0raek]

Re,

exact ! je n'avais pas vu...

mais le problème de la fonction persiste...

[fring]

juste pour mon info personnelle, c'est quoi cette variable "flag" ?

qu'est ce qu'il fait qu'elle devient true ?

[i0raek]

Re,

la variable flag empêche la procédure worksheet_change de tourner en boucle :

si tu change une valeur dans la feuille, la procédure se lance, si au cours de la procédure une valeur rechange, la procédure se réinitialise et ainsi de suite... ce qui est génant !

donc tu mais la variable flag que tu déclare en public as boolean (donc false par défaut)

quand tu rentres dans le code tu la met en true comme ca si le code boucle avec un petit exit sub au début si flag = true tu t'en sors et ton fichier ne bug pas !!!

j'espère avoir été suffisament clair sinon demande !!!

[fring]

merci, parfaitement clair et je me met cette petite astuce de côté au cas où