Discussion :

[2Minou9]

Bonjour à tous,
Je sais que cette question a d'ores et déjà était posée le problème est que ça ne fonctionne pas pour mon fichier et j'aimerai comprendre pourquoi grâce à votre aide.

Je souhaite que ma procédure sub se déclenche des qu'il y a un changement sur la feuille s. A savoir mon fichier comportera une vingtaine de feuilles raison pour laquelle je souhaitais faire un appel de procédure dans l'objet workbook. L'appel fonctionne cependant ça ne m'exclu pas ma feuil2. Je me suis dis que ça venait du fait que c'était intégré dans une procédure de type Workbook_SheetChange..
Voici mon code pour exclure ma feuil2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "Feuil2" Then
        Call Couleur
    End If
Next ws
End Sub

(Je n'ai pas réussi à joindre de fichier)
Je m'en remet à vous. Je vous remercie d'avance pour votre aide.

[Philippe Tulliez]

Bonjour,
Pourquoi une boucle alors que la procédure événementielle Workbook_SheetChange te donne l'objet Sheet en argument (sh)
Ton test doit s'effectuer avec la propriété Name de l'objet soit sh.Name (Attention à la casse)

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If StrComp(Sh.Name, "feuil2", vbTextCompare) Then
     ' Code du traitement si <> de Feuil2
  End If
End Sub

[2Minou9]

Bonsoir,
Désolée pour le temps de réponse je n'étais pas disponible ce week end. J'ai essayé votre solution et ça fonctionne. Merci beaucoup !
Je débute en VBA et j'ai loin d'avoir fini mon apprentissage.
En tout cas merci encore une fois pour votre efficacité et votre rapidité.