Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mfc

Mfc

6 réponses
Avatar
TechBM
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
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
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




Avatar
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




Avatar
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

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 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


Avatar
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

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






Avatar
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

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








Avatar
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

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 -