Userform Résolu/Fermé

Question

Bonjour à tous,

 https://mon-partage.fr/f/IJed4bJN/

J'ai un fichier (ci-joint) qui se remplit par userform. Quand on fait un double clic dans l'onglet Liste Complete, il apparait avec les données de la ligne concernée.

J'ai trois questions sur cet userform. Dois-je faire trois sujets différents, ou puis je poser mes questions dans un même sujet ?

Allez je tente dans un meme sujet. Si il faut que je change, n'hésitez pas.

Question 1:
Lorsque je modifie mes lignes via des saisies dans l'userform, il y a une sauvegarde de ces modifications dans l'onglet Commit à des fins de traitements ultérieurs.
Cependant, il reste la possibilité de modifier des données sans l'userform. Comment puis-je les enregistrer aussi dans l'onglet commit ?

Question 2 :
Pour activer l'userform, il faut doublecliquer dans l'ongelt Liste complete. Ce double clic vous permet d'avoir devant vous dans l'userform les données de la ligne que vous venez de cliquer. Comment peut-on mettre une zone de liste déroulante (pour les villes) qui permettrait aussi de faire une recherche par ville en remplissant bien evidement le reste des données de la ville sélectionner ?

Question 3 :
Dans cet userform, j'ai des listbox où j'aimerai limiter la saisie à des formats dates uniquement. Comment puis-je parametrer ceci?



Merci pour vos réponses
Benoit

f894009 · Answer

Bonjour,

Un peu malade ...... Ah bon!

Question3:
Ce sont des textbox
'control entree avec format date
Private Sub Textbox51_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    TextBox51.MaxLength = 10
    Select Case KeyAscii
        Case 46, 48 To 57
            ' 01/04/2016
            VT = Len(TextBox51)
            If VT = 2 Or VT = 5 Then TextBox51 = TextBox51 & "/"
        Case Else
            KeyAscii = 0
            MsgBox "Only numbers allowed"
    End Select
End Sub

Question2:
zone de liste déroulante (pour les villes)
Oui, vous mettez le resultat ou, car une ville doit etre x fois dans la base?
Ensuite ajouter le code pour recuperer l'enregistrement de la selection dans cette liste

Question1:
modifier des données sans l'userform.
Ajouter cette procedure:
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
faire un test si c'est une cellule base qui vient d'etre modifiee, prendre la parti du code de l'UF qui enregistre les modif (bien sur avec quelques modifs)

A+

Benoit_Lyon · Answer

Bonsoir,

https://mon-partage.fr/f/fffhc1QO/

Question 1
J'ai bien mis le code en place. 
Problème dès que j'utilise l'userform, la deuxième macro s'active et enregistre tout les éléments de l'userform comme étant chacun un nouvel enregistrement.

Comment mettre en veille la deuxième facon de saisir lorsque l'userform est activé ?

Cordialement 
Benoit

Benoit_Lyon · Answer

Bonsoir

Je refais la question 1 :

Question 1:
Lorsque je modifie mes lignes via des saisies dans l'userform, il y a une sauvegarde de ces modifications dans l'onglet Commit à des fins de traitements ultérieurs.
Cependant, il reste la possibilité de modifier des données sans l'userform. Comment puis-je les enregistrer aussi dans l'onglet commit ? 

J'ai bien inséré la procédure

Private Sub Worksheet_Change(ByVal Target As Range)

J'ai bien adapté les macros qui dépendent de ces procédures.

Donc maintenant, quand je sélectionne une cellule j'ai bien un enregistrement des modifications dans le deuxième onglet.
Et si je doubleclic, j'ai bien mon userform qui apparait.
Seulement là j'ai les deux procédures qui se déclenchent en meme temps, donc j'ai plusieurs lignes qui se remplissent pour un seul enregistrement.

Et je n'ai pas compris votre dernier post f894009

Merci
Benoit

Benoit_Lyon · Answer

Je viens de tester avec les deux sub routines, et pas de changement de résultats.

Benoit_Lyon · Answer

