Bonjour,
je travail sur un fichier avec plusieurs onglets identiques
j'ai fait une mise en forme conditionnelle vba en m'appuyant sur le fichier de monsieur Boisgontier cijoint
Il y a développé trois exemples cas1 2 et 3 , les trois exemple fonctionne en appelant un champ nommé:
champMFC =Cas1!$B$3:$F$15 qui se réfère à la feuille cas 1 cette ref fonctionne aussi pour les deux autres feuilles!?
si je crée une feuille cas 4 en insérant un feuille et en dupliquant le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([ChampMFC], Target) Is Nothing Then
Application.EnableEvents = False
On Error Resume Next
[couleurs].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.EnableEvents = True
End If
End Sub
il plante à la ligne If Not Intersect([ChampMFC], Target) Is Nothing Then
Si je référence ChampMFC =cas4!$B$3:$F$15 la feuille fonctionne mais pas les autres(123)
maintenant si je crée une copie de la feuil cas1 (cas5)
elle fonctionne
Bref je nage dans le potage
Comment faire pour que la plage nommée fonctionne pour les feuilles de mon choix
je suis en 2003
Nb quand je supprime à la création la ref à l'onglet il me l'a remet à chaque fois
merci m'avoir lu
je travail sur un fichier avec plusieurs onglets identiques
j'ai fait une mise en forme conditionnelle vba en m'appuyant sur le fichier de monsieur Boisgontier cijoint
Il y a développé trois exemples cas1 2 et 3 , les trois exemple fonctionne en appelant un champ nommé:
champMFC =Cas1!$B$3:$F$15 qui se réfère à la feuille cas 1 cette ref fonctionne aussi pour les deux autres feuilles!?
si je crée une feuille cas 4 en insérant un feuille et en dupliquant le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([ChampMFC], Target) Is Nothing Then
Application.EnableEvents = False
On Error Resume Next
[couleurs].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.EnableEvents = True
End If
End Sub
il plante à la ligne If Not Intersect([ChampMFC], Target) Is Nothing Then
Si je référence ChampMFC =cas4!$B$3:$F$15 la feuille fonctionne mais pas les autres(123)
maintenant si je crée une copie de la feuil cas1 (cas5)
elle fonctionne
Bref je nage dans le potage
Comment faire pour que la plage nommée fonctionne pour les feuilles de mon choix
je suis en 2003
Nb quand je supprime à la création la ref à l'onglet il me l'a remet à chaque fois
merci m'avoir lu