Discussion :

[anissa5]

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 :

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

[BENNASR]

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

Code :

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

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 :

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

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

[Qwazerty]

Salut

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

++
Qwaz

[anissa5]

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

Code :

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

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