Discussion :

[manuelbrunet]

Bonjour à tous
je suis novice en programmation VBA.
Je souhaite réaliser un petit programme avec une base de données excel.
je travaille sous excel 2007
je vous joins mon fichier dans lequel j'ai mis un petit cahier des charges.
Pour ma part, je suis arrivé aux limites de mes compétences en VBA.
Pour ceux et celles qui m'aideront ..... d'avance mille merci !....

[casefayere]

Bonjour,

je ne me suis occupé que des usf "recherche" et "ficheaccès", à partir de là, si tu comprends, tu pourras peut-être continuer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
'----------------------------- LISTEBOX Afficher INFO COMMANDES -------------------------------------------
Private Sub ListBox1_Click()
Label8.Caption = ListBox1.Value
End Sub
 
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
Menu.Show
End Sub
 
Private Sub CommandButton3_Click()
Unload Me
LCherche = Label8.Caption
afficheacces
End Sub
 
 
Private Sub UserForm_Activate()
Set Unique = CreateObject("Scripting.Dictionary") 'plus rapide que collection
ListBox1.Clear
With Sheets("BDD")
  'Récupère la dernière ligne non vide dans la colonne A
  Set Dercel = .Range("A" & .Rows.Count).End(xlUp) 'dernière cellule renseignée en A (variable "Range")
  Tbl = .Range("A2", Dercel) 'les données dans un tableau virtuel
End With
  'boucle sur les données du tableau'plus rapide
  For i = 1 To UBound(Tbl, 1)
  'on teste si la donnée du tableau n'est pas déjà dans le dictionnaire
  'si c'est le cas on utilise cette valeur comme nouvelle clé et comme nouvel item
    If Not Unique.Exists(Tbl(i, 1)) Then Unique.Add Tbl(i, 1), Tbl(i, 1)
  Next i
  'Boucle sur le contenu de la collection pour alimenter la ListBox
  For Each Valeur In Unique.items
    ListBox1.AddItem Valeur
  Next Valeur
End Sub

et dans un module standart

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Public Cell As Range
Public Unique, Tbl, i As Long
Public Valeur, LCherche As String
Public Dercel As Range
Sub afficheacces()
With Ficheaccès
  .Show
  With Sheets("BDD")
    Set Cell = .Range("A1", .Range("A" & .Rows.Count).End(xlUp)).Find(LCherche)
  End With
  If Not Cell Is Nothing Then
    .Label12.Caption = Cell
    .Label14.Caption = Cell(1, 4)
    .Label15.Caption = Cell(1, 6)
    .Label17.Caption = Cell(1, 5)
    .Label17.Caption = Cell(1, 3)
    .Label19.Caption = Cell(1, 8)
    .Label20.Caption = Cell(1, 9)
    .Label21.Caption = Cell(1, 10)
    .Label22.Caption = Cell(1, 11)
    .Label23.Caption = Cell(1, 12)
    'ci-dessous, je ne prends pas en compte les photos, elles n'existent pas
    '.Label24.Picture = Cell(1, 13)
    '.Label25.Picture = Cell(1, 14)
    '.Label26.Picture = Cell(1, 15)
    '.Label27.Picture = Cell(1, 16)
  End If
End With
 
End Sub

[manuelbrunet]

Merci casefayere

je mets ça directement dans les userform recherche et ficheaccès et je vérifie.....
j'ai créé aussi un module 1....

[manuelbrunet]

Rebonjour
la fonction Recherche fonction mais lorsque l'on clique sur sur le bouton la fiche accès est vierge

Ai je fais une mauvaise manip ?
merci

[casefayere]

As-tu au moins sélectionné un item de la listbox ?

[manuelbrunet]

oui j'ai bien sélectionné un item il s'affiche dans la labelbox je clique sur afficher et rien !
peut être n'ai je pas mis les codes où il faut
le premier sur le userform recherche
le second dans un module 1

ba je suis une petite truffe en vba donc ..... faut pas s'attendre à des miracles

MERCI de ta patience

[casefayere]

ré-essayes en mettant la propriété "ShowModal" de l'usf "ficheacces" à "False"

[manuelbrunet]

ça à l'air de mieux fonctionner

[casefayere]

Si tu laisses cette propriété à True, change ce code ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton3_Click()
Unload Me
LCherche = Label8.Caption
Ficheaccès.Show
afficheacces
End Sub

et supprimes cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ficheaccès.Show

dans la procédure "afficheacces"

[manuelbrunet]

j'ai fait ce que tu m'as dit dans le post précédent (passer le showmodal à true et modifier button3 et le module)
ba je sais pas si je l'ai fait correctement mais cela ne fonctionne plus.....

[casefayere]

Je n'ai plus le temps, d'ici 1 heure, je reviendrai, renvoies ton fichier modifié, en attendant

[manuelbrunet]

je te joins mon fichier modifié avec tes instructions (je pense?)
j'y ai mis ce qui ne fonctionne pas
la fonction recherche fonctionne c'est au niveau de la fiche accès que cela ne va pas
soit rien ne s'affiche
soit c'est toujours la même fiche (exemple 579004484-0 c'est elle qui a le plus de données pour l'instant )
je continue à chercher pour faire la partie nouvel accès et enregistrement
merci...... merci encore pour ton aide

[casefayere]

je ne sais pas ce que tu as fait avec ton fichier mais c'est le b...,

essayes ce fichier, j'ai commencé à travailler sur l'usf "Saisies" mais il y a encore du boulot, j'ai corrigé les autres mais n'ai pas touché à 'Modifier"

[manuelbrunet]

Bonsoir
j'ai repris le fichier que tu as modifié ...... formidable pour la fonction recherche !
j'ai cherché des infos sur le net pour le usf saisie et modifier ....... mais je ne suis pas arrivée à réaliser les codes (c'est trop compliqué pour moi ! )!....
pour toi est ce que tu y arrives ou dois-je faire un nouveau post ?
merci encore de m'aider
pauline

[casefayere]

Bonsoir,

Si tu regardes bien, l'Usf "Saisie", pour une nouvelle saisie est pratiquement au point, il ne reste que la mise en page. Je ne pourrais pas m'y pencher ce soir, par politesse pour mes amis présents. Donc regardes ce que j'ai fait à ce sujet et essayes encore de comprendre, tu verras, on progresse comme ça, n'hésites pas à utiliser l'aide "F1".

Bon courage et certainement à demain