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
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
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
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
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
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
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 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
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 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
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 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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM wrote: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,
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM <dju...@free.fr> wrote:
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,
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM wrote: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
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'avanceBonsoir,
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM wrote: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
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM <dju...@free.fr> wrote:
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
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'avanceBonsoir,
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM wrote: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
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'avanceBonsoir,
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM wrote: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 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 -
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM <dju...@free.fr> wrote:
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 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 -
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'avanceBonsoir,
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
http://cjoint.com/?bku7LlPNWK
http://boisgontierjacques.free.fr/pages_site/dates.htm#Planning1
JB
On 10 jan, 18:26, TechBM wrote: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 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 -