Détecter texte en gras et affecter un code.

[savaux]

Bonjour,

Voici mon problème :
J'ai deux colonnes dans excel. la première =(Destination) la deuxième=(code).

Je voudrais que excel parcours tout le fichier (qui pourra contenir plusieurs lignes de destination) et que : à chaque fois qu'une Destination est en Gras, que Excel m'affecte le code 1 dans la colonne (Code) correspondante. (voir ci-dessous )

Dans le cas ci-dessous, Excel devrait affecter "1" dans la colonne Code devant Paris en gras et Cambrai en gras.

Destination.............................code
Paris
Lille
Roubaix
Orleans
Agen
Paris
Paris
Cambrai
Paris
Cambrai

D'avance je vous remercie beaucoup pour vos soluces. Je vous avoue que je me prends la tête avec ce problème, d'autant qu'il y aura beaucoup de lignes de destination ( il faudrait donc que Excel parcour tout le fichier. Que le fichier a 10 ou 20000 destinations ). ( voir fichier Excel attaché ).

Un grand merci.
Pascal

 

[Cousinhub]

Re : Détecter texte en gras et affecter un code.

Bonjour savaux,

mets ce code dans un module :

Sub gras()
Range("B2:B" & [A65000].End(xlUp).Row).ClearContents
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
    If cel.Font.Bold Then cel.Offset(0, 1).Value = 1
Next cel
End Sub

fichier exemple

 

[savaux]

Re : Détecter texte en gras et affecter un code.

Bonjour bhbh, Merci beaucoup pour cette soluce, j'essaie tout de suite , je vais l'intégrer dans un tableau qui contient plus de colonnes.

Encore Merci
PAscal

 

[savaux]

Re : Détecter texte en gras et affecter un code.

Bonjour bhbh, Merci beaucoup pour cette soluce, je vais l'essayer immédiatement dans le tableau final.

Bonjour savaux,

mets ce code dans un module :

Sub gras()
Range("B2:B" & [A65000].End(xlUp).Row).ClearContents
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
    If cel.Font.Bold Then cel.Offset(0, 1).Value = 1
Next cel
End Sub

fichier exemple