selectionner 3eme ligne de la colonne active

[pascal21]

bonjour à tous
je n'arrive plus à retrouver la syntaxe exacte pour selectionner la 3eme ligne de la colonne de la cellule active
bon comme j'ai l'impression de ne pas être clair je vous mets un exemple
si je selectionne c10 j'aimerais avoir le contenu de la cellule c3 dans la cellule b1
voilà le bout de code que j'ai mais j'ai une errreur que je n'arrive pas à définir

Range("b1") = Cells(ActiveCell.Row, 1).Value

merci de votre aide

 

[Papou-net]

Re : selectionner 3eme ligne de la colonne active

Bonjour Pascal,

Effectivement, tu n'es pas très clair, tout comme ton bout de code d'ailleurs qu'on ne voit pas.

Mais, si j'ai bien compris, quelque chose comme ceci ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$10" Then Range("B1") = Cells(3, Target.Column)
End Sub

A adapter, bien sûr.

Cordialement.

 

[pascal21]

Re : selectionner 3eme ligne de la colonne active

bonjour
effectivement pas très clair et en plus j'ai oublié le bout de code
c'est remedié
dans l'exemple j'ai mis c10 mais ça aurait pu être g50 et dans ce cas je veux inscrire le contenu de g3 dans b1
si c'est h65 il me faut le contenu de h3 dans b1

 

[phlaurent55]

Re : selectionner 3eme ligne de la colonne active

Bonjour à tous,

dans l'exemple j'ai mis c10 mais ça aurait pu être g50 et dans ce cas je veux inscrire le contenu de g3 dans b1
si c'est h65 il me faut le contenu de h3 dans b1

avec ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 2) = Cells(3, Target.Column)
End Sub

à+
Philippe

 

[Papou-net]

Re : selectionner 3eme ligne de la colonne active

dans l'exemple j'ai mis c10 mais ça aurait pu être g50 et dans ce cas je veux inscrire le contenu de g3 dans b1
si c'est h65 il me faut le contenu de h3 dans b1

RE :

Dans ce cas, Philippe (que je salue) a répondu à ta question.

Par contre, si tu veux restreindre la zone de sélection, par exemple colonnes C à G :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C:G], Target) Is Nothing Then Cells(1, 2) = Cells(3, Target.Column)
End Sub

Mais ça, je pense que tu le savais déjà.

Cordialement.

 

[pascal21]

Re : selectionner 3eme ligne de la colonne active

bonsoir et merci à tous les deux
la proposition de Laurent semble être ce que je voulais, je testerai demain soir pour voir
bonne soirée