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

Version imprimable

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:

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 :D

Bonjour Pierre,
avec ceci peut-etre

Code:

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

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:

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

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:

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:

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

18/06/2015, 16h16
Pierre1991

1 pièce(s) jointe(s)

Voilà j'ai mis le fichier ;)

1 pièce(s) jointe(s)

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:

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

Pièce jointe 181002

Eric

18/06/2015, 18h08
Invité

Bonjour,
ComboBox1.List =Range(Range("A2"),Range("A" & Rows.Count).End(xlUp).Row).value
18/06/2015, 18h15
Philippe Tulliez

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
19/06/2015, 07h29
eric4459

Philippe,
Il est super ce tuto ;), dommage que je ne l'ai pas lu avant:?
Eric
19/06/2015, 08h16
Pierre1991

Bonjour, je vous remercie de votre réponse, et je vais aller scruter le Tuto ;)