Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel MFC sur ligne en fonction d'un mot colonne

MFC sur ligne en fonction d'un mot colonne

35 réponses
Avatar
BIANCAV
Bonjour,
Comment puis mettre une couleur sur toutes les lignes ou se trouve un mot en
colonne F et bien sur qu'il prenne une autre couleurs si autre mot et ce
jusqu'à 8 mots différents.
Merci
Signaler un problème avec ce contenu

10 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
1 2 3 4
Avatar
Stéphan DuQuébec
Juste parce que le foie gras m'intéresse.....

Moi, j'aime mieux travailler avec des Select Case.

Tu copies donc, de la même façon que Céline expliquait, ce qui suit:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c
For Each c In Range("ICI LE NOM DE TA PLAGE NOMMÉE")
Select Case c
Case "LE FOIE"
Rows(c.Row).Font.ColorIndex = 5
Case "GRAS POUR"
Rows(c.Row).Font.ColorIndex = 46
Case "MON AMI"
Rows(c.Row).Font.ColorIndex = 29
Case "STÉPHAN DU QUÉBEC"
Rows(c.Row).Font.ColorIndex = 3
Case "UNE FOIS"
Rows(c.Row).Font.ColorIndex = 14
Case "DEUX FOIS"
Rows(c.Row).Font.ColorIndex = 10
Case "TROIS FOIS"
Rows(c.Row).Font.ColorIndex = 53
Case "VENDU !!!!!"
Rows(c.Row).Font.ColorIndex = 7
Case Else
Rows(c.Row).Font.ColorIndex = 1
End Select
Next c

End Sub

Salutations !



Bonjour,
Comment puis mettre une couleur sur toutes les lignes ou se trouve un mot en
colonne F et bien sur qu'il prenne une autre couleurs si autre mot et ce
jusqu'à 8 mots différents.
Merci





Avatar
BIANCAV
Petit rappel je suis débutante alors des Select Case. c'est quoi
merci
"Stéphan DuQuébec" a écrit dans le
message de news:

Juste parce que le foie gras m'intéresse.....

Moi, j'aime mieux travailler avec des Select Case.

Tu copies donc, de la même façon que Céline expliquait, ce qui suit:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c
For Each c In Range("ICI LE NOM DE TA PLAGE NOMMÉE")
Select Case c
Case "LE FOIE"
Rows(c.Row).Font.ColorIndex = 5
Case "GRAS POUR"
Rows(c.Row).Font.ColorIndex = 46
Case "MON AMI"
Rows(c.Row).Font.ColorIndex = 29
Case "STÉPHAN DU QUÉBEC"
Rows(c.Row).Font.ColorIndex = 3
Case "UNE FOIS"
Rows(c.Row).Font.ColorIndex = 14
Case "DEUX FOIS"
Rows(c.Row).Font.ColorIndex = 10
Case "TROIS FOIS"
Rows(c.Row).Font.ColorIndex = 53
Case "VENDU !!!!!"
Rows(c.Row).Font.ColorIndex = 7
Case Else
Rows(c.Row).Font.ColorIndex = 1
End Select
Next c

End Sub

Salutations !



Bonjour,
Comment puis mettre une couleur sur toutes les lignes ou se trouve un mot
en
colonne F et bien sur qu'il prenne une autre couleurs si autre mot et ce
jusqu'à 8 mots différents.
Merci







Avatar
Stéphan DuQuébec
Comme le renard dans la basse-cour, je tente de chipper le butin sous vos
yeux.....


:-)))))))
jps

"Céline" a écrit dans le message de news:

(jprends une option sur le foie gras... )
8-)







Avatar
Trirème
(jprends une option sur le foie gras... )
8-)



Hé ! Ho !
Moi aussi j'en veux du foie gras !
Et pis d'abord la d'moiselle je l'ai vue le premier.
:-P

