Forumulaire de saisie obligatoire

[Magiclucien]

Bonjour,

Je découvre le forum depuis peu et VBA depuis guère plus longtemps.

Je vous explique mon besoin, je cherche un créer un planning. Celui sera en partage entre différents utilisateurs qui ont la mauvaise habitude de ne pas le renseigner correctement.

J’ai donc créé un formulaire de saisie obligeant l’utilisateur à renseigner 5 champs différents.

Mon problème est le suivant : Comment contraindre l’utilisateur à utiliser le formulaire ??

En effet, celui-ci s’ouvre via une commande au dessus de la feuille mais l’utilisateur peut directement renseigner la ligne. Auquel cas, il ne la renseigne pas correctement. Comment l’empêcher de toucher à la feuille tout en permettant au formulaire de fonctionner ?

Merci beaucoup pour vos réponses,

 

[kjin]

Re : Forumulaire de saisie obligatoire

Bonjour et bienvenu,
En protégeant la feuille par mot de passe tout simplement
Lors de la saisie via le formulaire, il faudra déprotéger/reproteger la feuille
A+
kjin

 

[Magiclucien]

Re : Forumulaire de saisie obligatoire

Bonjour Kjin,

Je craignais de mettre mal fait comprendre, c'est le cas.

Les utilisateurs en question ne doivent pas disposer du mot de passe pour deprotéger la feuille. Cependant, ils sont les seuls à renseigner le fichier.

Pour simplifier ma demande, je voudrais soit les contraindre à utiliser le formulaire de saisie, soit si ils tapent directement les informations en ligne, les obliger à renseigner les 5 champs obligatoires (5 cellules sur une même ligne).

Est-ce possible ? Merci beaucoup,

 

[natorp]

Re : Forumulaire de saisie obligatoire

Bjr MagicLucien et Kjin
L'idée n'est pas de donner le mot de passe aux utilisateurs, mais seulement de vérouiller les cellules pour ne pas permettre l'écriture directe dans la feuille.
Le mot de passe sera désactivé via le Vba du formulaire et réactiver (tjrs par Vba) après le remplissage des cellules concernées

Cordialement, Gérard

 

[Magiclucien]

Re : Forumulaire de saisie obligatoire

Le mot de passe sera désactivé via le Vba du formulaire et réactiver (tjrs par Vba) après le remplissage des cellules concernées

Bonjour natorp,

Voila c'est exactement çà.

Ou trouvez un code VBA permettant de désactiver la protection pour permettre au formulaire de se "décharger" dans la feuille puis de réactiver la protection ?

Merci beaucoup !

 

[kjin]

Re : Forumulaire de saisie obligatoire

Re,
Non, non, j'avais très bien compris !
A+
kjin

 

[natorp]

Re : Forumulaire de saisie obligatoire

Re
le code pour déprotéger la feuille 1 avec mot de passe "titi" :

Sheets("Feuil1").Unprotect "titi"

le code pour protéger :

Sheets("Feuil1").Protect "titi"

cordialement, Gérard

PS : Et oui comme d'hab ...!! tjrs aussi performant Kjin... bonne journée

 

[Magiclucien]

Re : Forumulaire de saisie obligatoire

Oua les mecs vous étes des pros,

Merci beaucoup, c'est super ! Très bonne journée à vous !

 

[Magiclucien]

Re : Forumulaire de saisie obligatoire

Je rencontre une petite difficulté pour coller ton code VBA :

Voici la macro de mon formulaire :

Private Sub CommandButton1_Click()
If Me.TextBox2.Text = "" Then
MsgBox "Vous devez renseigner un nombre de références pour ce test."
Me.TextBox2.SetFocus
Exit Sub
End If
If Me.TextBox3.Text = "" Then
MsgBox "Vous devez renseigner un ou plusieurs libellés produits."
Me.TextBox3.SetFocus
Exit Sub
End If
If Me.ComboBox2.Text = "" Then
MsgBox "Vous devez selectionner un nom de chef de produit."
Me.ComboBox2.SetFocus
Exit Sub
End If
If Me.ComboBox4.Text = "" Then
MsgBox "Vous devez selectionner un type de test."
Me.ComboBox4.SetFocus
Exit Sub
End If
If Me.TextBox5.Text = "" Then
MsgBox "Vous devez renseigner le contexte ou l'objectif de ce test."
Me.TextBox5.SetFocus
Exit Sub
End If
' Conversion en NOMPRPRE
Numconverti = Application.WorksheetFunction.Proper(Me.TextBox2.Text)
Libconverti = Application.WorksheetFunction.Proper(Me.TextBox3.Text)
Desconverti = Application.WorksheetFunction.Proper(Me.TextBox5.Text)
Cpconverti = Application.WorksheetFunction.Proper(Me.ComboBox2.Text)
Typetestconverti = Application.WorksheetFunction.Proper(Me.ComboBox4.Text)
' Mise en place des valeurs saisies
Range("C1000").End(xlUp).Offset(1, 0).Value = Numconverti
Range("D1000").End(xlUp).Offset(1, 0).Value = Libconverti
Range("G1000").End(xlUp).Offset(1, 0).Value = Typetestconverti
Range("H1000").End(xlUp).Offset(1, 0).Value = Desconverti
Range("F1000").End(xlUp).Offset(1, 0).Value = Cpconverti
' On décharge le formulaire
Unload Me
End Sub

En regardant ton code dans le fichier que tu as envoyé, c'est :

Private Sub CommandButton1_Click()
For i = 1 To 5
If Controls("TextBox" & i) = "" Then
MsgBox "tout les champs ne sont pas renseignés"
Exit Sub
End If
Next
With Sheets("Feuil1")
.Unprotect "Toto"
dl = .Range("A65000").End(xlUp).Row + 1
For i = 1 To 5
.Cells(dl, i) = Controls("TextBox" & i)
Next
.Protect "Toto", userinterfaceonly = True
End With

End Sub

Comment compiler les deux ? Peux-tu m'aider ?

Merci beaucoup,

 

[Magiclucien]

Re : Forumulaire de saisie obligatoire

Je viens de trouver, comme un grand !

Encore merci !

 

[MJ13]

Re : Forumulaire de saisie obligatoire

Bonjour Lucien, Kjin, Natorp

Je viens de trouver, comme un grand !

Encore merci !

Bravo Lucien. Tu es un chef 😀.














































Mais ici, tu es sur un site d'entraide. Donc, se serait bien que tu donnes ta solution. Merci.

 

[dominique35]

Re : Forumulaire de saisie obligatoire

Bonjour à vous tous.

Trouvant le fichier joint proche de ce que je souhaite réaliser, je me pose la question à savoir, si il serais possible de faire un rappel d'une ligne en cas de modification.
Encore merci à tous pour votre aide.

Cordialement Dominique