Bonjour le forum !
Une nouvelle fois j'ai besoin de vous.
J'ai dans mon fichier Excel, une instruction Worksheet_beforedoubleclick sur ma première feuille, qui me permet d'ouvrir une userform lorsque je double click sur une plage nommée (ici "tableau"). Voici le code :
End sub
En parralèle, j'ai une autre userform appelé "userform2". Dans cette userform2, un commandbutton qui m'ouvre l'userform1. Seulement, j'aimerai que au lieu d'ouvrir l'userform1 simplement, il simule le doubleclick (code précédent), pour pouvoir charger : UserForm1.TextBox1.Value = Cells(Target.Row, 2).
Bien sur, je ne souhaite pas copier le code "UserForm1.TextBox1.Value = Cells(Target.Row, 2)" dans l'instruction du commandbutton de l'userform2, car il est en réalité très long. Je souhaite "appeler" l'instruction worksheet en quelque sorte depuis mon commandbutton. Je ne sais pas si c'est possible. J'ai essayé le code suivant mais ça ne fonctionne pas :
Voila, j'espere avoir été claire même si mon problème est assez compliqué.
Cordialement
Une nouvelle fois j'ai besoin de vous.
J'ai dans mon fichier Excel, une instruction Worksheet_beforedoubleclick sur ma première feuille, qui me permet d'ouvrir une userform lorsque je double click sur une plage nommée (ici "tableau"). Voici le code :
Code:
Private Sub Worksheet_beforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Intersect(Target, [tableau]) Is Nothing Then
UserForm1.TextBox1.Value = Cells(Target.Row, 2)
l = Target.Row: UserForm1.Show
End if
cancel = True
En parralèle, j'ai une autre userform appelé "userform2". Dans cette userform2, un commandbutton qui m'ouvre l'userform1. Seulement, j'aimerai que au lieu d'ouvrir l'userform1 simplement, il simule le doubleclick (code précédent), pour pouvoir charger : UserForm1.TextBox1.Value = Cells(Target.Row, 2).
Bien sur, je ne souhaite pas copier le code "UserForm1.TextBox1.Value = Cells(Target.Row, 2)" dans l'instruction du commandbutton de l'userform2, car il est en réalité très long. Je souhaite "appeler" l'instruction worksheet en quelque sorte depuis mon commandbutton. Je ne sais pas si c'est possible. J'ai essayé le code suivant mais ça ne fonctionne pas :
Code:
Public Sub CommandButton2_Click()
Worksheets("registre de suivi").Range("A3").Activate
'La case A3 fait bien partit de la plage nommée "tableau"
Application.DoubleClick
End If
End Sub
Voila, j'espere avoir été claire même si mon problème est assez compliqué.
Cordialement