Cellule active

Résolu
juer31 Messages postés 114 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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