Re : Neutraliser une touche pour l'enselmble des textbox
Bonsoir Papou-Net
Merci à toi, Cela diminue quelque peu la quantité de ligne.
J'aurais bien voulu me dispenser de ces 3 lignes par textbox
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Touche KeyCode
End Sub
J'utilise dans commandbutton1
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Then
If ctl.text = "" Then
MsgBox "Saisie incomplète"
ctl.SetFocus
Exit Sub
End If
For Each ctl In UserForm1.Controls
colonne = Val(ctl.Tag)
If colonne > 0 Then Sheets("base").Cells(Derligne, colonne) = ctrl
Next
End If
Next
Si tu avais une idée de fonction, avoir un code élégant.
Encore merci pour ta réponse et l'élégance de ton code.
Bonne soirée