Ce problème semble simple mais...

[vincent2187]

Bonjour j'ai un soucis avec une matrice qui pourrait m'être très utile au boulot, le problème est que ça ne fonctionne pas comme je veux.
Je met en pièce jointe une version très simplifiée mais si quelqu'un me débloque sur cette petite version, il me débloquera sur tout.

Normalement la couleur de la cellule A1 de l'onglet auto devrait changer automatiquement quand je change la valeur dans la cellule A1 de l'onglet manu.
Mon exemple doit aussi fonctionner si la cellule à changer manuellement se trouve dans un autre classeur.

 

[noviceAG]

Re : Ce problème semble simple mais...

Je met en pièce jointe une version très simplifiée

Bonjour Vincent, le Forum,
Ou la mets-tu ?

 

[vincent2187]

Re : Ce problème semble simple mais...

Voilà la pièce jointe désolé

 

[Modeste]

Re : Ce problème semble simple mais...

Bonjour vincent2187, noviceAG,

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect([ChampMFC], Target) Is Nothing Then
    
    On Error Resume Next
    
    Set cible = [couleurs].Find(Target.Value, LookAt:=xlWhole)
    Target.Font.ColorIndex = cible.Font.ColorIndex
    Target.Interior.ColorIndex = cible.Interior.ColorIndex
  End If

End Sub

... Semble fonctionner

 

[vincent2187]

Re : Ce problème semble simple mais...

le problème c'est que je suis obligé d'aller dans la cellule et valider la fonction manuellement pour que la couleur change.
j'aimerais que ça se fasse automatiquement dans la feuille "auto", quand je rentre une valeur dans la feuille "manu"

 

[Efgé]

Re : Ce problème semble simple mais...

Bonjour à tous,
Je ne sait aps si cela va vous aller, mais si vous devez entrer manuellement votre valeur sur une autre feuille, il vous faudra activer ensuite la feuille d'arrivée. Donc pourquoi pas (avec le code de Modeste):

Private Sub Worksheet_Activate()
Set cible = [couleurs].Find(Range("A1").Value, LookAt:=xlWhole)
    Range("A1").Font.ColorIndex = cible.Font.ColorIndex
    Range("A1").Interior.ColorIndex = cible.Interior.ColorIndex
End Sub

Cordialement

 

[pierrejean]

Re : Ce problème semble simple mais...

bonjour a tous

un essai
nb : si OK 999 lignes de la feuille coul sont inutiles

 

[Efgé]

Re : Ce problème semble simple mais...

Re:
Ce code fonctionne mais suivant les dimensions du tableau il peut être long :

Private Sub Worksheet_Activate()
On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To 50
For j = 1 To 10
    Set cible = [couleurs].Find(Cells(i, j).Value, LookAt:=xlWhole)
    Cells(i, j).Font.ColorIndex = cible.Font.ColorIndex
    Cells(i, j).Interior.ColorIndex = cible.Interior.ColorIndex
Next j
Next i
Application.ScreenUpdating = True
End Sub

Cordialement

 

[Fo_rum]

Re : Ce problème semble simple mais...

Salut

une autre proposition (en double) avec la fonction Mod qui permet de supprimer de nombreuses cellules.
A noter que la macro évènementielle est dans la feuille d'écriture (Manu) !

 

[vincent2187]

Re : Ce problème semble simple mais...

ces macros fonctionnent dans ce cas là, mais normalement la feuille "manu" est dans un autre classeur.
En fait, une matrice prend les valeurs dans cet autre classeur et les couleur doivent se mettre automatiquement.
le problème est que j'ai essayé plusieurs macro, mais à chaque fois, la valeur se met bien à jour mais la couleur ne se modifie pas...

 

[pierrejean]

Re : Ce problème semble simple mais...

Re
Peux-tu mettre un exemple exact de ton problème (Si 2 ou + de fichiers poste les tous et mets nous le resultat attendu a partir de la manip que tu auras precisé ) ?