Macro - VBA - insérer un caractère dans plusieurs cellules

Bonjour à tous,

Après une recherche infructueuse, je vous soumets mon problème.

Voici le principe :

Je sélectionne plusieurs cellules puis j'appuis sur un bouton auquel est associé une macro qui me met les cellules en jaune et insère la lettre C dans chaque cellule.

Sauf que ma macro colorie bien mes cellules mais elle n'insère la lettre C que dans la première cellule.

Voici la macro :

Sub Divers()

'

With Selection.Interior

.ColorIndex = 15

.Pattern = xlSolid

End With

ActiveCell.FormulaR1C1 = "D"

End Sub

Auriez-vous une idée pour la corriger.

Merci

Salut,

Une idée, sur la base de la macro fournie :

Option Explicit

Sub Divers()
Dim Cellule As Range

 With Selection.Interior
 .ColorIndex = 15
 .Pattern = xlSolid
 End With
 For Each Cellule In Selection
    Cellule = "D"
 Next
End Sub

Cordialement.

bonjour,

Sub Divers()
'
 With Selection.Interior
 .ColorIndex = 15
 .Pattern = xlSolid
 Selection.Value = "D"
 End With

End Sub

cdt

Les 2 fonctionnent, la seconde étant plus simple. Merci beaucoup à tous les 2.