Modifier un code

[maval]

Bonjour,

J'ai un petit souci avec mon code et je n'arrive pas a me dépatouiller.
J'ai USF qui recherche les régions et leurs départements avec les logos qui a était réaliser en partie par DULL que je salut et remercie au passage.
Quand je click sur un département dans la ListBox le logo s'affiche ainsi que le nom du département jusqu'ici pas de problème, j'aimerai que le N° du département qui se trouve en feuil1 "N2:N101" s'affiche dans le textbox2 de l'USF

Merci d'avance de votre aide.

Cordialement

Maval

 

[Dull]

Re : Modifier un code

Re Max

Nom1 = ListBox1
'Fichier = ActiveWorkbook.Path & "\" & Nom1 & ".jpg"
Fichier = ActiveWorkbook.Path & "\Blason_départements_et_régions\" & Nom & ".jpg"

If Dir(Fichier) <> "" Then
Me.Image2.Picture = LoadPicture(Fichier)
Else
On Error Resume Next: Me.Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\Blason_départements_et_régions\" & "vide.jpg")
'Me.Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\vide.jpg")
End If

End Sub

Le problème est là: Nom1 est la Variable déclarée alors que Nom est inconnu remplace Nom par Nom1 et cela devrait aller

Bonne Soirée

 

[maval]

Re : Modifier un code

Re Dull,

J'ai pensé a changer Image2 mais pas Nom1. Sa fonctionne nickel.
Je te remercie beaucoup et excuse moi du temps passer.

Merci et bonne soirée

@+

Max