injection et modification de données USERFORM< >FEUIL

Version imprimable

13/02/2012, 16h54
rattus34

1 pièce(s) jointe(s)

injection et modification de données USERFORM< >FEUIL

Amis du forum bonjour:D,

Mes connaissances en vba sont encore très limitées.
Je ne suis pas mécontent de parfaire mon apprentissage en VBA, mais le temps me fait défaut.

j'ai établi 2 formulaires simples.
Le 1er pour ajouter des nouveaux clients (FrmNouveau) sur une Feuil nommée Bd_Clients.
Le 2e pour modifier ou suprimer les données clients existantes (FrmEdition) sur cette même feuille

Le 1er dispose d'une autoincrémentation lors de la validation, ce qui permet de générer une clés (IDClient). Cette valeur est générée a partir de la date du jour comme suit :
(mm/yy)-001 soit par ex. pour aujourd'hui 1302-001
Mon premier problème se situe à ce niveau, le système fonctionne, sauf que la date qui est générée est à n-1, et là j'ai vraiment besoin d'aide.

La deuxième difficulté se précise avec le 2e formulaires.
L'Edition des données existantes se doit se faire par la selection des ID_Clients via une ComboBoxID.

Malheureusement pour moi je ne trouve pas la solution pour afficher les données dans les zones de textes respectives, après selection de l'ID_Client.

Enfin 2 questions subsidiaires :
La 1ere > Est-il possible dans cette comboboxID d'afficher uniquement les dernières entrées via une selection de type option? si oui comment ?
La 2e > Si je souhaite supprimer un compte client dans la base de données en passant par le formulaire, comment faire ?Y-a-t-il une autre solution que l'enregistrement d'une simple macro?

J'espère avoir été suffisamment clair dans mes explications
Merci pour votre aide.
13/02/2012, 17h12
jfontaine

Bonjour,

Pour ton premier problème, tu demande un format "yymm" soit 201202
Si tu veux 1302 alors c'est un format "ddmm" pour Jour mois qu'il te faut. Non?
13/02/2012, 17h19
rattus34

C'est tout à fait ça, je crois que je me suis emmêlé les pinceaux :
c'est bien "dd/mm" et non "mm/yy"

Pour le point 2, ci dessous une méthode

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBoxID_Change()
Dim Rg As Range
Dim Sh As Worksheet
 
Set Sh = Worksheets("Bd_Clients")
 
'Recherche l'ID
Set Rg = Sh.Range("A:A").Find(what:=ComboBoxID.Value, lookat:=xlWhole)
'Si Id trouvé
If Not Rg Is Nothing Then
    Me.TextForm.Text = Rg.Offset(0, 1).Value
    Me.TextRaison.Text = Rg.Offset(0, 2).Value
    Me.TextAdresse.Text = Rg.Offset(0, 3).Value
End If
 
End Sub

13/02/2012, 17h31
rattus34

re : point 2

Un grand merci jfontaine, ta proposition me permet de faire un pas de géant.
Ca a l'air pourtant si simple...:?