Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce
code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single)
txtNomDuMarie.SetFocus
End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur
plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine
de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl = ""
End If
Next Ctrl
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Jacques,
Sur le site excelabo , il y a un classeur que tu peux télécharger à titre d'exemple sur les modules de classes. Son code est commenté. Tu pourrais t'en inspirer !
Salutations!
"Jacques" a écrit dans le message de news:ci52da$h2s$ Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
Merci d'avance, Ouille
Bonjour Jacques,
Sur le site excelabo , il y a un classeur que tu peux télécharger à titre d'exemple sur les modules de classes. Son code
est commenté. Tu pourrais t'en inspirer !
Salutations!
"Jacques" <jacqueszeziola@wanadoo.fr> a écrit dans le message de news:ci52da$h2s$1@news-reader5.wanadoo.fr...
Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce
code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single)
txtNomDuMarie.SetFocus
End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur
plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine
de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl = ""
End If
Next Ctrl
Sur le site excelabo , il y a un classeur que tu peux télécharger à titre d'exemple sur les modules de classes. Son code est commenté. Tu pourrais t'en inspirer !
Salutations!
"Jacques" a écrit dans le message de news:ci52da$h2s$ Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
Merci d'avance, Ouille
Misange
Bonjour,
Ca me surprend que ta proc ne marche pas. Essaie de rajouter ctrl.value ="" ? Sinon si tes textbox ont tous un bout de nom en commun essaie de boucler dessus http://www.excelabo.net/xl/controles.php#bouclecontrole
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 13/09/2004 23:07:
Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
Merci d'avance, Ouille
Bonjour,
Ca me surprend que ta proc ne marche pas. Essaie de rajouter ctrl.value
="" ?
Sinon si tes textbox ont tous un bout de nom en commun essaie de boucler
dessus
http://www.excelabo.net/xl/controles.php#bouclecontrole
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 13/09/2004 23:07:
Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce
code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single)
txtNomDuMarie.SetFocus
End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur
plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine
de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl = ""
End If
Next Ctrl
Ca me surprend que ta proc ne marche pas. Essaie de rajouter ctrl.value ="" ? Sinon si tes textbox ont tous un bout de nom en commun essaie de boucler dessus http://www.excelabo.net/xl/controles.php#bouclecontrole
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 13/09/2004 23:07:
Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
Merci d'avance, Ouille
Jacques
Michel DENIS, Misange et le MPFE, bonsor
Merci, je vais voir cela sur le site de Excelabo.
Pour ce qui est du deuxième code en exemple :
Dim Ctrl as Control
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
Il ne me sert pas a faire ce que je veux, mais c'était pour montrait un peu ma vision d'un code pour effectuer ce que j'aurais voulu faire, avec le premier code :
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Mais pour le moment j'ai effectué cet évènement avec tous mes controls.
Merci, a tous les deux, Ouille "Misange" a écrit dans le message de news:
Bonjour,
Ca me surprend que ta proc ne marche pas. Essaie de rajouter ctrl.value ="" ? Sinon si tes textbox ont tous un bout de nom en commun essaie de boucler dessus http://www.excelabo.net/xl/controles.php#bouclecontrole
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 13/09/2004 23:07:
Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce
code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur
plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine
de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
Merci d'avance, Ouille
Michel DENIS, Misange et le MPFE, bonsor
Merci, je vais voir cela sur le site de Excelabo.
Pour ce qui est du deuxième code en exemple :
Dim Ctrl as Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl = ""
End If
Next Ctrl
Il ne me sert pas a faire ce que je veux, mais c'était pour montrait un peu
ma vision d'un code pour effectuer ce que j'aurais voulu faire, avec le
premier code :
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single)
txtNomDuMarie.SetFocus
End Sub
Mais pour le moment j'ai effectué cet évènement avec tous mes controls.
Merci, a tous les deux, Ouille
"Misange" <misange@devinez-ou.net> a écrit dans le message de
news:OsOuF0imEHA.3396@tk2msftngp13.phx.gbl...
Bonjour,
Ca me surprend que ta proc ne marche pas. Essaie de rajouter ctrl.value
="" ?
Sinon si tes textbox ont tous un bout de nom en commun essaie de boucler
dessus
http://www.excelabo.net/xl/controles.php#bouclecontrole
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 13/09/2004 23:07:
Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle
j'ai ce
code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift
As
Integer, ByVal x As Single, ByVal y As Single)
txtNomDuMarie.SetFocus
End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela
sur
plusieur controle sans être obligé de recopier ce code , (J'ai une
vingtaine
de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl = ""
End If
Next Ctrl
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
Il ne me sert pas a faire ce que je veux, mais c'était pour montrait un peu ma vision d'un code pour effectuer ce que j'aurais voulu faire, avec le premier code :
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Mais pour le moment j'ai effectué cet évènement avec tous mes controls.
Merci, a tous les deux, Ouille "Misange" a écrit dans le message de news:
Bonjour,
Ca me surprend que ta proc ne marche pas. Essaie de rajouter ctrl.value ="" ? Sinon si tes textbox ont tous un bout de nom en commun essaie de boucler dessus http://www.excelabo.net/xl/controles.php#bouclecontrole
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 13/09/2004 23:07:
Salut a toutes et tous,
Pour pouvoir au passage de la sourie mettre le focus sur un controle j'ai ce
code.
Private Sub txtNomDuMarie_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Single, ByVal y As Single) txtNomDuMarie.SetFocus End Sub
Es-ce qu'il serait possible de pouvoir, mettre un code qui fearit cela sur
plusieur controle sans être obligé de recopier ce code , (J'ai une vingtaine
de controls).
Je voyais un truc du style de cela :
Dim Ctrl as Control
For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = "" End If Next Ctrl