En fait, si vous avez lu ces tableaux, Bianca fait plutôt dans le dindon
:-( C'est réputé pour le foie gras le dindon ?

Trirème

Avatar
Trirème
Juste parce que le foie gras m'intéresse.....
Bianca fait aussi dans le repassage



Moi, j'aime mieux travailler avec des Select Case.

Tu copies donc, de la même façon que Céline expliquait, ce qui suit:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c
For Each c In Range("ICI LE NOM DE TA PLAGE NOMMÉE")
Select Case c
Case "LE FOIE"
Rows(c.Row).Font.ColorIndex = 5
Case "GRAS POUR"
Rows(c.Row).Font.ColorIndex = 46
Case "MON AMI"
Rows(c.Row).Font.ColorIndex = 29
Case "STÉPHAN DU QUÉBEC"
Rows(c.Row).Font.ColorIndex = 3
Case "UNE FOIS"
Rows(c.Row).Font.ColorIndex = 14
Case "DEUX FOIS"
Rows(c.Row).Font.ColorIndex = 10
Case "TROIS FOIS"
Rows(c.Row).Font.ColorIndex = 53
Case "VENDU !!!!!"
Rows(c.Row).Font.ColorIndex = 7
Case Else
Rows(c.Row).Font.ColorIndex = 1
End Select
Next c

End Sub

Salutations !
Si ça c'est pas du matraquage :-)

Il ne reste plus qu'à trouver l'adresse pour la prochaine rencontre du MPFE.

Trirème

Avatar
Stéphan DuQuébec
Bonjour BIANCAV,

Il y a plusieurs moyens de parvenir à ce que tu demandes.

Un Select Case, je crois que c'est le plus simple....c'est comme si tu
imposais un choix à ta macro.....les mots que j'ai mis en majuscules....tu
les remplaces parce que tu veux come valeur(ce sont les 8 conditions qui
colorent tes lignes).

Dans dans le premier cas (Select Case).....tu écris la première valeur entre
guillemets. Mettons "BIANCAV"...donc si, dans ta colonne F, il y a le mot
BIANCAV......la ligne se colorera en rouge (mettons). Les couleurs sont
déterminées par le chiffre après le mot ColorIndex.

Le dernier cas, Case Else....ce sont tous les mots qui ne rencontrent pas
tes 8 premières conditions auxquelle sont associées une couleur. Dans ce cas
là, tes lignes demeurent en noir.

J'espère avoir été plus clair.

Essaie le, tu verras ce n'est pas difficile.

Et ça fonctionne bien ;-))


Petit rappel je suis débutante alors des Select Case. c'est quoi
merci
"Stéphan DuQuébec" a écrit dans le
message de news:

Juste parce que le foie gras m'intéresse.....

Moi, j'aime mieux travailler avec des Select Case.

Tu copies donc, de la même façon que Céline expliquait, ce qui suit:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c
For Each c In Range("ICI LE NOM DE TA PLAGE NOMMÉE")
Select Case c
Case "LE FOIE"
Rows(c.Row).Font.ColorIndex = 5
Case "GRAS POUR"
Rows(c.Row).Font.ColorIndex = 46
Case "MON AMI"
Rows(c.Row).Font.ColorIndex = 29
Case "STÉPHAN DU QUÉBEC"
Rows(c.Row).Font.ColorIndex = 3
Case "UNE FOIS"
Rows(c.Row).Font.ColorIndex = 14
Case "DEUX FOIS"
Rows(c.Row).Font.ColorIndex = 10
Case "TROIS FOIS"
Rows(c.Row).Font.ColorIndex = 53
Case "VENDU !!!!!"
Rows(c.Row).Font.ColorIndex = 7
Case Else
Rows(c.Row).Font.ColorIndex = 1
End Select
Next c

End Sub

Salutations !



Bonjour,
Comment puis mettre une couleur sur toutes les lignes ou se trouve un mot
en
colonne F et bien sur qu'il prenne une autre couleurs si autre mot et ce
jusqu'à 8 mots différents.
Merci












Avatar
BIANCAV
La journée est fini ?
Bon type de productions = Poulets, Pondeuses, canard, colvert, cannettes,
oies et dindons.
Ok pour les options si j'ai le temps je m'arrache la tête.
Si tu as le temps j'ai mis un nouveau message avec equiv index etc; pourtant
j'ai l'impression que je comprends mieux mais...
A+
"Trirème" a écrit dans le message de news:

(jprends une option sur le foie gras... )
8-)



Hé ! Ho !
Moi aussi j'en veux du foie gras !
Et pis d'abord la d'moiselle je l'ai vue le premier.
:-P

