Bonjour,

J'ai créé un userform pour faire un recherche dans une bdd. je souhaiterais pouvoir cliquer sur le résultat de ma listbox et créer un formulaire déja pré rempli avec les informations de ma BDD.

Mon process voulu.

> je recherche dans ma BDD une société > ok code ci-joint
> je la valide dans la listebox
> en validant j'ouvre un deuxième userform (formulaire) reprenant les informations déjà présente dans ma BDD.

je ne sais pas comment créer le lien entre ma validation de société et mon nouveau formulaire déja pré-rempli des informations présente dans ma BDD.

Pouvez vous m'aidez?

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
40
41
42
Private Sub txt_SST_Change()
 
'déclaration des variables
 
  Dim j As Integer
  Dim NbMax As String
  Dim mission_cherche As String
 
  'on reinitialise la listbox, efface les saisies
  Me.liste_SST.Clear
  'on enleve les couleurs
  Feuil1.Range("A7:AV500").Interior.ColorIndex = 0
 
  'on cherche la fin de la liste à parcourir
  'recherche a partir de la cellule 1000 la fin du tableau
  NbMax = Feuil1.Range("A500").End(xlUp)
 
  'on récupère la donnée saisie dans la textBox
  mission_cherche = Me.txt_SST.Value
 
  'on teste que la textbox n'est pas vide avant de faire la recherche
  If Me.txt_SST <> "" Then
 
    'on parcourt toute la liste afin de trouver les valeurs
    For j = 7 To NbMax
      'on teste le contenu de la cellule en prenant en compte toutes les valeurs saisies
      'grace au caractère de remplacement *
      If Feuil1.Cells(j, 4) Like "*" & UCase(Me.txt_SST) & "*" Then
        'colorier la ligne correspondante
        Rows(j).Interior.Color = RGB(100, 100, 100)
        'colorier la cellule
        'Cells(j, 4).Interior.Color = RGB(100, 100, 100)
                 'on complete la listbox des valeurs trouvées
         Me.liste_SST.AddItem Feuil1.Cells(j, 4)
 
      End If
 
    Next j
 
  End If
 
End Sub