Hi hi hi Merci Salim,
Bon alors j'ai retrouvé... Mais niet pour ce cas de figure... Sur un UserForm un ActiveX CommandButton peut avoir la Propriété Défault = True, pas sur un ActiveX CommandButton OLEObject... Snif...
Alors je me suis rabattu sur l'évènement de TextBox "KeyPress" mais là par contre cet événement KeyPress ne se déclenche pas lorsque l'utilisateur appuie sur TAB, ENTRÉE, Une touche de directionn, Une touche qui déplace le focus d'un contrôle à un autre... Arf...... Re Snif !
Enfin bon je ne désespère pas, avec les ressources que nous avons sur XLD...
Sinon pour la même chose sur UserForm, il suffit de mettre CommandButton hors zone d'affichage du UserForm et de lui attribuer la Propriété Défault = True... Puis un code comme ceci....... Et hop !!! Finger In the Noze !!!
Private Sub CommandButtonDefault_Click()
Dim CTRLArray As Variant
For Each CTRLArray In Array(TextBox1, TextBox2, TextBox3, TextBox4, _
TextBox5, TextBox6, TextBox7, TextBox8)
If CTRLArray.Value = "" Then
On Error Resume Next
CTRLArray.SetFocus
Exit Sub
End If
Next CTRLArray
End Sub
Bonne nuit à tous et toutes
@+Thierry