[RESOLU] : Obligation de saisir tous les textbox

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir à tous et à toutes
SVP comment faire ou qu'est ce qu'il faut ajouter à ce code pour que je ne puisse pas passer au deuxieme textbox si je ne remplis pas textbox1 ..et ainsi de suite pour les autres textbox ..avec un msgbox : "veuillez remplir le champs code" apres que je remplis texbox1 .. un msgbox qui s'affiche " veuillez remplir le champs NOM " etc ....
Merci beaucoup d'avance mes maitres pour l'aide
Cordialement
MADA

 

[Roland_M]

Re : Obligation de saisir tous les textbox

bonsoir,

voir simplement au début:

Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If LCase(Left(Ctrl.Name, 7)) = "textbox" Then
If Ctrl.Value = "" Then Ctrl.SetFocus: Exit Sub
End If
Next
...
...
'boucle idem pour vider les textbox
For Each Ctrl In Me.Controls
If LCase(Left(Ctrl.Name, 7)) = "textbox" Then Ctrl.Value = ""
Next
...


EDIT: code complet

Private Sub CommandButton1_Click()
'test si toutes les valeurs sont présentes
Dim Ctrl As Control
For Each Ctrl In Me.Controls
 If LCase(Left(Ctrl.Name, 7)) = "textbox" Then
    If Ctrl.Value = "" Then Ctrl.SetFocus: Exit Sub
 End If
Next

'colle les valeurs et vide textbox
Dim lRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("Feuil1")
lRow = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Ws
 For Each Ctrl In Me.Controls
  If LCase(Left(Ctrl.Name, 7)) = "textbox" Then
     I = Val(Mid(Ctrl.Name, 8)): .Cells(lRow, I).Value = Ctrl.Value: Ctrl.Value = ""
  End If
 Next
End With
Set Ctrl = Nothing
End Sub

 

[MADAGASCAR]

Re : Obligation de saisir tous les textbox

Bonsoir ROLAND_M
Merci beaucoup pour l'aide
SVP voir mon fichier si vous aurez du temps biensure
J'ai pas reussi a le mettre
Cordialement
MADA

 

[Roland_M]

Re : Obligation de saisir tous les textbox

re

voir comme ceci !

 

[MADAGASCAR]

Re : Obligation de saisir tous les textbox

Bonsoir Roland_M
Oui c'est magnifique comme code seulement est ce qu'on peut afficher des msgbox comme j'ai expliqué dans mon premier post
Merci d'avance pour vos propres codes
Cordialement
MADA

 

[Roland_M]

Re : Obligation de saisir tous les textbox

re

voir si ok !?

 

[MADAGASCAR]

Re : Obligation de saisir tous les textbox

Salut ROLAND_M
BRAVO maitre
C'est ça ce que je veux
Mille fois merci pour votre aide
Mille fois merci pour votre gentillesse
Cordialement
MADA