Mettre en gras les valeurs identiques dans une colonne

1) Si tu veux mettre en gras toute la colonne, place ta souris au-dessus d'une colonne et tu devrais voir une flèche noire apparaître. Clique et ta colonne se sélectionne. Met en gras et c'est bon.
2) Tu ne veux mettre que certains éléments en gras. Je connais qu'une solution, à la fin de ta saisie, sélectionne les cases concernées avec la manip suivante : appuie sur la touche CTRL et clique en même temps avec ta sourie sur toutes les cases désirées. Cela ne sélectionnera que celles que tu cliqueras. Puis met en gras.
3) faire chaque case une par une...

J'espère que c'est la réponse que tu attendais.

bonjour,

essaye ca :

i = 1
While Cells(i, 2) <> ""
If Cells(i, 2) = Cells(1, 1) Then Cells(i, 2).Font.Bold = True
i = i + 1
Wend

par contre le programme s'arrete a la premiere cellule vide donc il ne faut aucune cellule vide de la premiere cellule a la derniere cellule que tu veut verifier

Imaginons que tu as 150 case dans la colonne B :

tu selectionnes la case dans la colonne a et tu lance ta macro :

sub gras(cel as range)

for i = 1 to 150 
    if cells(i,2).value = cel.value then 
        cells(i,2).font.bold = true 
    end if 
next i 
 
end sub

Comme ça tu t'affranchis du problème des cases vides mais tu dois connaitre à l'avance le nombre de ligne

Et si tu veux que cette macro se lance à chaque fois que tu changes de cellule tu peux mettre dans ta feuille un évènement :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

Call gras(Target)

End Sub
Sub gras(cel As Range)

For i = 1 To 150
    If Cells(i, 2).Value = cel.Value Then
        Cells(i, 2).Font.Bold = True
    End If
Next i
    
End Sub

Bonjour,
Si la valeur x est dans une cellule, alors il me semble plus simple de faire une mise en forme conditionnelle (sur toute la colonne).

merci !!!!!!!!