mettre x si valeur cellule en gras

E

edy

Guest
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é

XLDnaute Barbatruc
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

XLDnaute Nouveau
bonjour edy

voila un code qui fonctionne ;)

Code:
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
:eek:hmy:

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

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510