Besoin codes pour Usf

[castor30]

Bonjour à vous tous,
Je viens vous demander si pour l'un d'entre vous, ce ne serait pas trop demander que de codifier l'Userform que j'ai réussi à faire, mais pour ce qui est de coder en Vba mes connaissances en ce domaine sont nulles.
Recevez dès à présent toute ma reconnaissance.

 

[vgendron]

Hello

Voici un début
1) ca alimente la liste des noms à sélectionner
2) à la sélection d'un nom, récupère les infos et les mets dans les TB

ensuite.. bah. je vais voir..
Je présume que l'action à coder est celle décrite par le bouton lui meme..
ex. supprimer.. --> supprime le nom de la base..

 

[phlaurent55]

Bonjour Castor,

codifier l'Userform que j'ai réussi à faire,

Permet-moi d'avoir des doutes

mais pour ce qui est de coder en Vba mes connaissances en ce domaine sont nulles.

Et pourtant il y a des codes dans le Feuille1 et ça n'a pas l'air d'avoir été fait par un unijambiste

à+
Philippe

Edit: Bonjour Vgendron

 

[vgendron]

Reste plus que l'impression..

Edit,
Salut Philippe..
effectivement.. j'ai des doutes aussi.. ce serait bien la première fois que je vois un novice qui donne un nom directement aux TB et différents controls sur le USF

par contre. je ne vois pas le code dont tu parles sur la feuille 1 (que je ne vois pas non plus..) y aurait il un changement de fichier entre temps??
bref.. me suis amusé quand meme

Ha si !! je viens de le voir.. j'étais meme pas allé sur le code de la feuille..

 

[castor30]

Bonjour Philippe, vgendron,
Je vous remercie de vous intéresser à ma demande.
J'avais obtenu les codes figurant sur la feuille1 il y a quelque temps pour la feuille base.
Seul l'Usf est de moi.
Pour les boutons c'est l'action souhaité. Le bouton rose pour prendre la valeur Modifier ou Valider.
Je souhaite que la sélection par le Listbox ça affiche Modifier et une saisie direct dans les Textbox Valider.
Pour le Listbox est-il possible d'avoir le "reflet" de la feuille Base.

 

[vgendron]

Reflet = ListBox Multicolonne.... ?? la vache !! elle marche bien ma boule de cristal aujourd'hui !

 

[castor30]

Tu es sur d'avoir de l'oxygène ?

 

[castor30]

Bonjour vgendron, philippe,
Après réflexion si pour la Listbox le Nom et Prénom suffise pour les différentes actions cela me suffit.
En vous remerciant de votre gentillesse.

 

[vgendron]

Hello

Je t'invite à aller voir le code vba. j'y ai mis tout un tas de commentaires et explications
pour l'impression. je ne sais pas ce que ca imprime. j'ai pas testé
de toute facon. je ne sais pas ce que tu souhaites imprimer.. Fiches - Adresses - Hebergement.. on ne sait pas à quoi ca correspond..

 

[castor30]

Bonjour vgendron,
Mes sincères remerciements pour le travail effectué.
Mes remarques :
Pour ce qui est à imprimer, je le ferai ne t'inquiète pas.
Le bouton supprimer ne supprime pas le contact.
Pour l'ajout d'un nouveau contact le bouton ne passe pas de "Modifier" à "Ajouter".
La saisie d'un nouveau contact ne se fait pas.
J'ai vu que dans l'Usf le Nom et Prénom suffisent, je croyais qu'il fallait mettre toute la base avant.
L'age ne se met pas dans le Textbox.

Je te remercie également pour ton grand savoir faire que tu met à notre portée, afin de nous venir en aide et répondre à notre attente.

 

[vgendron]

Bonjour

Pour ce qui est à imprimer, je le ferai ne t'inquiète pas.

suis pas inquiet :-D

Le bouton supprimer ne supprime pas le contact.

c'est une constatation? une requete?
Chez moi. quand je sélectionne un nom et que je fais supprimer. bah.. il est supprimé

Pour l'ajout d'un nouveau contact le bouton ne passe pas de "Modifier" à "Ajouter".

c'était censé le faire?

La saisie d'un nouveau contact ne se fait pas.

c'est prévu ou?

J'ai vu que dans l'Usf le Nom et Prénom suffisent, je croyais qu'il fallait mettre toute la base avant.

suffisent à quoi?
la listbox. tu lui mets ce que tu veux..: c'est un apercu de tout ou partie de ta base..

L'age ne se met pas dans le Textbox.

c'est parce que c'était pas fait


EVIDEMMENT.. la feuille Base Init n'est pas modifiée.. puisqu'elle me sert de sauvegarde au cas ou mon code bug...
au final. cette feuille devra etre supprimée...

 

[castor30]

re,
Pour l'ajout d'un nouveau contact le bouton ne passe pas de "Modifier" à "Ajouter". ----> #5
je trouve que ce serait sympa.
Une saisie direct dans les Textbox1 et Textbox2 ça affiche Valider sur le bouton, et inscription dans la Base.
Omis de le préciser, je pensais que ça allait de soi. Désolé.
Le Nom peut-il être mis en gras et les n° de Tél s'afficher comme suit dans les Textbox : 01 00 00 00 00
Un grand MERCI pour ton travail.

 

[vgendron]

Voir ceci.
pour le reste. je verrai demain..
bonne soirée

 

[castor30]

Bonjour vgendron,
Je rencontre un problème sur ce code :
Sub ChargerData()
.....
Me.TbAge = DateDiff("yyyy", Me.Controls("tb3"), Now) 'cette ligne est surlignée en jaune
.....
End Sub

D'autre part, j'ai omis de préciser, que la saisie des Textbox Nom et Prénom est obligatoire contrairement aux autres qui peuvent être vides.

Je te remercie pour tous les commentaires que tu as mis et qui me seront bien utiles.
En te souhaitant une bonne journée.

 

[castor30]

Précision sur ce bout de code
Me.TbAge = DateDiff("yyyy", Me.Controls("tb3"), Now) 'cette ligne est surlignée en jaune
Cela se passe lorsque l'on revient pour des modification. Peut-être faudrait-il un "Si Textbox non vide?"