Macro to formule

[Temjeh]

Bonjour à tous du Québec

Juste pour savoir si on peut faire ceci sans macro:

If Range("D7") = "T" Then
Range("C7").Select
Selection.Font.ColorIndex = 5
Else
End If

Merci et bonne journée à tous les excelleurs

Temjeh

 

[Temjeh]

Rajout..........

En mettant ceci dans ma feuil ca fonctionne mais je ne veut pas de macro car je veut évité une répétition de ceci pour 60 cells:

If Range("D8") = "T" Then
Range("C8").Select
If Range("D9") = "T" Then
Range("C9").Select
If ect....

Mes cells actives sont (pour une loop possible si macro obligatoire)
de D7 à D59 et de
J7 à J59

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D7") = "T" Then
Range("C7").Select
Selection.Font.ColorIndex = 5
Else
Range("C7").Select
Selection.Font.ColorIndex = 1
End If
End Sub

Merci

 

[Pascal76]

Bonjour

Oui cela s'appelle la maise en forme condtionelle

DOnc tu selectionnes C7
tu fais format Mise en forme conditionnelle
tu choisis "la formule est" et tu tapes =D7="T"
puis tu mets la couleur de police que tu veux

Bonne journée

Pascal

 

[Jocelyn]

bonjour le forum,
bonjour Temjeh,

Je ne sais pas si tu peux faire une formule, mais tu peux essayer avec une mise en forme conditionnelle.

sélectionner C7

faire Fichier Format ==> Mis en forme conditionnellle

Choisir la formule est

ensuite a coté entrer =D7="T"

puis cliquer sur format et choisir le format désire

voila j'espere que cela va t'aider un peu

A+
Jocelyn

 

[Jocelyn]

bonjour le forum,
bonjour Temjeh,
bonjour Pascal,

oup's je suis dsl Pascal je n'avais pas vu que tu etais sur le fil

A+
Jocelyn

 

[Temjeh]

Merci Pascal mais si je met la condition il me met une erreur sur la fin

"T"

Merci

 

[Temjeh]

Oublié ca ...ca marche bien votre affaire j'avais un " de trop

Merci beaucoup

 

[Temjeh]

Rebonjour

Y a-t-il un truc pour faire une condition sur plusieur cell a la fois car je doit avec la condition la faire pour chacune de mes 60 lignes

Merci

 

[Lejohnn]

Tu cliques sur une cellule qui a déjà la mise en forme puis tu cliques sur "Format Painter" (ma version est us) son icone est juste à coté des copier/coller habituels. C'est un pinceau jaune.

Puis tu vas selectionner les autres cases que tu veux formater.
Et voilà !

 

[Temjeh]

Merci
Lejohnn