Pour mes dates dans les textbox,

j'ai essayé votre code, mais message variable non défini pour VT

https://mon-partage.fr/f/7xPtyTXu/

Benoit_Lyon · Answer

Et après le bug, les deux saisies ne fonctionnent plus dans le commit.

Benoit_Lyon · Answer

Ok, merci. Je le note.

Désolé de ne répondre que maintenant, mais les obligations parentales...
Vous ne m'avez pas dit ce que vous faites dans la vie ?

Benoit_Lyon · Answer

Ok, 

Je viens de tester le code AScii de 48 à 57. C'est bon j'ai compris.

Benoit_Lyon · Answer

Une modif.
pour les mag fermés ou refus, quand je coche la case refus ou fermés, j'ai true dans la cellule concernée.
Maintenant si j'ai true dans cette cellule, j'aimerai avoir X dans les cellules de dates (Ca permettrait de faire des titres plus simples...)

J'ai donc dans le private sub de la checkbox de refus 
if (checkbox.value=true)then
Cells (,13).value="X"
Else
End if

C'est les valeurs de cells qui me manquent.
Là c'est le genre de petits détails qui me fait dire que je suis loin de maitriser. Comment dire si la cellule (ligne X, colonne 27) est egale à vrai alors la cellule située sur la meme ligne mais en colonne 13 sera égale à X.
??

Benoit_Lyon · Answer

Bonsoir,

En fait, ce que je n'ai pas dit du départ, c'est que je ne suis pas l'utilisateur final ni le "client". Je fais des demandes parfois qui ne sont pas les miennes.

Donc pour la demande juste au dessus, c'est bon j'ai retrouvé mon target.row.

Mais j'ai analysé votre fin de réponse, et sans testé, il est évident que de rajouter un élément en dehors de la saisie par UF, cela rajoute certains éléments; mais en plus rajouter un élément dans une cellule où on force la date, les difficultés sont trop importantes et risquent (parceque ce n'est pas impossible) de rajouter un fort ralentissement.
Donc j'ai proposé au "Client" l'utilisation d'une mise en forme conditionnelle qui mettra aussi bien en évidence sa demande que si c'était un X.

D'autant plus qu'il faudrait que je puisse interdire la saisie manuelle.
Une idée en dehors de la protection de la feuille ?

Cdt
Benoit

f894009 · Answer

Bonjour,

Je fais des demandes parfois qui ne sont pas les miennes. 
Y a trop d'intermediaire dans beaucoup de dommaine, non ?
Vous connaissez cette histoire de la vieille dame et du serpent que plusieurs personnes doivent se raconter en cascade sans avoir entendu ce que la precedente personne a ecoute. Au debut de l'histoire le serpent mord la vieille dame et la derniere personne raconte que c'est la vieille dame qui a mordu le serpent

 j'ai proposé au "Client" l'utilisation d'une mise en forme conditionnelle
C'est comme les formules, faudra pas l'oblier sur ajout de ligne(s)

faudrait que je puisse interdire la saisie manuelle.
De la feuille ou d'une partie de la feuille et pourquoi ?

Benoit_Lyon · Answer

Bonjour,

Saisie manuelle interdite de la feuille
Pour éviter les saisies anarchiques afin d'avoir des données homogènes pour l'analyse. 
Masque de saisie sur chaque colonne ? Pourquoi pas....si ca prend pas beaucoup de temps à mettre en oeuvre.

Sinon, verouillage feuille, saisie uniquement par l'UF

Benoit_Lyon · Answer

Leçon du matin (Pour moi)

Pourquoi le client ne veut pas ? Parcequ'il a peur que ca me prenne du temps....
Pourquoi ca me prendrait du temps ? : Parceque lancé dans le VBA j'en oublie les fondamentaux d'Excel qui sont les Validations de données...

Ne pas courir droit dans la difficulté et rester simple...

Je m'énerve parfois

Benoit_Lyon · Answer

Autre question :
Une fois une date saisie dans le masque des dates, je n'arrive pas à enlever ces dates par supprime dans le masque.
Comment faire?

