Image en fonction des textbox

[maval]

Bonjour,

Suite a un code qui a était réaliser par Si... que je salut et remercie au passage. J'aimerais lui apporter une modification. Je change la région a l'aide d'un "SpinButton"et dans les textbox nommer "TD1, TD2 ect..." il s'affiche les départements se trouvant dans la région spécifier. J'aimerais que dans les contrôles images s'affiche les icônes correspondant au département se trouvant dans le fichier
Ci joint le fichier exemple avec les icônes des deux premier département .

Je vous remercie de votre aide

 

[zeltron24]

Re : Image en fonction des textbox

Bonjour maval

Voici le fichier que j'ai fait et donc il me semble que tu as repris.
Si cela te convient voici les armoiries
Avec les armoiries des régions. Dossier à mettre dans répertoire dont tu renseignera le chemin dans le fichier.

 

[zeltron24]

Re : Image en fonction des textbox

dossier Armoirie

 

[mapomme]

Re : Image en fonction des textbox

Bonjour maval,

Voir fichier joint.

 

[Paf]

Re : Image en fonction des textbox

Bonjour à tous

Une autre version
Il faut rajouter un controle image pour chaque département , numéroté comme le département (Image1 à Image8)

Private Sub Tr_Change()
  For n = 1 To 8
    Me("Tn" & n).Visible = 0
    Me("Td" & n).Visible = 0
    Me("Tp" & n).Visible = 0
    Controls("Image" & n).Visible = False 'toutes images invisibles
  Next
  L = [B:B].Find(Tr).Row
  For n = 3 To 8
    Me("T" & n) = Cells(L, n)
  Next
  For Col = 9 To Rows(L).End(xlToRight).Column Step 3
    n = Col / 3 - 2
    Me("Tn" & n) = Cells(L, Col): Me("Tn" & n).Visible = 1
    Me("Td" & n) = Cells(L, Col + 1): Me("Td" & n).Visible = 1
    Me("Tp" & n) = Cells(L, Col + 2): Me("Tp" & n).Visible = 1
    Controls("Image" & n).Visible = True 'images visible
    
   Controls("Image" & n).Picture = LoadPicture("C:\Users\Max\Desktop\Drap-Monde\" & Controls("Td" & n).Value & ".jpg")
    
  Next
  Tnd = n
  
End Sub

Bonne suite

 

[maval]

Re : Image en fonction des textbox

Bonjour Paf,Ma pomme, Zeltron

Je vous remercie et m'excuse de ne pas avoir répondue avant je voir tous ceci.
Je vous souhaite une bonne soirée