En fait, si vous avez lu ces tableaux, Bianca fait plutôt dans le dindon
:-( C'est réputé pour le foie gras le dindon ?

Trirème



Avatar
Stéphan DuQuébec
J'avoue que si je n'étais pas de ce côté-ci de l'Atlntique, il y a plusieurs
collaborateurs de ce forum dont j'aimerais voir la binette !!!!!! vous
semblez avoir un beau groupe !


Juste parce que le foie gras m'intéresse.....
Bianca fait aussi dans le repassage



Moi, j'aime mieux travailler avec des Select Case.

Tu copies donc, de la même façon que Céline expliquait, ce qui suit:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c
For Each c In Range("ICI LE NOM DE TA PLAGE NOMMÉE")
Select Case c
Case "LE FOIE"
Rows(c.Row).Font.ColorIndex = 5
Case "GRAS POUR"
Rows(c.Row).Font.ColorIndex = 46
Case "MON AMI"
Rows(c.Row).Font.ColorIndex = 29
Case "STÉPHAN DU QUÉBEC"
Rows(c.Row).Font.ColorIndex = 3
Case "UNE FOIS"
Rows(c.Row).Font.ColorIndex = 14
Case "DEUX FOIS"
Rows(c.Row).Font.ColorIndex = 10
Case "TROIS FOIS"
Rows(c.Row).Font.ColorIndex = 53
Case "VENDU !!!!!"
Rows(c.Row).Font.ColorIndex = 7
Case Else
Rows(c.Row).Font.ColorIndex = 1
End Select
Next c

End Sub

Salutations !
Si ça c'est pas du matraquage :-)

Il ne reste plus qu'à trouver l'adresse pour la prochaine rencontre du MPFE.

Trirème




Avatar
Jacquouille
Ben voyons
Après les broutards, voici les dindons.
Et ils ne sont même pas farcis. -)

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Trirème" a écrit dans le message de news:

(jprends une option sur le foie gras... )
8-)



Hé ! Ho !
Moi aussi j'en veux du foie gras !
Et pis d'abord la d'moiselle je l'ai vue le premier.
:-P

En fait, si vous avez lu ces tableaux, Bianca fait plutôt dans le dindon
:-( C'est réputé pour le foie gras le dindon ?

Trirème



Avatar
BIANCAV
Bonsoir,
Tout vient à point à celui qui sait attendre, j'ai enfin réussi à faire le
select case, sauf que moi je veux que s'il n'y a rien il ne color pas
l'intérieur. En plus qd je fais un changement cad que j'enlève les lettres
et que j'exécute de nouveau il ne change pas mes couleurs mises avec la
précedente exécution. C'est pas cool ! Une solution est-elle envisageable.
Sub lignecouleur()
'
' lignecouleur Macro
' Macro enregistrée le 01/10/2006 par Véronique
'Private Sub Worksheet_Change(ByVal Target As Range)

Dim c
For Each c In Range("$h$3:$hs50")
Select Case c
Case "CN"
Rows(c.Row).Interior.ColorIndex = 35
Case "PO"
Rows(c.Row).Interior.ColorIndex = 39
Case "CA"
Rows(c.Row).Interior.ColorIndex = 38
Case "CO"
Rows(c.Row).Interior.ColorIndex = 34
Case "PI"
Rows(c.Row).Interior.ColorIndex = 40
Case "CR"
Rows(c.Row).Interior.ColorIndex = 37
Case "D"
Rows(c.Row).Interior.ColorIndex = 36
Case "OI"
Rows(c.Row).Interior.ColorIndex = 4
'Case Else
'Rows(c.Row).Interior.ColorIndex = 2
End Select
Next c

End Sub
"Stéphan DuQuébec" a écrit dans le
message de news:

Juste parce que le foie gras m'intéresse.....

Moi, j'aime mieux travailler avec des Select Case.

Tu copies donc, de la même façon que Céline expliquait, ce qui suit:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c
For Each c In Range("ICI LE NOM DE TA PLAGE NOMMÉE")
Select Case c
Case "LE FOIE"
Rows(c.Row).Font.ColorIndex = 5
Case "GRAS POUR"
Rows(c.Row).Font.ColorIndex = 46
Case "MON AMI"
Rows(c.Row).Font.ColorIndex = 29
Case "STÉPHAN DU QUÉBEC"
Rows(c.Row).Font.ColorIndex = 3
Case "UNE FOIS"
Rows(c.Row).Font.ColorIndex = 14
Case "DEUX FOIS"
Rows(c.Row).Font.ColorIndex = 10
Case "TROIS FOIS"
Rows(c.Row).Font.ColorIndex = 53
Case "VENDU !!!!!"
Rows(c.Row).Font.ColorIndex = 7
Case Else
Rows(c.Row).Font.ColorIndex = 1
End Select
Next c

End Sub

Salutations !



Bonjour,
Comment puis mettre une couleur sur toutes les lignes ou se trouve un mot
en
colonne F et bien sur qu'il prenne une autre couleurs si autre mot et ce
jusqu'à 8 mots différents.
Merci







1 2 3 4