Worksheet_BeforeDoubleClick / tag / .controls

[GADENSEB]

Bonjour le Forum,

Je rame un peu ....

Je cherche à charger l'usf SAISIE en cliquant sur une des lignes du tableau (peux importe la colonne)

J'ai tagé mes textbox/checkbox......

du coup, je me dis en faisant Worksheet_BeforeDoubleClick je charge la variable "LIG" pour compléter mes .controls....
et je charge l'usf

je coince à ce niveau

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 ???????????
SAISIE.Show
End Sub

de plus : mon scroll ne marche pas ..... sniff .... je vois pas quel paramètre bouger

Qui aurait une idée ??

bonne am

Seb

 

[Roland_M]

Re : Worksheet_BeforeDoubleClick / tag / .controls

bonjour,

une piste, d'abord loader l'userform
Load SAISIE

initialiser les contrôles en se servant de Target
exemple Saisie.TextBox1.Text = !?!

et ensuite seulement
SAISIE.Show

 

[GADENSEB]

Re : Worksheet_BeforeDoubleClick / tag / .controls

ben oui cela semble évident, tellement bête que j'y ais pas pensé ;-)

du coup je tente cela :

Mais j'ai une errreur de compilation sur "Me.Controls"

J'ai placé le code dans le worksheet "PARTICIPANTS"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Load SAISIE
lig = Target.Value
   Dim c, x&
With SAISIE
    For Each c In Me.Controls
        If c.Tag <> "" Then
            x = c.Tag
            If IsDate(c.Value) Then
                FEUILLE2.Cells(lig, x).Value = CDate(c.Value)
            Else
                FEUILLE2.Cells(lig, x).Value = c.Value
            End If
        End If
    Next
End With
 
SAISIE.Show
End Sub

Qu'est-ce que tu en penses

Merki !

 

[Roland_M]

Re : Worksheet_BeforeDoubleClick / tag / .controls

re

il faut mettre SAISIE.Controls

et là c'est quoi ?
lig = Target.Value

ce serait pas plutôt:
lig = Target.Row

 

[GADENSEB]

Re : Worksheet_BeforeDoubleClick / tag / .controls

ok je comprends

J'y suis presque avec :

mais je vois pas comment tourner :

 c.Tag = x
 Feuil1.Cells(lig, x).Value

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Load SAISIE
lig = Target.Row
   Dim c, x&
With SAISIE
    For Each c In SAISIE.Controls
        
       c.Tag = x
       Feuil1.Cells(lig, x).Value
          
    Next
    
End With
 
SAISIE.Show
End Sub