modif formulaire

[patgravure35]

Bonjours a tous et toutes

Tout d’abord je vous remercie tous et toutes pour la patience que vous avez avec les débutant tel que moi et pour votre aide si précieuse
Voilà mon problème lol et oui encore un

J’ai essayé de me dépatouiller tout seul mais ça coince
On m’avait fait un masque de saisi enfin un formulaire pour être précis j’ai voulu l’adapter pour un autre tableau mais ça me donne une erreur quant je valide pour enregistrée
mais je vois pas pourquoi

Si quelqu’un peut m’aider cela serais trop cool
Merci d’avance je joins le fichier avec le bouton avec ma modif

 

[vmax01]

Re : modif formulaire

bonjour le forum... et bonjour Pat

tes textbox ne correspondaient pas par leur nom je les ai remis en ordre et voila ça marche je te donne le code:

Private Sub CmbValider_Click()
With Sheets("Données")
If Me.txtDateControl = "" Then
MsgBox " la date de load n'est pas documentée"
Me.txtDateControl.SetFocus
Exit Sub
End If
If IsDate(Me.txtDateControl) = False Then
MsgBox " la date de load n'est pas une date"
Me.txtDateControl.SetFocus
Exit Sub
End If
If Me.TxtSemaine = "" Then
MsgBox " le lanning n'est pas documenté"
Me.TxtSemaine.SetFocus
Exit Sub
End If
If Me.TxtNCommande = "" Then
MsgBox " le numéro commande n'est pas documenté"
Me.TxtNCommande.SetFocus
Exit Sub
End If
If Me.TxtClient = "" Then
MsgBox " client n'est pas documenté"
Me.TxtClient.SetFocus
Exit Sub
End If
If Me.TxtRef = "" Then
MsgBox " ref produit n'est pas documenté"
Me.TxtRef.SetFocus
Exit Sub
End If
If Me.TxtNbInit = "" Then
MsgBox " le nombre n'est pas documenté"
Me.TxtNbInit.SetFocus
Exit Sub
End If


Derligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Derligne) = CDate(Me.txtDateControl)
.Range("B" & Derligne) = CInt(Me.TxtSemaine)
.Range("C" & Derligne) = CLng(Me.TxtNCommande)
.Range("D" & Derligne) = Me.TxtClient
.Range("E" & Derligne) = CLng(Me.TxtRef)
.Range("F" & Derligne) = CLng(Me.TxtNbInit)
.Range("G" & Derligne) = Me.TxtObservation
End With
MsgBox " création effectuée"
Unload Me
End Sub


copie le et colle le a ça place

bonne journée.

 

[patgravure35]

Re : modif formulaire

merci a vous

et pouriez vous ma dire comment faire pour que le formulaire ne ce ferme par a chaque validation de creation
mais que quant je le decide

merci encore de votre aide et a bientot

 

[vmax01]

Re : modif formulaire

bonsoir le forum.

juste apres le dernier end with ... tu colle le code suivant qui te permet de garder ta boite ouverte et efface sont contenue pour une nouvelle saisie.

a placer apres le dernier end with

 Dim Mess As String
   Mess = MsgBox(" création effectuée, voulez vous reter sur le forumulaire ?", vbYesNo)
        If Mess = vbYes Then
            With Me
                .txtDateControl = ""
                .TxtPlanning = ""
                .TxtClient = ""
                .TxtNCommande = ""
                .TxtRef = ""
                .TxtNb = ""
                .TxtObservation = ""
            End With
            Exit Sub
        Else
            Unload Me
        End If

bonne soirée a tous.

 

[patgravure35]

Re : modif formulaire

bonjours et merci a tous pour votre aide

et desole pour la multiplication des post

a bientôt
patrick