Bonjour à tous,
j'aurais besoin des lumières de l'un d'entre vous, étant peu connaisseuse de VBA je sèche sur un problème.. J'ai une liste d'élèves à rentrer avec des paramètres tel que le nom, prénom, etc et aussi une photo. J'ai donc créer une UserForm avec des TextBox pour les paramètres précédents et en dernier j'ai donc une Image1 pour la photo. Par contre je ne sais pas du tout comment indiquer que sur l'Image apparaisse un chemin pour aller chercher la photo souhaitée et que celle-ci apparaisse dans la cellule correspondante de ma feuille Excel (je n'ai pas besoin que la photo apparaisse DANS la UserForm).
Voilà je ne sais pas si je me suis faite comprendre^^
Pour le moment voici le code de mon bouton Valider de la userform (avec en rouge les paramètres qui correspondraient à l'Image1) :
Private Sub CommandButton1_Click()
Sheets("Eleve").Select
Range("C7").Select
Do
If ActiveCell.Value = "" Then
GoTo archiver
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
archiver:
ActiveCell.Value = UserForm1!TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!Image1
ActiveCell.Offset(0, 1).Select
UserForm1!TextBox1 = ""
UserForm1!TextBox2 = ""
UserForm1!TextBox3 = ""
UserForm1!TextBox4 = ""
UserForm1!TextBox5 = ""
UserForm1!TextBox6 = ""
UserForm1!Image1 = ""
UserForm1.Hide
Sheets("Eleve").Select
End Sub
Et du coup concernant l'Image1 spécifiquement, je n'ai encore rien mis:
Private Sub Image1_Click()
End Sub
Merci d'avance à ce qui pourront m'aider!
j'aurais besoin des lumières de l'un d'entre vous, étant peu connaisseuse de VBA je sèche sur un problème.. J'ai une liste d'élèves à rentrer avec des paramètres tel que le nom, prénom, etc et aussi une photo. J'ai donc créer une UserForm avec des TextBox pour les paramètres précédents et en dernier j'ai donc une Image1 pour la photo. Par contre je ne sais pas du tout comment indiquer que sur l'Image apparaisse un chemin pour aller chercher la photo souhaitée et que celle-ci apparaisse dans la cellule correspondante de ma feuille Excel (je n'ai pas besoin que la photo apparaisse DANS la UserForm).
Voilà je ne sais pas si je me suis faite comprendre^^
Pour le moment voici le code de mon bouton Valider de la userform (avec en rouge les paramètres qui correspondraient à l'Image1) :
Private Sub CommandButton1_Click()
Sheets("Eleve").Select
Range("C7").Select
Do
If ActiveCell.Value = "" Then
GoTo archiver
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
archiver:
ActiveCell.Value = UserForm1!TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!TextBox6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm1!Image1
ActiveCell.Offset(0, 1).Select
UserForm1!TextBox1 = ""
UserForm1!TextBox2 = ""
UserForm1!TextBox3 = ""
UserForm1!TextBox4 = ""
UserForm1!TextBox5 = ""
UserForm1!TextBox6 = ""
UserForm1!Image1 = ""
UserForm1.Hide
Sheets("Eleve").Select
End Sub
Et du coup concernant l'Image1 spécifiquement, je n'ai encore rien mis:
Private Sub Image1_Click()
End Sub
Merci d'avance à ce qui pourront m'aider!
