Bonsoir,
Pourriez-vous m'aider pour faire le trie par ordre alphabétique de ma ComboBox?
Private Sub ComboBox1_Change()
'''''''''POUR RENDRE "IMAGE1"? INVISIBLE''''''''''
Image1.Visible = True
''''''''''''''''''''''''''''''''''''''''''''''''''
If ComboBox1 = "" Then Image1.Picture = LoadPicture(""): Exit Sub
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Documents\Photos botanique\" & "\" & IIf(ComboBox1.ListIndex = -1, "inexistante", ComboBox1) & ".jpg")
Me.Repaint
''''''''''''''''''''''''POUR CENTRER L'IMAGE AU MILLIEU DE L'USERFORM /JMM'''''''''''''''''''''''''
'''''''''''''' à placer dans PRIVATE SUB COMBOBOX1_CHANGE(nom de la ComboBOx à adapter)''''''''''''
With Me.Image1
.Top = (Me.InsideHeight - Me.Image1.Height) / 2
.Left = (Me.InsideWidth - Me.Image1.Width) / 2
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End With
End Sub
Merci par avance