Programmation VBA Excel 2007

Version imprimable

04/06/2014, 11h17
manuelbrunet

1 pièce(s) jointe(s)

Programmation VBA Excel 2007

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 !....:)

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:

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:

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

04/06/2014, 13h23
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....
04/06/2014, 13h35
manuelbrunet

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

Ai je fais une mauvaise manip ?
merci
04/06/2014, 13h50
casefayere

As-tu au moins sélectionné un item de la listbox ?
04/06/2014, 14h09
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
04/06/2014, 14h13
casefayere

ré-essayes en mettant la propriété "ShowModal" de l'usf "ficheacces" à "False"
04/06/2014, 14h25
manuelbrunet

ça à l'air de mieux fonctionner :mouarf:
04/06/2014, 14h26
casefayere
Si tu laisses cette propriété à True, change ce code ainsi
Code:

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:

Ficheaccès.Show

dans la procédure "afficheacces"
04/06/2014, 15h03
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.....
04/06/2014, 15h13
casefayere

Je n'ai plus le temps, d'ici 1 heure, je reviendrai, renvoies ton fichier modifié, en attendant
04/06/2014, 15h45
manuelbrunet

1 pièce(s) jointe(s)

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
04/06/2014, 16h41
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"
05/06/2014, 17h59
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
05/06/2014, 19h32
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