mettre x si valeur cellule en gras

[edy]

Salut,

J'ai recupéré un fichier avec des lignes en format gras et d'autre non en format gras.
Comment mettre une valeur x dans une cellule des lignes en gras afin de filter sur le format?

Merci d'avance pour la reponse

 

[Hervé]

Bonjour edy , le forum

tu ne nous donne pas beaucoup d'info sur ton fichier, quelle plage doit etre controlé ? ou place ton les 'X' ? doit t'on controler toutes les colonnes des lignes ou simplement une en particulier ?

en attendant, ce code mettra un X en colonne B, en face des cellules de la colonne A qui seront en gras.

Sub Bouton1_QuandClic()
Dim c As Range

For Each c In Range('a1:a10')
    c.Offset(0, 1) = IIf(c.Font.Bold = True, 'X', '')
Next c
End Sub

salut

 

[fifou_istb]

bonjour edy

voila un code qui fonctionne 😉

Sub aaa()
For i = 1 To Rows(65536).End(xlUp).Row
If Rows(i).Font.Bold = True Then
Range('c' & i) = 'x'
Else
End If
Next
End Sub

j'espère que cela te conviens

désolé hervé je t'avais pas vu
😱hmy:

Message édité par: fifou_istb, à: 07/09/2005 16:24

 

[edy]

bonsoir et merci,

les macros transmises repondent parfaitement à mon probleme

slts
edy