Discussion :

[arginine]

Bonjour,
Au boulot on a un "immense" fichier avec des cellules mises en gras manuellement par un "cochon" de fournisseur. On aurait besoin de trier/extraire/reperer spécifiquement ces cellules en gras.

Apparemment il es possible de trvailler avec les formats des cellules en vba. Ce que j'aimerais faire c'est un truc du style: dans la range de cellule toto si une cellule est en gras ----> ca m'écrit dans la case d'à coté "YES" et si c'est pas en gras "NON".

voila ce que j'ai trouvé mais ... qui ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub findbold()
 
Dim Cel As Range
For Each Cel In Range("A1:A20")
If Cel.Interior.Font.Bold = True Then "dans la cellule juste à côté  ca écrit YES"
If Cel.Interior.Font.Bold = False Then "dans la cellule juste à côté  ca écrit NO"
Next
End Sub

Est ce que l'un ou l'une d'entre vous pourrait me donner un coup de main ?
Bonne soirée,

F

[pgz]

Bonsoir.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub findbold()
 
Dim Cel As Range
For Each Cel In Range("A1:A20")
    cel.offset(0,1).Value = Iif(Cel.Interior.Font.Bold,"yes","no")
Next cel
End Sub

A mettre au point.

Cordialement,

PGZ

[Qwazerty]

Salut
Essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub findbold()
 
Dim Cel As Range
For Each Cel In Range(Range("A1"), Cells(Rows.Count, "A").End(xlUp))
    If Cel.Font.Bold Then Cel.Offset(0, 1) = "Oui" Else Cel.Offset(0, 1) = "Non"
Next
End Sub

[Edit] Grillé..., sympa l'utilisation du IIF.
Avec un mélange des 2 code tu auras la boucle sur toutes les cellules jusqu'à la dernière cellule remplie de la colonne A
Attention aussi a Font, il est rattaché a l'objet Range donc à Cel, pas a Interior[/Edit]

++
Qwaz