private sub qui boucle et ne s'arrete pas

[marie49]

Bonjour,

J'ai une private sub qui boucle et qui ne sait pas s'arreter. Sauriez vous pourquoi?

Voici le code :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Nbrcol As Integer

Dim NbrLig As Integer
Nbrcol = Sheets("BASIC").Cells(7, 256).End(xlToLeft).Column
NbrLig = Sheets("BASIC").Cells(65536, "K").End(xlUp).Row

If Not Application.Intersect(Target, Range("X10", Cells(NbrLig, Nbrcol))) Is Nothing Then
mise_enforme_couleur
End If

End Sub


La sub "mise_enforme_couleur" permet d'obtenir des chiffres dans une case et de colorer ses cases.
Si je met X15 à la place de X10 dans "Application.Intersect(Target, Range("X10", Cells(NbrLig, Nbrcol)))", elle s'arrete, il n'y pas de bouclage sans fin.

dans la ligne 11, j'ai une formule de calcul (du type cellule au dessus +1). Est ce que cela peut venir de ma ligne 11?

Merci pour toutes vos reponses. Je tiens a dire que je suis toujours très bien aidée sur ce forum.
Bonne continuation
Marie


Désolée, je viens de trouver mon erreur et une belle erreur. Ma sub "mise_enforme_couleur" modifie la valeur de la ligne 12, donc ma private sub tournait toujours. Je dois essayer de faire autrement.

J'arrete pour ce soir trop de connerie
Marie

 

[marie49]

Re : private sub qui boucle et ne s'arrete pas

MERCI BEAUCOUP

ça marche
A bientot
Marie

 

[marie49]

Re : private sub qui boucle et ne s'arrete pas

Bonjour,

ca ne marche plus et pourtant je n'ai rien modifié de ce côté là.

Y a t-il une option qui désactive le changement automatique dans des cellules??

Merci
Marie

 

[skoobi]

Re : private sub qui boucle et ne s'arrete pas

Bonsoir le fil,

pour s'en sortir : fermer et réouvrir le fichier ou réaliser une macro :
sub toto
Application.EnableEvents = True
end sub
et la lancer une fois

ou plus simplement:
dans l'éditeur de macro, ouvrir la fenêtre d'exécution (Ctrl+G) puis taper le code de Jean-Marcel:

Application.EnableEvents = True

😉

 

[marie49]

Re : private sub qui boucle et ne s'arrete pas

Bonjour à tous,

je vous remercie pour vos réponses.
J'avais enlevé
Application.EnableEvents = False
et
Application.EnableEvents = True

Ai je eu tort?
Merci

Marie

 

[skoobi]

Re : private sub qui boucle et ne s'arrete pas

Re bonjour,

Et oui....
Je te renvoie au dernier message de Jean-Marcel.

 

[marie49]

Re : private sub qui boucle et ne s'arrete pas

Merci pour la réponse.

Donc, je vais remettre ces deux instructions.
Il faudra que je dise à l'utilisateur comment agir si la mise a jour automatique ne fonctionne pas dans ce cas la.

Merci
Marie

 

[marie49]

Re : private sub qui boucle et ne s'arrete pas

Bonsoir,

Merci pour ta réponse, je vais tester.
Je crois que ma macro mise en couleur plantait surtout par ce qu'elle était en période de test.

A bientot
Marie