Cellule active

Résolu/Fermé
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 1 avril 2019 à 15:21
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 1 avril 2019 à 15:31
Bonjour,



J'ai ce code pour visualiser la valeur des cellule active
Cells(1, 9).Value = ActiveCell.Value
Mais j'aimerais l'activer seulement pour la colonne A de "A9:A1000)

Si quelqu'un peut m'aider!

Merci

1 réponse

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
1 avril 2019 à 15:31
Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A9:A1000")) Is Nothing Then
  Cells(1, 9).Value = ActiveCell.Value
End If
End Sub

Cdlmnt
0