Detecter cellule en gras

[goodsayan]

Bonjour
Je souhaite pouvoir détecter les cellules en gras d'une colonne et lui affecté une valeur suivant sa postion. Les cellules en gras sont toujours en 2,3 ou 4eme position.

Par exemple mon tableau est comme ca
2.72
1.8
4
5.6

2.56
2
6
1.6
...
Si la cellule en gras est en deuxieme position mettre la lettre "D", si en troisieme position "N" et en quatrieme "E".
Pour obtenir ca:
2.72
1.8
4
5.6
D
2.56
2
6
1.6
E

Est ce possible? J'y connais pas grand chose en macro...
Merci

 

[Spitnolan08]

Re : Detecter cellule en gras

Bonjour,

En regardant en bas de cette page le 1er fil peut être...

Cordialement

 

[thomlau]

Re : Detecter cellule en gras

Bonjour Goodsayan, Spitnolan08, bonjour à tous

Voici ci-joint un petit fichier que j'ai bricolé et qui fonctionne.

++

 

[goodsayan]

Re : Detecter cellule en gras

Spitnolan08 j'ai cherché d'abord sur le forum mais j'ai pas trouvé.

Merci thomlau pour ton fichier exemple, c'est exactement ce que je veux obtenir mais je voudrais pas seulement l'appliqué aux cellules A2,A3,A4.
Comment faire pour qu'il le fasse pour toute la colonne?

L'incrément pour chaque case suivante est +5 c'est à dire
A2 puis A7 puis A12 etc...
A3 puis A8 puis A13 etc...
A4 puis A9 puis A14 etc...

Merci

 

[thomlau]

Re : Detecter cellule en gras

Le mieux est de mettre en ligne la feuille en question, car je ne comprends pas trop ce que tu veux exactement.

D'avance merci.

 

[goodsayan]

Re : Detecter cellule en gras

ok ca sera plus facile.
Dans mon fichier il y a 5 colonnes mais deja si je pouvais le faire sur une ca serait pas mal.

 

[thomlau]

Re : Detecter cellule en gras

Vu la taille du tableau, l'exemple que je t'ai envoyé n'est pas vraiment applicable.
Je cherche une autre solution.
A bientôt.

 

[goodsayan]

Re : Detecter cellule en gras

ok merci pour ton aide.
Je débute totalement en VBA mais ca pourra pas ressembler à un truc du genre

Sub gras()

Dim i As Integer

i = 2
Do While Cells(i, 1) <> ""
i = i + 5
Loop

If Cells(i, 1).Font.Bold = True Then

    Cells(i + 3, 1).Value = "D"
    
End If

End Sub

Cela serait pour savoir si les cases A2,A7,A12... sont en gras et mettre en A5,A10... la lettre "D" si c'est bon.
Doit y avoir plein d'erreurs car ca fonctionne pas...