chris6999
XLDnaute Impliqué
Bonjour
Une petite question de bon matin car là je sèche.
Comment faire remonter des variables dans mes textbox à l'initialisation de l'Userform.
J'ouvre l'USF depuis un double clic et je souhaiterais que les textbox s'incrémentent en fonction des valeurs de ma ligne active.
J'ai mis ce code qui me paraissait le plus adapté mais cela ne fonctionne pas et l'USF ne parvient pas à s'ouvrir.
Erreur d'exécution.
Sur ma feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 20 Then 'A
USF.Show (USF = nom de mon userform)
end if
end sub
Dans le code de mon USF
Private Sub UserForm_Initialize()
Dim lig As Long
lig = ActiveCell.Row
Textbox1.Value = Range(lig, 14).Value & " " & Range(lig, 13).Value
Textbox2.Value = Range(lig, 9).Value
End Sub
Je ne mets pas de fichier joint car cela ne me semble pas forcément utile dans ce cas précis.
Merci d'avance pour votre aide et bonne journée à tous
Une petite question de bon matin car là je sèche.
Comment faire remonter des variables dans mes textbox à l'initialisation de l'Userform.
J'ouvre l'USF depuis un double clic et je souhaiterais que les textbox s'incrémentent en fonction des valeurs de ma ligne active.
J'ai mis ce code qui me paraissait le plus adapté mais cela ne fonctionne pas et l'USF ne parvient pas à s'ouvrir.
Erreur d'exécution.
Sur ma feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 20 Then 'A
USF.Show (USF = nom de mon userform)
end if
end sub
Dans le code de mon USF
Private Sub UserForm_Initialize()
Dim lig As Long
lig = ActiveCell.Row
Textbox1.Value = Range(lig, 14).Value & " " & Range(lig, 13).Value
Textbox2.Value = Range(lig, 9).Value
End Sub
Je ne mets pas de fichier joint car cela ne me semble pas forcément utile dans ce cas précis.
Merci d'avance pour votre aide et bonne journée à tous