J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs
couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle
me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de
l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count = 1 And Not témoin Then
Application.EnableEvents = False
Target.Interior.ColorIndex = xlNone
For Each c In Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
Application.EnableEvents = True
End If
End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et
me dise se qui ne va pas !!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. Essaie : If Not Intersect(Target, Range("ChampMFC")) Is Nothing etc. Cordialement. Daniel "TechBM" a écrit dans le message de news:
Bonne a tous et boujour a tous !!!!
J'ai un petit probleme avec ma MFC
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
Bonsoir.
Essaie :
If Not Intersect(Target, Range("ChampMFC")) Is Nothing etc.
Cordialement.
Daniel
"TechBM" <djuone@free.fr> a écrit dans le message de news:
E716AF03-30B6-4D7C-9172-4FE34ACDAA14@microsoft.com...
Bonne a tous et boujour a tous !!!!
J'ai un petit probleme avec ma MFC
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs
couleurs en fonction de mes congés. mais cette macro ne fonctionne pas
elle
me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range'
de
l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count = 1 And Not témoin Then
Application.EnableEvents = False
Target.Interior.ColorIndex = xlNone
For Each c In Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
Application.EnableEvents = True
End If
End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et
me dise se qui ne va pas !!
Bonsoir. Essaie : If Not Intersect(Target, Range("ChampMFC")) Is Nothing etc. Cordialement. Daniel "TechBM" a écrit dans le message de news:
Bonne a tous et boujour a tous !!!!
J'ai un petit probleme avec ma MFC
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
Trirème
Bonsoir TechBM Je crois que tu as voulu écrire : If Not Intersect(Target, Range("ChampMFC")) au lieu de : If Not Intersect(Target, Range(Range("ChampMFC")))
Chez moi ça fonctionne. C'est à dire que ça fait ce que je crois que ça doit faire.
Cordialement, Trirème
Bonne a tous et boujour a tous !!!!
J'ai un petit probleme avec ma MFC
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
Bonsoir TechBM
Je crois que tu as voulu écrire : If Not Intersect(Target, Range("ChampMFC"))
au lieu de : If Not Intersect(Target, Range(Range("ChampMFC")))
Chez moi ça fonctionne.
C'est à dire que ça fait ce que je crois que ça doit faire.
Cordialement,
Trirème
Bonne a tous et boujour a tous !!!!
J'ai un petit probleme avec ma MFC
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs
couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle
me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de
l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count = 1 And Not témoin Then
Application.EnableEvents = False
Target.Interior.ColorIndex = xlNone
For Each c In Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
Application.EnableEvents = True
End If
End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et
me dise se qui ne va pas !!
Bonsoir TechBM Je crois que tu as voulu écrire : If Not Intersect(Target, Range("ChampMFC")) au lieu de : If Not Intersect(Target, Range(Range("ChampMFC")))
Chez moi ça fonctionne. C'est à dire que ça fait ce que je crois que ça doit faire.
Cordialement, Trirème
Bonne a tous et boujour a tous !!!!
J'ai un petit probleme avec ma MFC
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
JB
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas e lle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Rang e' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("ChampMFC")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = xlNone
For Each c In Sheets("Couleurs").Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
End If
End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs
couleurs en fonction de mes congés. mais cette macro ne fonctionne pas e lle
me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Rang e' de
l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count = 1 And Not témoin Then
Application.EnableEvents = False
Target.Interior.ColorIndex = xlNone
For Each c In Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
Application.EnableEvents = True
End If
End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et
me dise se qui ne va pas !!
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas e lle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Rang e' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
TechBM
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche pas !! Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche
pas !!
Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas
possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous
puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("ChampMFC")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = xlNone
For Each c In Sheets("Couleurs").Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
End If
End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs
couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle
me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de
l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count = 1 And Not témoin Then
Application.EnableEvents = False
Target.Interior.ColorIndex = xlNone
For Each c In Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
Application.EnableEvents = True
End If
End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et
me dise se qui ne va pas !!
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche pas !! Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
Daniel.C
Bonjour. Fais une copie de la feuille concernée dans un nouveau classeur (ou des feuilles, si les plages nommées sont sur des feuilles différentes), supprime tout ce qui n'est pas indispensable, et si c'est encore trop volumineux, utilise WinZip ou WinRar. Daniel "TechBM" a écrit dans le message de news:
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche pas !! Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
Bonjour.
Fais une copie de la feuille concernée dans un nouveau classeur (ou des
feuilles, si les plages nommées sont sur des feuilles différentes), supprime
tout ce qui n'est pas indispensable, et si c'est encore trop volumineux,
utilise WinZip ou WinRar.
Daniel
"TechBM" <djuone@free.fr> a écrit dans le message de news:
E4773AF7-5631-4F0B-82BC-8E89018D0818@microsoft.com...
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne
marche
pas !!
Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est
pas
possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous
puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("ChampMFC")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = xlNone
For Each c In Sheets("Couleurs").Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
End If
End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir
plusieurs
couleurs en fonction de mes congés. mais cette macro ne fonctionne pas
elle
me met ce message d'erreur : Erreur d'execution '1004': ma méthode
'Range' de
l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count = 1 And Not témoin Then
Application.EnableEvents = False
Target.Interior.ColorIndex = xlNone
For Each c In Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
Application.EnableEvents = True
End If
End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel
et
me dise se qui ne va pas !!
Bonjour. Fais une copie de la feuille concernée dans un nouveau classeur (ou des feuilles, si les plages nommées sont sur des feuilles différentes), supprime tout ce qui n'est pas indispensable, et si c'est encore trop volumineux, utilise WinZip ou WinRar. Daniel "TechBM" a écrit dans le message de news:
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche pas !! Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusieurs couleurs en fonction de mes congés. mais cette macro ne fonctionne pas elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode 'Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur excel et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide
JB
Bonjour,
Les noms de champ sont-ils ok?
JB On 11 jan, 14:05, TechBM wrote:
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche pas !! Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusie urs couleurs en fonction de mes congés. mais cette macro ne fonctionne p as elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode ' Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorInd ex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur exce l et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Les noms de champ sont-ils ok?
boisgontier@hotmail.com
JB
On 11 jan, 14:05, TechBM <dju...@free.fr> wrote:
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche
pas !!
Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas
possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous
puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("ChampMFC")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = xlNone
For Each c In Sheets("Couleurs").Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
Next c
End If
End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusie urs
couleurs en fonction de mes congés. mais cette macro ne fonctionne p as elle
me met ce message d'erreur : Erreur d'execution '1004': ma méthode ' Range' de
l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count = 1 And Not témoin Then
Application.EnableEvents = False
Target.Interior.ColorIndex = xlNone
For Each c In Range("couleursMFC")
If UCase(Target.Value) = UCase(c.Value) Then
Target.Interior.ColorIndex = c.Interior.ColorInd ex
End If
Next c
Application.EnableEvents = True
End If
End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur exce l et
me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide- Masquer le texte des messages précédents -
Ecoutez cela marche très bien sur vos planning mais sur le mien ça ne marche pas !! Je ne comprend pas !!
puis je vous envoyé mon fichier ? Par contre par " ci-joint " cela n'est pas possible car fichier trop volumineux !!!
Avez-vous une solution pour faire parvenir mon fichier afin que vous puissiez résoudre mon problème !!! ( ex: sendbox )
Merci d'avance
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("ChampMFC")) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = xlNone For Each c In Sheets("Couleurs").Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorIndex End If Next c End If End Sub
J'ai pu mettre dans mon planning une macro me permettant 'avoir plusie urs couleurs en fonction de mes congés. mais cette macro ne fonctionne p as elle me met ce message d'erreur : Erreur d'execution '1004': ma méthode ' Range' de l'objet'_Worksheet a échoué.
Que dois je faire ?
En fait la macro est :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And Target.Count = 1 And Not témoin Then Application.EnableEvents = False Target.Interior.ColorIndex = xlNone For Each c In Range("couleursMFC") If UCase(Target.Value) = UCase(c.Value) Then Target.Interior.ColorIndex = c.Interior.ColorInd ex End If Next c Application.EnableEvents = True End If End Sub
Serait-il possible que quelqu'un la teste sur un nouveau classeur exce l et me dise se qui ne va pas !!
Et si possible me donner la solution !!!!
Merci pour votre aide- Masquer le texte des messages précédents -
