Autres Obliger la personne à se servir d'un formulaire

[alain.pierrephie]

Bonjour à tout le forum,
Je fais appel au forum car j'ai cherché la solution en vain sur le net mais aucune réponse m'a été apporté.
[ ci joint une partie de mon petit programme. ]
J'ai fait un formulaire de saisie qui s'ouvre à l'aide du crayon orange stylisé. On rempli donc les cases tout ou partie qui vont s'incrémenter comme il se doit dans les cases correspondantes dans l'onglet "Chemin". Jusque là no problémo
Je souhaiterai par contre que la personne ne se serve pas directement des cases de l'onglet "chemin" mais soit obligée à passer par le formulaire.
J'ai bien essayé de verrouiller les cases mais si ces cases de l'onglet chemin sont verrouillées quand on fait "ajout" avec le formulaire, il demande un débogage autrement dit, ça ne marche pas.
Y aurait-il une subtilité afin de verrouiller les cases de l'onglet "chemin" mais possibilité de les remplir uniquement avec le formulaire de saisie ?
Merci à vous tous

nb: Suis sur excel 2007

 

[patricktoulon]

bonjour
en ajoutant une propriété perso a ton userform avec une simple variable public (dans le userform) on peu piloter la contrainte dans le change de la feuille

 

[sylvanu]

Bonsoir Alain, patrick
Une autre approche est de protéger la feuille, et de la déprotéger unqiuement quand on fait le transfert de données :

Private Sub Ajout_Click()
Sheets("chemin").Activate
ActiveSheet.Unprotect
[B1] = NOM
[H1] = PRENOM
[A6] = JOUR
[B6] = MOIS
[C6] = ANNEE
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
Unload Me
End Sub

Dans ce module il n'y a pas de mot de passe, mais on peut en rajouter un :

ActiveSheet.Unprotect ("mot de passe")
et
ActiveSheet.Protect Password:="mot de passe"

 

[patricktoulon]

re
bonjour sylvanu
oui aussi

 

[alain.pierrephie]

bonjour
en ajoutant une propriété perso a ton userform avec une simple variable public (dans le userform) on peu piloter la contrainte dans le change de la feuille

Bonjour et merci mais ça ne marche pas j'ai cette ligne du programme qui se surligne " Private Sub Worksheet_Change(ByVal Target As Range)
et le message est : ERREUR DE COMPILATION MEMBRE DE METHODE OU DE DONNEES INTROUVABLES
as tu changé autre chose ?

 

[patricktoulon]

a bon
en general quand tu a une erreur insensé comme ca il y a de fortes chances pour qu'il y est une ref manquantes

demo

 

[alain.pierrephie]

Merci a vous tous j'y suis finalement arrivé à l'instant avec un peu de tout vos codes.
Je vais maintenant essayer d'y mettre un message je devrais y arriver.
Merci encore a vous tous