Bonsoir à tous,

Auriez-vous une idée pour remplir la txtbox1 de mon userform2 avec le contenu d'une cellule à choisir par un click n'importe où dans la colonne "A".
Le textbox1 en question servira ensuite à renseigner une cellule connue dans une feuille modèle restant à insérer en dernier dans mon classeur.

Voila ce que j'ai déjà testé et qui ne fonctionne pas :
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
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Cancel = True
'Stop
'With Target
'a = Target.Value
'End With
'Application.ScreenUpdating = False
'If Not Intersect(Target, Range("A2:A2000")) Is Nothing Then
'UserForm2.TextBox1 = a
 
 
End If
Application.ScreenUpdating = True
End Sub
 
UserForm2.TextBox1.Text = ActiveCell.Value
Lors de l'ouverture du userform dans la feuille, bien entendu, le focus étant sur le userform, je n'avais pas d'accès aux cellules.
Alors j'ai ajouté le 0 après le show du userform comme çà :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
UserForm2.Show 0
Là j'ai bien accès aux cellules mais je ne retourne rien au textBox.

Merci d'avance.