selectionner 3eme ligne de la colonne active

Papou-net

XLDnaute Barbatruc

• 21 Novembre 2012

• #2

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 ?

Code:

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.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 21 Novembre 2012

• #3

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

 

Dernière édition: 21 Novembre 2012

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 21 Novembre 2012

• #4

Re : selectionner 3eme ligne de la colonne active

Bonjour à tous,

pascal21 à dit:

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

Cliquez pour agrandir...

avec ce code:

Code:

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

à+
Philippe

 

Pièces jointes

• 111.xlsm

  14.2 KB · Affichages: 48
• 111.xlsm

  14.2 KB · Affichages: 45
• 111.xlsm

  14.2 KB · Affichages: 41

Dernière édition: 21 Novembre 2012

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 21 Novembre 2012

• #5

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

Cliquez pour agrandir...

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 :

Code:

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.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 22 Novembre 2012

• #6

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

 

Vote positif 0 Vote négatif