Dupliquer le code d'une cellule sur une colonne

Bonjour,

Je débute en VBA et je coince sur, probalement un détail.

Je cherche à changer le libellé d'une cellule jute en cliquant dessus.

Private Sub Worksheet_SelectionChange(ByVal R As Range)

End Sub

Cela fonctionne à merveille en H4.

Je souhaite maintenant la dupliquer en H5 jusque H50. J'ai essayé tout un tas de possibilités mais cela ne marche pas...

Une p'tite idée ?

Merci et bonne journée.

Bonjour,

pensez à indenter le code et le mettre entre "balises", c'est beaucoup plus lisible.

en tapant sur moteur de recherche :

"Excel VBA Je cherche à changer le libellé d'une cellule jute en cliquant dessus." on a déjà pas mal de propositions .

un essai :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
 If Not Intersect(R, Range("A4:A50")) Is Nothing Then
       R = IIf(R = "Chaud", "En veille", IIf(R = "En veille", "Froid", IIf(R = "Froid", "?", IIf(R = "?", "", "Chaud"))))
       R(2, 1).Select
 End If
End Sub

On est sur la bonne voie mais...

Une fois la première cellule remplie, il me remplit automatiquement toutes les cellules jusqu'à la dernière cellule...

avec le fichier, cela pourra aider

boulette par ce que non testé!!

modifier la cellule sélectionnée en fin de macro, qui faisait déclencher la macro en boucle :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
 If Not Intersect(R, Range("H4:H59")) Is Nothing Then
    R = IIf(R = "Chaud", "En veille", IIf(R = "En veille", "Froid", IIf(R = "Froid", "?", IIf(R = "?", "", "Chaud"))))
    R(2, 2).Select ' repositionnement une colonne à coté de la plage sensible à la selection
 End If
End Sub

Gé-nial, merci AlgoPlus.

Non seulement mon fichier fonctionne mais en plus, j'ai encore appris en VBA.

Merci et belle journée.