[XL-2007] Colorer cellules et les mettre en gras [Résolu]

[Runsh63]

Bonjour,

Voilà un moment que je tourne le problème en rond sans trouver de solution. Voilà mon cas.
J'ai un tableau de données qui va de la cellule A1 à la cellule E(x). Certaines cellules en colonne A et B contiennent le mot "Total" au début. J'aimerai lorsque la macro trouve le mot "Total", qu'elle me sélectionne cette ligne, de A à E et qu'elle colore le fond en un couleur (on s'en fout) et qu'elle mette la police en gras.
Pouvez-vous SVP me donner des pistes ?

D'avance merci !

[mercatog]

Fais un filtre automatique sur la colonne A sur le mot "Total" et colorie à ton guise les lignes visibles.
refais la même chose sur la colonne B.

A l'aide de l'enregistreur de macro tu auras un code qu'il faut optimiser et retravailler.

[Fred.dz]

Un truc du genre:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim i as integer
Dim fintableau
Dim rng as range
 
While cells(fintableau,1)<>""
fintableau=fintableau+1
Wend
 
For i=1 to fintableau
 If cells(i,1) like "Total*" or cells(i,2) like "Total*" then
  set rng=range(cells(i,1),cells(i,4))
  rng.select
  With Selection.Interior
        .ColorIndex = 'ta couleur
  End with
  Selection.Font.Bold = True
 End if
Next i