Valeur Cellule envoyée dans autre feuille après scrollColumn

[CHti160]

Bonsoir à toutes et à tous
je tente ,après sélection dans une liste(Feuil1) d'un numéro (colonne destination de la feuil2)et après validation d'une cellule de la feuil1 par click ou double click
de copier la valeur de cette cellule dans la colonne choisie de la feuil2
est ce faisable? je n'arrive pas à maitriser ScrollColumn[/]b
y a t'il une autre solution?
avis au Amateur
voir fichier joint....
A+++
Jean Marie

 

[Hervé]

Salut

une proposition sans scrollcolumn :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
Dim colonne As String
Dim l As Integer
For Each c In Sheets("feuil2").Range("a2:al2")
If c.Value = Range("c5").Value Then
colonne = Left$(c.Address(0, 0), (c.Column < 27) + 2)
l = Sheets("feuil2").Range(colonne & "65000").End(xlUp).Row + 1
Sheets("feuil2").Range(colonne & l).Value = Target.Value
End If
Next c
End Sub

salut
Hervé

 

[Robert]

Bonsoir Jean-Marie, bonsoir le forum,

Cette macro à placer niveau feuille Feui1(Feuil1), fait ce que tu demande par un double-clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'limite l'action du double-clic à la plage C7:C16
'condition: si l 'intersection entre la cellule double-cliquée et
'la plage C7:C16 n'est pas vide
If Not Application.Intersect(Target, Range("C7:C16")) Is Nothing Then
Dim x As Integer 'déclare la variable x
Dim col As Integer 'déclare la variable col
x = Range("C5").Value 'définit la variable x
col = (4 * x) - 2 'définit la variable col
'attribut à la cellule(Col, premiere ligne vide) la valeur de la cellule double-cliquée
Sheets("Feuil2").Cells(65536, col).End(xlUp).Offset(1, 0) = Target.Value
End If 'fin condition
Cancel = True 'revient au mode sélection (sort du mode édition du double-clic)
End Sub

À plus,

Robert

 

[CHti160]

Salut"Robert"
et re à "Hervé" que j'ai remercié sur le Chat
je pense que je vais grâce à vous pouvoir répondre et adapter la demande de "titin"
encore Merci et Bientot
Jean Marie