Loope pour dbclick

[Temjeh]

Bonjour à tous

J'aimerais savoir si c'est possible:

j'ai 225 textboxs et si je doubbleclick sur n'importe lesquels...userform1.show.
Du genre:

Dim Ctrl As Control
For Each Ctrl In Me.Controls
UserForm1.Show
End If
Next

Merci beaucoup

Temjeh

 

[Eric C]

Bonjour le forum
Bonjour Temjeh

Pour ma part si ton USF dispose uniquement de 225 TxtBoxs, je placerais le code dans celui du USF, tel que :

Sub UserForm_DblClick (......
UserForm2.Show
End Sub

Ainsi le double click sur ton USF appelle le USF2. 😉

bonne fin de dimanche à toutes & à tous.

 

[Temjeh]

Merci Eric

Le prob vient fu fait que quand je clic dans le textbox je me trouve à une active cell spécifique:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Range('B2').Activate
UserForm1.Show
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Range('c2').Activate
UserForm1.Show
End Sub

.......jusqu'à 225

Je voulais juste m'évité de recopié ceci 225 fois

Merci

Temjeh

 

[Temjeh]

Oublions ca car je viens de voir en te répondant que j'ai absolument besoin qu'il sélection un range associé à textbox spécifique donc impossible

Désolé..

Temjeh

 

[Eric C]

Re le forum
Re bonjour Temjeh


Pas bien 😛