Remplissage automatique

Bonjour,

Voici mon problème, j'aimerais qu'un formulaire (dans la feuille bl) se remplise automatiquement avec les valeurs d'une ligne quand on clic à l'extrémité de celle ci (feuille 39 ou 40)

Voici un exemple de fichier, avez vous besoin d'autres infos pour pouvoir m'aider ?

Merci par avance !

Yann

Bonjour et bienvenue,

tes 2 feuilles 39 et 40 n'ont pas la même structure ! (colonnes)

quelle est la bonne ?

Amicalement

Claude

La bonne structure est la feuille 39

Yann

Bonjour,

Double clic sur la colonne A ("Purchase order")

code à placer dans VBE de chaque feuille (39 ; 40 etc...)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Macro par Claude Dubois pour "yann9000" Excel-Pratique le 30/09/10
Dim Lg%
Lg = Range("A65536").End(xlUp).Row
    If Not Application.Intersect(Target, Range("a4:a" & Lg)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Target.EntireRow.Copy
            With Sheets("bl")
                .Range("a1").PasteSpecial Paste:=xlPasteValues
                .Activate
            End With
        Application.CutCopyMode = False
        Sheets("bl").Range("b2").Activate
    End If
End Sub

Amicalement

Claude

Merci Claude,

Sa fonctionne très bien !

Prends le bon réflexe, pour solder le poste, c'est ici