Discussion :

[jokenjo]

Bonjour
j´ai un userform , dans lequel il y a une liste de nom qui s´affiche dans une listbox.Les noms viennent d´une requete dans une data base access.J´aimerai qu´a la selection d´un nom (avec un double click ) que les données relient a ce nom soit afficher sur la feuille excel.
voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
''''''''
Set rec = db.OpenRecordset("select * from user ", DAO.dbOpenSnapshot)
If Not (rec.EOF) Then
name = rec.Fields(1).Value
End If
Set rec = db.OpenRecordset("select * from user where name =" & name, DAO.dbOpenSnapshot)
 
          If Not (rec.EOF) Then
            Tabelle1.Range("c3") = rec.Fields(1).Value
                Tabelle1.Range("c4") = rec.Fields(2).Value
                    Tabelle1.Range("c5") = rec.Fields(3).Value
                         End If

merci

[cafeine]

Hello,

il faut donc gérer l'événement double-clic de ton classeur :
(code exemple non testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
dim ASName as String
dim ASh as Worksheet
 
if target & "" <> "" then
        Sheets.Add , ActiveSheet
        ASName = "Detail_" & Target
        Set rec = db.OpenRecordset("select * from user where name ='" & target & "'", DAO.dbOpenSnapshot)
        Set ASh = ActiveSheet
         ASh.name = ASName
          If Not (rec.EOF) Then
            Ash.Range("c3") = rec.Fields(1).Value
            Ash.Range("c4") = rec.Fields(2).Value
            Ash.Range("c5") = rec.Fields(3).Value
          End If
end if
 
Set ASh = Nothing
End Sub

[jokenjo]

Hi ,
merci pour ce code qui marche tres bien, mais mes nom ne sont pas sur la feuille ,mais plutot sur dans une listbox ces de la ou je dois clicle sur le nom , qui sera afficher sur la feuille excel avec ces parametre..
merci