Ce problème semble simple mais...

noviceAG

XLDnaute Impliqué

• 22 Janvier 2010

• #2

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

vincent2187 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

V

vincent2187

Guest

• 22 Janvier 2010

• #3

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

Voilà la pièce jointe désolé

 

Dernière modification par un modérateur: 22 Janvier 2010

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 22 Janvier 2010

• #4

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

Bonjour vincent2187, noviceAG,

Code:

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

 

Vote positif 0 Vote négatif

V

vincent2187

Guest

• 22 Janvier 2010

• #5

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"

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Janvier 2010

• #6

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

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Janvier 2010

• #7

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

bonjour a tous

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

 

Pièces jointes

• problème.zip

  35.8 KB · Affichages: 17
• problème.zip

  35.8 KB · Affichages: 17
• problème.zip

  35.8 KB · Affichages: 15

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Janvier 2010

• #8

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

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

Code:

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

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 22 Janvier 2010

• #9

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

 

Pièces jointes

• Mod.zip

  5.2 KB · Affichages: 16
• Mod.zip

  5.2 KB · Affichages: 16
• Mod.zip

  5.2 KB · Affichages: 18

Vote positif 0 Vote négatif

V

vincent2187

Guest

• 22 Janvier 2010

• #10

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Janvier 2010

• #11

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é ) ?

 

Vote positif 0 Vote négatif