Récupération données dans un userform

[launays2006]

Excusez moi tous en vous envoyant le code, je viens de m'apercevoir de mon erreur merci de ne pas tenir compte de ce message



Bonjour tout le monde,

J'ai un petit souci pour récupérer des données inscrites sur une feuille , j'ai un1er userform qui agrémente ma base de données, j'ai crée un autre userform pour faire une recherche (rech) dans cette base mais je dois avoir une erreur dans mon code car je n'arrive pas à récupérer ces données.

Merci de votre aide
Ci joint le code :

Private Sub CommandButton2_Click()
Unload Rech
End Sub

Private Sub UserForm_Initialize()

'-- menu choix étude
i = 0
Do While Cells(i + 12, 1) <> ""
Me.ComboBox2.AddItem Cells(i + 12, 1).Value
Me.ComboBox2.List(i, 1) = Cells(i + 12, 6).Value
i = i + 1
Loop
End Sub

Private Sub ComboBox2_Change()

Range("A12").Select
ActiveCell.Offset(ComboBox2.ListIndex, 0).Select
'-- transfert BD --> Formulaire

Enfant.TextBox3.Text = ActiveCell.Offset(0, 3).Value
Enfant.ComboBox1.Text = ActiveCell.Offset(0, 4).Value
Enfant.TextBox4.Text = ActiveCell.Offset(0, 5).Value
Enfant.TextBox5.Text = ActiveCell.Offset(0, 6).Value
Enfant.CheckBox1 = ActiveCell.Offset(0, 9).Value
Enfant.CheckBox2 = ActiveCell.Offset(0, 10).Value
Enfant.CheckBox3 = ActiveCell.Offset(0, 11).Value
Enfant.CheckBox4 = ActiveCell.Offset(0, 12).Value
Enfant.CheckBox5 = ActiveCell.Offset(0, 13).Value
Enfant.TextBox6.Text = ActiveCell.Offset(0, 15).Value
Enfant.TextBox7.Text = ActiveCell.Offset(0, 16).Value
Enfant.TextBox8.Text = ActiveCell.Offset(0, 17).Value
Enfant.TextBox9.Text = ActiveCell.Offset(0, 18).Value
Enfant.TextBox10.Text = ActiveCell.Offset(0, 19).Value
Enfant.TextBox11.Text = ActiveCell.Offset(0, 20).Value
Enfant.TextBox13.Text = ActiveCell.Offset(0, 21).Value
Enfant.TextBox14.Text = ActiveCell.Offset(0, 22).Value
Enfant.TextBox15.Text = ActiveCell.Offset(0, 23).Value
Enfant.TextBox12.Text = ActiveCell.Offset(0, 24).Value
Enfant.TextBox16.Text = ActiveCell.Offset(0, 25).Value
Enfant.TextBox17.Text = ActiveCell.Offset(0, 26).Value
Enfant.TextBox18.Text = ActiveCell.Offset(0, 27).Value
Enfant.TextBox19.Text = ActiveCell.Offset(0, 28).Value
Enfant.TextBox20.Text = ActiveCell.Offset(0, 29).Value
Enfant.TextBox22.Text = ActiveCell.Offset(0, 30).Value
Enfant.TextBox23.Text = ActiveCell.Offset(0, 31).Value
Enfant.TextBox24.Text = ActiveCell.Offset(0, 32).Value
Enfant.TextBox21.Text = ActiveCell.Offset(0, 33).Value
Enfant.TextBox34.Text = ActiveCell.Offset(0, 34).Value
Enfant.TextBox35.Text = ActiveCell.Offset(0, 35).Value
Enfant.TextBox41.Text = ActiveCell.Offset(0, 36).Value

End Sub

 

[fhoest]

Re : Récupération données dans un userform

Bonjour,

joins le fichier ce seras plus simple de t'aider

A bientot.

 

[Compte Supprimé 979]

Re : Récupération données dans un userform

Eh Fhoest !
Faut lire les posts avant de mettre un message STP

Excusez moi tous en vous envoyant le code, je viens de m'apercevoir de mon erreur merci de ne pas tenir compte de ce message

Ce que j'en dis 🙄

 

[fhoest]

Re : Récupération données dans un userform

Eh BrunoM45 !

Désolé de t'avoir déranger aussi vite dans la journée, je n'avais pas encore les yeux en face des trous a cette heure de la journée,
sorrrrrrrrrrrrrrrry Mr,
c'était juste pour aider

Au plaisir de se croiser de nouveau...😀

La politesse est comme le zéro, qui, sans avoir de valeur en soi, en ajoute à toutes choses.

Sinon bonjour à toi aussi.
juste pour rire

 

[oujdi]

Re : Récupération données dans un userform

Bonjours,
Je suis nouveaux sur ce forume et débutant en vba, j'ai un petit souci sur mes formulaires :
j'ai un formulaire qui contien 7 combobox(une sous l'autre) qui contiennt les nom de plusieurs pays,en face de chaque combooxe j'ai 2textbox et un autre combobox,Je voudrais que qd je selectionne un pays dans le premier combobox, j'ai automatiquement une valeur qui s'affiche dans les 2 textbox correspondants et l'autre combobox et cela à répeter 7 fois pour chaque combobx?sachant que les valeurs sont stocké dans une feuille du même classeur.
merci pour votre réponse