Appel de procédure

[jopont]

Dans la procédure événementielle qui suit je récupère dans la zone C3:BL25 les codes d'une liste. Cette partie du code fonctionne
Dans la deuxième partie de la procédure je cherche a détecter un changement dans la zone BV4:BV10.En cas de changement je veux lancer une procédure contenue dans un module. Cette partie ne fonctionne pas.
La procédure du module fonctionne et a été testée.

merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C3:BL65"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
If Not Intersect(Target, [BV4:BV10]) Is Nothing Then
Call Nbjoursup3
End If
End If
End Sub

 

[Dull]

Re : Appel de procédure

Salut jopont, Le Forum

essaye de déplacer un des End If

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C3:BL65"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex =
[liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
[B][COLOR=Red]End If[/COLOR][/B]
If Not Intersect(Target, [BV4:BV10]) Is Nothing Then
Call Nbjoursup3
End If
End Sub

A Tester

Bonne Journée

 

[jopont]

Re : Appel de procédure

J'ai fait le déplacement des end if mais ça ne fonctionne toujours pas

 

[jopont]

Re : Appel de procédure

Je ne parviens pas à appeler cette procédure

quelqu'un peut-il m'aider ?

 

[Pierrot93]

Re : Appel de procédure

Bonjour Jopont, re Dull

quand tu dis je n'arrive pas à appeler cette procédure, cela veut dire quoi ? tu as un message d'erreur ou il ne se passe rien ? un petit fichier reproduisant le cas serait le bienvenu afin de t'aider

 

[Dull]

Re : Appel de procédure

Re jopont, le Fil

Éventuellement peut-tu mettre un extrait de ton fichier en Pièce jointe

EDITION: Arf Pierrot 🙂

bonne journée

 

[jopont]

Re : Appel de procédure

J'ai mis ça et ça fonctionne à présent.

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Call Nbjoursup3
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("C3:BL65"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
Application.EnableEvents = True
End Sub