Création Fiche Userform à partir d'une grande base de donnée

**Pierre1991** · 18/06/2015, 16h10

Bonjour à tous,

Je suis novice en VBA et on m'as assigné à faire une "Fiche de synchronisation" sous VBA à l'aide d'un Userform.J'ai un tableau Excel qui est ma base de donnée.

Pour l'instant j'ai une question mais j'en aurai certainement d'autres.

Dans mon Userform, j'ai actuellement :

- une liste déroulante modifiable
- plusieurs zone de texte à coté

Ce que j'ai réussi à faire, c'est mettre toute une colonne de ma base de donnée dans la liste déroulante jusqu'à la dernière cellule rempli.

Voici le code que j'ai réussi à faire :

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    Dim i                                                     
        For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
            ComboBox1.AddItem Sheets("Feuil1").Cells(i + 1, 1)
        Next
End Sub

Mais ce que je voudrais faire maintenant, c'est qu'une fois avoir choisi le numéro que je veux dans ma liste déroulante,c'est que toutes ces informations sur la même ligne du numéro dans ma base de donnée s'affiche dans toutes mes zone de texte de l'userform.

Je vous remercie d'avance

**eric4459** · 18/06/2015, 16h41

Bonjour Pierre,
avec ceci peut-etre

Code :

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

1
2
3
4
5
6
7
 
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Sheets("Feuil1").Cells(i + 1, 1)
If ComboBox1.value= Range("A" & i).value Then
UserForm1.TextBox1.value= Range("B" & i).value
UserForm1.TextBox2.value= Range("C" & i).value
End If

Eric

**Pierre1991** · 18/06/2015, 16h53

Je te remercie de ta réponse Eric, cependant mes texbox9 et textbox10 n'affiche rien une fois que j'ai selectionné un numéro dans ma liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize()
Dim i                                                      'mettre l'OF dans liste déroulante jusqu'à case vide
    For i = 2 To 10                                   'J'ai mis 10 car cela ne marche plus de mettre :     Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Sheets("Feuil1").Cells(i + 1, 1)
    Next
    If ComboBox1.Value = Range("A" & i).Value Then
Fiche_Synchrone.TextBox9.Value = Range("B" & i).Value                 'Fiche_Synchrone est l'intulé de mon Userform
Fiche_Synchrone.TextBox10.Value = Range("C" & i).Value
End If
 
End Sub

**eric4459** · 18/06/2015, 16h56

Re bonjour Pierre,
Dans quelles colonnes sont les données que tu cherches à mettre dans les TextBox?
Pourrais-tu envoyer ton fichier?
Eric

Pierre,
En relisant ton code, tu as peut-être commis une erreur sur la position du Next, tu écris

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim i                                                      'mettre l'OF dans liste déroulante jusqu'à case vide
    For i = 2 To 10                                   'J'ai mis 10 car cela ne marche plus de mettre :     Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Sheets("Feuil1").Cells(i + 1, 1)
    Next
    If ComboBox1.Value = Range("A" & i).Value Then
Fiche_Synchrone.TextBox9.Value = Range("B" & i).Value                 'Fiche_Synchrone est l'intulé de mon Userform
Fiche_Synchrone.TextBox10.Value = Range("C" & i).Value
End If

et non pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim i                                                      'mettre l'OF dans liste déroulante jusqu'à case vide
    For i = 2 To 10                                   'J'ai mis 10 car cela ne marche plus de mettre :     Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Sheets("Feuil1").Cells(i + 1, 1)
   
    If ComboBox1.Value = Range("A" & i).Value Then
Fiche_Synchrone.TextBox9.Value = Range("B" & i).Value                 'Fiche_Synchrone est l'intulé de mon Userform
Fiche_Synchrone.TextBox10.Value = Range("C" & i).Value
End If
Next

Eric

**Pierre1991** · 18/06/2015, 17h16

Voilà j'ai mis le fichier

**eric4459** · 18/06/2015, 18h52

Salut Pierre,
J'ai modifié ton fichier comme suit:
J'ai ajouté un UserForm dans lequel tu sélectionnera le n° d'OF, après un clic sur le bouton, l'UserForm Fiche_Synchrone s'affichera avec les données souhaitées.
J'ai uniquement fais l'affichage pour 2 colonnes, à toi de completer

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
Sub Affichage_FichSynch()
Dim Ref As Worksheet
Dim NbLigne As Long
Dim Rng As Range
Set Ref = ThisWorkbook.Sheets("Feuil1") 'tu nommes la feuille
Set Rng = Ref.Range("A1") 'tu défini ta référence en A1
Rng = Rng.Offset(0) ' tu fixes ta référence . Offset permet de décaler tes cellules
 
With Ref
      NbLigne = .Cells(.Rows.Count, 1).End(xlUp).Row   ' On compte le nombre de lignes de l'onglet
End With
 
UserForm1.ComboBox1.List = Ref.Range("A2" & ":" & "A" & NbLigne).Value
UserForm1.Show
 
For i = 2 To NbLigne
    If UserForm1.ComboBox1.Text = Rng.Offset(i, 0).Value Then 'Rng.Offset(i,0) si i = 0 correspond à la cellule A1, si i=2 correspond à la cellule A3
            Fiche_Synchrone.TextBox9.Value = Rng.Offset(i, 1).Value 'Ici Rng.Offset(i,1) correspond, si i=0, à la cellule B1
            Fiche_Synchrone.TextBox10.Value = Rng.Offset(i, 2).Value 'Ici Rng.Offset(i,2) correspond, si i=0, à la cellule C1
    End If                                                            'Rng.Offset( 3,i) correspondrait, si i=2, à la cellule C4 ( Si je ne me plante pas ;-) )
Next i
 
Fiche_Synchrone.Show
 
End Sub

Essai12.xlsm

Eric

Invité · 18/06/2015, 19h08

Bonjour,
ComboBox1.List =Range(Range("A2"),Range("A" & Rows.Count).End(xlUp).Row).value

**Philippe Tulliez** · 18/06/2015, 19h15

Bonjour,
Je ne sais pas si j'ai bien compris ta question mais s'il s'agit de réaliser un formulaire permettant de créer, modifier, consulter et supprimer les enregistrements d'une liste de données, tu peux t'inspirer de cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire