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 une Rev 2
1) j'ai pas ton souci avec l'age..??
2) J'ai modifié la Base pour en faire une table excel que j'ai appelée "DataBase"
l'avantage. à l'ajout de lignes, la mise en forme des lignes précédentes est conservée
3) j'ai mis le format "téléphone" dans les textbox

 

[vgendron]

Rev 3 avec demande de saisir un prénom si il s'agit d'un nouveau nom et que le textbox Prénom est vide

ce que je veux dire par la c'est:
1) tu sélectionnes un nom existant: ex: Nom1
2) toutes les infos sont chargées
3) tu modifies Nom1 en NomTEST
4) tu valides
5) ca te demande si tu veux créer le nouveau nom "NomTEST"
6) tu réponds oui
7) le nouveau nom est créé.. avec le prénom "Prénom1" qui était dans le Textbox..

par contre.. (je présume que c'est la procédure que tu vas vouloir utiliser.-->Parfait
si tu cliques sur "Effacer" pour vides TOUTES les Texbox
tu entres uniquement un NouveauNOM
tu valides, oui pour créer
message te demandant de saisir un prénom.

 

[castor30]

Bonjour vgendron,
Je te remercie pour ta constance et ton efficacité à me venir en aide (c’est peu dire), très sincèrement.
Je souhaiterai les modifications suivantes si cela ne t’oblige pas :
- Que le nom soit en majuscule et en gras.
- Que la première lettre du prénom soit en majuscule (pour les prénoms composés je ne sais pas si c’est possible.)
- Même chose pour les communes, profession, fonction APE et lobby.
- Mettre l’âge en noir. - Il ne s’actualise pas.
- Peut-on mettre un contrôle de saisie de l’adresse mail ? (pour éviter les erreurs.)
- La date de mise à jour ne s'inscrit pas
Pour la saisie d’un nouveau contact, ne peut-on pas effectuer la saisie à l’ouverture de l’Usf lorsque tous les Textbox sont vides ?
Ça me parait plus simple, mais tu as certainement une raison.
---> Que signifie : Option Base 1
---> Et fin: dans Private Sub B_valid_Click()
Je te remercie tout particulièrement pour l’amour que tu a envers “l’autre”, que nous sommes qui se ressent dans tes différents contacts.
Jean

 

[vgendron]

Hello


Voici une version 4
avec un peu de mise en forme
va voir dans la macro 'CréerContact": tu peux ajuster ou corriger

Option Base1: c'est pour dire que je souhaite que les indices de tablo commencent à 1

ex: si on déclare un tablo Tab(2) --> c'est sous entendu: avec 2 élements
par contre; si on ne précise pas Option Base 1 (donc 0 par défaut),
alors Tab(2) est un tablo de 3 élements: 0 -1 - 2..
et comme ca me perturbe à chaque fois.. j'ai décidé de mettre Option Base 1

sinon.
Fin:
c'est un label.. qui sert de point de raccourci

Code1...
Goto Fin
Code2

Fin:
code3

Le Goto Fin: permet de shunter le Code 2

 

[castor30]

Bonjour vgendron,
Je remets le fichier avec ce que je comprends pas sur la feuille Base et sur l'Usf en Dpt et âge (l'écriture)
Je te remercie sincèrement.

 

[vgendron]

Bonjour

les entetes de lignes ont été supprimées pendant mes tests. je n'avais pas fait attention
tu peux faire un copier coller à partir de la feuille "Base Init" de sauvegarde..

 

[castor30]

Bonjour vgendron,
OK, rien d'important, je pensais que tu utilisais ceci pour tes codes.
J'espère que tu as passé un bon Week-end !

 

[castor30]

Bonjour vgendron,
Toujours un bug ici :
Sub AgeUpdate()
If Me.Controls("tb3") <> "" Then
Me.TbAge = DateDiff("yyyy", Me.Controls("tb3"), Now)
Else
Me.TbAge = ""
End If
End Sub

 

[castor30]

Ne me laisse pas tomber vgendron, merci à toi.

 

[vgendron]

hello
J'imagine que ca bug lorsque tu souhaites modifier la date de naissance
change le code de la macro AgeUpdate par celui ci

Sub AgeUpdate()
If Me.Controls("tb3") <> "" And (Len(Me.Controls("tb3")) = 10) Then
    Me.TbAge = DateDiff("yyyy", Me.Controls("tb3"), Now)
Else
    Me.TbAge = ""
End If
End Sub

 

[castor30]

Bonjour vgendron,
Je te remercie pour la modification ça marche.
Par contre, je n'arrive plus à me positionner sur le tb5...
La macro qui inscrit "Non communiquée" ne se lance pas

 

[ChTi160]

Bonjour castor
Bonjour Le Fil (vgendron), le Forum
voila ce que je me suis permis de mettre pour ce qui concerne le Tb3

Private Sub tb3_Change()
If Len(Me.tb3) = 10 And Me.tb3 <> "" Then
Me.TbAge = DateDiff("yyyy", CDate(Me.Controls("tb3")), Date)
Else
Me.TbAge = ""
End If
End Sub

Private Sub tb3_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789/", Chr(Touche)) = 0 Then Touche = 0
End Sub

ce qui interdit de saisir n'importe quoi comme date de naissance ! Lol
même si ça ne règle pas tout Lol
Bonne journée
Amicalement
Jean marie[/Code]

 

[ChTi160]

Re
j'ai amélioré le Système (mais perfectible ) Lol
Bonne fin de Journée
Amicalement
Jean marie

 

[vgendron]

Hello Czac

euh.. t'es sur que ta fonction "vérifier" a déjà fonctionné?
avec cette ligne de code.. y a peu de chance que ca marche...

If Cells(Lig, 10) = "" And Cells(Lig, 10) <> "" Then

cette macro est censée vérifier quoi?

Hello Chti.. très bien le controle de saisie. j'avoue y avoir pensé. mais ne savais pas comment le faire

Czac.. dans ta macro de vérification
tu fais référence à Feuil3
sauf que Feuil 3, c'est la feuille Base INIT
il faut travailler sur la feuille Base..
donc remplacer

Sub Vérifier()       'OK
    Dim DerL&, Lig&
    DerL = Sheets("Base").Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To DerL
        If Cells(Lig, 10) = "" And Cells(Lig, 10) <> "" Then 'test à revoir......
            With Cells(Lig, 12)
                .Value = "Non communiquée" 'on écrit dans la colone K ???
                .Font.Bold = True
                .Font.ColorIndex = 3
            End With
        Else
     End If
    Next Lig
    Cells.Columns.AutoFit
    Range("A1").Select
End Sub

et dernière chose.. à quel moment cette macro est appelée?

 

[castor30]

Bonjour ChTi160,vgendron,
ChTi160 as-tu vérifier le fichier ?
vgendron j'appelle cette macro à la fin de : Private Sub B_valid_Click()
et je n'arrive plus à me positionner sur le tb5