Là je sèche depuis trois jours dessus.

Benoit_Lyon · Answer

Ok, ca supprime dans l'UF mais pas dans le tableau

Benoit_Lyon · Answer

Et bien chez moi cela ne fonctionne pas alors que je viens de tester sur le dernier que vous avez envoyé. 

J'utilise le backspace puis enter.
Dans le tableau, la date reste présente

Benoit_Lyon · Answer

Re,


Internet UF Textbox Format date

Cela fonctionne quand je supprime dans la case du tableau, j'aimerai que cela fonctionne dans l'UF

Benoit_Lyon · Answer

oui, utilisation de backspace dans l'UF; je suis d'accord. Mais les données restent dans le tableau

Benoit_Lyon · Answer

Ok, c'est vrai je suis un peu fatigué (beaucoup peut-etre). 

Reprenons par l'exemple = 
- Je rentre une date par l'UF
- Je valide mon UF
- Mince je me suis trompé
- Je retourne dans l'UF
- Je veux faire backspace dans la date erronée
- Ok, disparition dans l'UF
- Surprise toujours présente dans le tableau.

Benoit_Lyon · Answer

Ce sont des rendez-vous commerciaux, et parfois ils peuvent reporter aux calendes Grecs, d'où le "erronée".

Benoit_Lyon · Answer

Et donc comment je fais pour interdire la saisie de 45/14/4500 ?

f894009 · Answer

Re,
Pour le moment
Version control butees annees, jour dans mois, mois, annees separe du controle saisie

 https://mon-partage.fr/f/8cVXd5qW/
Plus besoin On Error Resume Next

Je regarde pour integration control format dans saisie temps reel
suite:
Pas vraiment judicieux et surtout pas simple a realiser

Benoit_Lyon · Answer

je viens d'ouvrir le fichier, tout semble marcher correctement. quelle autree modif voulez vous apporter?

Benoit_Lyon · Answer

Pour le pdv du coup je bloque colonne et le test box qui correspond 

Pour les autres numérique je tente ce soir une adaptation de ce que vous avez écrit.

Benoit_Lyon · Answer

Bon je fais une compil de tout ça cette nuit,

SI vous avez une idée pour le blocage de la feuille (saisie en direct sans passer par l'UF bloqué) n'hésitez pas.

A propos, on touche à la fin de ce projet.

Si ça vous tente, je me lance dans un projet de main courante électronique. Pas d'intermédiaire, mon projet, mes décisions. Je pars de rien, si ce n'est mon expérience du terrain de la sécurité. Donc pas de contrainte de départ.
Mais on en reparle, car presque fini ce projet mais pas encore...
Pas la charrue avant les boeufs...

Benoit_Lyon · Answer

je protège la feuille pour pas qu'il puisse y avoir de modifications sauf en passant par l'UF

Benoit_Lyon · Answer

Bonjour,

J'ai essayé votre mode de protection de la feuille, c'est inefficace, on peut toujours modifié en faisant SUppr.

Benoit_Lyon · Answer

C'est bon, trouvé, erreur de saisie manquait juste ":"

Benoit_Lyon · Answer

Est-il possible de rendre accessible la fonction filtre et tri ?

Benoit_Lyon · Answer

Feuil1.EnableAutoFilter = True

Benoit_Lyon · Answer

https://mon-partage.fr/f/0M4H4Y7s/

Fichier complété

Benoit_Lyon · Answer

Bonjour,

Ca y est, enfin les vacances. Bacs et correction du bac finis pour ma part. Donc vacances, donc informatique.
L'absence a été longue, mais le mois a été très chargé. 

Bon du coup, le fichier que l'on a mis au point fonctionne et fonctionne même bien. "Le Client" n'a pas de demande supplémentaire pour l'instant.

Donc, Je passe au projet suivant.
Donc je ferme ce sujet et en ouvre un autre en espérant vous lire dans ce nouvel apprentissage pour moi.

Cordialement.
Benoit

Userform

32 réponses

Discussions similaires