Worksheet_Change

[FJPT]

Bonjour à toutes et à tous

Je souhaite lors de la mise à jour d'une cellule, modifier la couleur d'autres cellules en fonction de son contenu.
Avec Target je récupère bien le contenu de la cellule mais si je fais des changements à l'intérieur du sous programme (si je ne me suis pas trompé) cela relance un évènement "Change" et le programme boucle.
Y-a-t'il un moyen d'empécher cela?
Par la même occasion, faisant des recherches j'ai trouvé ceci que je ne comprends pas trés bien (même pas du tout) :
Public Cell As Range
If Not Cell Is Nothing Then
Merci à celui qui m'expliquera et merci à toutes et à tous pour ce précieux forum.
Bonne fin de journée
FJPT

 

[BOISGONTIER]

Re : Worksheet_Change

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Target = Application.Proper(Target)
Application.EnableEvents = True
End If
End Sub

Gestion des événements

JB

 

[pierrejean]

Re : Worksheet_Change

bonjour FJPT

Voici comment je procede dans le cas de worksheet_change qui aboutit a un changement dans la feuille
Concernant la seconde question
Public Cell as Range signifie que la variable Cell est un Range qui sera reconnu par toutes les macros du projet
If Not Cell is Nothing signifie : Si le range Cell a deja été spécifié (par exemple par set CEll=range("A1") )

EDit: Salut BOISGONTIER Désolé pour la collision

 

[jp14]

Re : Worksheet_Change

Bonjour
Bonjour pierrejean, BOISGONTIER


Il faut pour éviter ce problème utiliser un "flag" qui bloque la procédure
exemple

Dim flag As Boolean

sub toto
If flag = True Then Exit Sub
flag = True

 si toto est appelé le flag étant positionné à true on quitte immédiatement la procédure

flag = False ' fin de la procédure la procédure est disponible
end sub

JP

 

[FJPT]

Re : Worksheet_Change

Merci à vous tous pour la rapidité et la précision de vos réponses

En fait les changements avec ColorIndex passent bien, mais pour pouvoir saisir aussi bien en minuscule qu'en majuscule et avoir l'affichage en majuscule j'avais écrit :
Target = Ucase(Target) et il n'aime pas.

Encore merci, BOISGONTIER, pierrejean et jp14 pour tout vos conseils.

Bonne fin de journée.

FJPT

 

[FJPT]

Re : Worksheet_Change

Re bonjour à tous

Je viens de cliquer sur le lien de BOISGONTIER, je suis soufflé par la mine de renseignements qu'il y a. J'y ai trouvé ce sur quoi je travaille depuis ce matin.

Merci à tous.

 

[GIBI]

Re : Worksheet_Change

bonjour,

pour bloquer les événement le temps d'une modifiaction tu utilise

EnableEvents = False
ton action
EnableEvents = True

GIBI

 

[FJPT]

Re : Worksheet_Change

Merci GIBI

Bonne soirée.