Formule VBA

Bonjour je me tourne vers vous car je ne trouve pas la formule à écrire sur virtual basic d'excel 2007.

Lors d'un appuie sur un bouton je souhaiterai que le mot "en cours" s'affiche dans la cellule sélectionnée.

J'ai donc fais un enregistrement de macro et sa fonctionne sauf que j'aimerai que le bouton fonctionne dans la plage de cellule suivante A10:E10 afin de ne pas pouvoir écrire "en cours" dans toutes les cellules du tableur .

Merci d'avance pour votre aide

Bonjour

Essayes cette macro associée à un bouton

Sub bouton()
  Range("A10:E10") = "En Cours"
End Sub

Salut florian4949 et le forum

Pour ce que j'en comprends

Sub bouton()
Dim Cel As Range
For Each Cel In Selection
    If Cel.Column < 6 And Cel.Row = 10 Then Cel = "En Cours"
Next Cel
End Sub

pour chaque cellule sélectionnée, si sa colonne est inférieure à 6 (A:E) et sa ligne =10 (A10:E10), mettre "En Cours" dans la cellule.

A+

Bonjour

Bien vu Gorfael

Je le présente d'une autre manière

Sub bouton()
Dim Cel As Range

  For Each Cel In Selection
    If Not Intersect(Range("A10:E10"), Cel) Is Nothing Then
      Cel = "En cours"
    End If
  Next Cel
End Sub