Codage Cellule active

Bonjour

comment coder: range C1 = valeur cellule active de la plage A5:A30

Merci d'avance

Nonno

Bonjour,

Un exemple comme ceci :

If Not Intersect(ActiveCell, Range("A3:A50")) Is Nothing Then Range("C1") = ActiveCell.Value

A voir comme vous fonctionnez car votre demande n'est pas très précise à ce sujet

Cordialement

Bonjour Nonno, Dan, le forum,

Un essai ...

À placer dans la feuille concernée ...

Private Sub Worksheet_Change(ByVal Target As Range)

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

    Range("C1").Value = Target.Value
End Sub

ric

Super!

Merci à tous les deux

Bon Week end

cordialement

Nonno