Modifier code pour appliquer une macro à toute la sélection

Bonjour le Forum !

J'utilise une petite macro bien pratique pour moi, mais qui ne s'applique qu'à la cellule active.

Quelqu'un pourrait-il m'aider à la modifier pour qu'elle s'applique à toutes les cellules de la sélection ?

(mes connaissances en VBA sont trop limitées pour que je le fasse moi-même)

Merci !!!!

Sub EPH_Insérer_suffixe_PHOTOS()
  ActiveCell = ActiveCell & " (photos)"
End Sub

Bonjour

Si c'est pour ajouter au contenu de la cellule

Sub EPH_Insérer_suffixe_PHOTOS()
Dim Cel As Range

  For Each Cel In Selection
    Cel = Cel & " (photos)"
  Next Cel
End Sub

Si c'est pour écrire dans la cellule

Sub EPH_Insérer_suffixe_PHOTOS()
   Selection.Value = " (photos)"
End Sub

Merci banzai64, ça marche impec !!

(et du coup j'ai compris la méthode)

Rechercher des sujets similaires à "modifier code appliquer macro toute selection"