est ce que si possible d’exécuter une macro a partir de Userforme

bonjour tt le monde j'ai besoin de votre aide SVP je galère de puis plusieurs heurs a essayer de rendre cet macro fonctionnel avec userform qui ce compose d'une ComboBox1 et un bouton
la macro elle fonction très bien sur la feuil (feuil3; la cellule "H1"= insertion Numéro Employé et un bouton qui me permit de valider et d'afficher les information de Employé sur la feuil3)

alors je souhait bien d'avoir un userform avec une ComboBox1 qui va remplacer La cellule "H1" qui se charge automatiquement de la feuil Employé au démarrage de userform de un bouton qui me permit de valider et d'afficher les information de Employé sur la feuil3 )

voila la macro elle fonction très très bien

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 40 41 42 43 44 45

Sub Rectangleàcoinsarrondis1_Clic()   Dim x As Long Dim y As Long   x = Sheets("Employe").Range("A" & Rows.Count).End(xlUp).Row   For y = 2 To x If Feuil3.Range("H1").Value = Employe.Cells(y, "A").Value Then   Feuil3.Range("B7").Value = Employe.Cells(y, "A").Value Feuil3.Range("B8").Value = Employe.Cells(y, "B").Value Feuil3.Range("B9").Value = Employe.Cells(y, "C").Value Feuil3.Range("B10").Value = Employe.Cells(y, "D").Value Feuil3.Range("B11").Value = Employe.Cells(y, "E").Value Feuil3.Range("B12").Value = Employe.Cells(y, "F").Value Feuil3.Range("B13").Value = Employe.Cells(y, "G").Value Feuil3.Range("B14").Value = Employe.Cells(y, "H").Value Feuil3.Range("B15").Value = Employe.Cells(y, "I").Value Feuil3.Range("B16").Value = Employe.Cells(y, "J").Value Feuil3.Range("B17").Value = Employe.Cells(y, "K").Value Feuil3.Range("B18").Value = Employe.Cells(y, "L").Value Feuil3.Range("B19").Value = Employe.Cells(y, "M").Value Feuil3.Range("B20").Value = Employe.Cells(y, "N").Value Feuil3.Range("B21").Value = Employe.Cells(y, "O").Value Feuil3.Range("B22").Value = Employe.Cells(y, "P").Value Feuil3.Range("B23").Value = Employe.Cells(y, "R").Value End If Next y Dim i As Picture Dim j As String On Error Resume Next If Target.Address = Range("H1").Address Then ActiveSheet.Pictures.Delete j = "C:\Photos\" & Range("H1") & Value & ".jpg" With Range("E8") Set i = ActiveSheet.Pictures.Insert(j) i.Height = 105 i.Width = 95 i.Top = 110 i.Left = .Left i.Placement = xlMoveAndSize End With End If End Sub

---

et un grand merci pour vous tous bonne journée

Bonjour Anissa, le forum
remplir ton combobox lors de l'initialisation de ton userform :

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim i As Integer For i = 2 To Sheets("Employe").Range("A65536").End(xlUp).Row ComboBox1 = Sheets("Employe").Range("A" & i) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Employe").Range("A" & i) Next i ComboBox1.Value = "" End Sub

---

et mettre ton code dans le bouton de commande :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim x As Long Dim y As Long x = Sheets("Employe").Range("A" & Rows.Count).End(xlUp).Row For y = 2 To x If ComboBox1.Value = Sheets("Employe").Cells(y, "A").Value Then Sheets("Feuil3").Range("B7").Value = Sheets("Employe").Cells(y, "A").Value Sheets("Feuil3").Range("B8").Value = Sheets("Employe").Cells(y, "B").Value Sheets("Feuil3").Range("B9").Value = Sheets("Employe").Cells(y, "C").Value End If Next y Unload Me Sheets("Feuil3").Select End Sub

---

à tester , adapter et revenir si nécessaire

Salut

Inutile de taper du code pour faire cela.
Voici un exemple basé sur le fichier proposé par BENNASR

++
Qwaz

bonjour BENNASR merci pour ton aide si ce que je veux exactement jai juste ajouter se bout de code pour affiche les photo

Code:

---

1 2 3 4 5 6 7 8

Dim i As Picture Dim j As String On Error Resume Next If Target.Address = Range("H1").Address Then ActiveSheet.Pictures.Delete     j = ThisWorkbook.Path & "\img\" & Range("H1") & Value & ".jpg"

---

et merci Qwazerty pour ta proposition