Modifier la couleur de cellules

[elo]

bonjour,
j'ai besoin d'une astuce des grands spécialistes d'exel (et des autres...)
dans le programme que je suis en train de faire j'ai besoin que les cellules de la colonne 'B' qui contiennent le mot 'table', deviennent verte.

Merci d'avance


Elo

 

[porcinet82]

salut elo,

voila une petite macro toute simple qui fait ce que tu désires

Sub Couleur()
Range('B1').Select
For i = 1 To Range('B65536').End(xlUp).Row
    If ActiveCell.Value = 'table' Then
        ActiveCell.Interior.ColorIndex = 43
        Selection.Offset(1, 0).Select
    Else
        Selection.Offset(1, 0).Select
    End If
Next i
End Sub

voila je te souhaite un bon courage pour la suite

@+

 

[JeanMarie]

Bonjour

Utilise la mise en forme conditionnelle

1) Sélectionne la colonne B, en cliquant sur le nom de la colonne
2) clique sur le Menu Format/mise en forme conditionnelle...
3) dans la boîte de dialogue. change 'comprise entre' par 'égale à'
4) tu tapes dans le champ saisissable : table
5) tu changes le format, et tu valides deux fois.

@+Jean-Marie

Message édité par: JeanMarie, à: 20/04/2005 09:55

 

[elo]

Ton programme marche très bien porcinet82
mais comment faire pour obtenir le résultat si dans la cellule il y a d'autres mots que 'table'

Merci


Elo

 

[porcinet82]

re elo, salut JeanMarie,

si dans la cellule il y a d'autres mots que table, tu n'as qu'a changer le mot entre ' ', si c'est pour quelque chose de ponctuelle.

il faudrait plus de precision sur ce que tu veux vraiment faire, peut etre qu'avec un fichier joint (taille <50ko, zipper et sans espace dans le nom) ce serait plus simple .

à suivre...

 

[elo]

merci pour ton aide
dans mon programme je cherche à modifier les couleurs des cellules qui contiennent le mot 'table', le mot 'table' peut également être accompagné d'autres mots.

Merci
[file name=Classeur1_20050420104311.zip size=9243]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050420104311.zip[/file]

 

[JeanMarie]

Re...

Toujours dans la mise en forme conditionnelle, change 'la valeur de la cellule est' par 'la formule est', et tu tapes la formule =NB.SI(B1;'*Table*'), et tu valides.

les caractères * sont des appelés caractères génériques.

@+Jean-Marie

 

[porcinet82]

elo,

j'ai effectué une petite modification a la macro que je t'ai deja proposé tout a l'heure. j'ai rajouter la fonction de recherche d'une chaine de charactere dans une autre, ce qui cette fois devrait faire ton affaire

Sub Couleur_bis()
Dim maChaine As Variant

Range('B1').Select
For i = 1 To Range('B65536').End(xlUp).Row
    If ActiveCell.Value = '' Then
        Selection.Offset(1, 0).Select
    Else
        maChaine = ActiveCell.Value
        If (InStr(1, maChaine, 'table', vbTextCompare)) <> 0 Then
            ActiveCell.Font.ColorIndex = 4
            Selection.Offset(1, 0).Select
        Else
            Selection.Offset(1, 0).Select
        End If
    End If
Next i
End Sub

voila @+

 

[elo]

ca marche bien merci