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

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é

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

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