XL 2016 Photo dans cellule depuis Useform

[carouvanai]

Bonjour à toutes et tous,

Je me permets de poster ce message afin de solutionner/prendre des conseils concernant ma problématique/projet

Plusieurs problématiques se posent à moins :

1) problématique plus technique, je souhaite ajouter une image dans la cellule "LOGO". la partie recherche ne pose pas de soucis, c'est lors de la validation que j'ai un problème ... l'image se positionne bien dans l'image box et j'arrive bien à récupérer l'url de l'image, mais je n'arrive pas à afficher le logo. Connaissez vous une manip ?

2) Dans le bloc inférieur nommé "solutions". Actuellement je sélectionne une "prestation", de là, découle une ou plusieurs "solutions" (que je peux sélectionner) le résultats final de ma/mes sélections apparait dans la case "résumé solutions clients".
Ce que je souhaite faire c'est de pouvoir sélectionner plusieurs solutions ET plusieurs PRESTATIONS (actuellement seul plusieurs solutions fonctionne)

je vous joints le fichier en question

merci d'avance pour vos retours

PS : ceci concerne une version Office 365 2016 windows 7

 

[Iznogood1]

Bonjour

Pour la question 2, regarde la procédure secteur_2_change()
Tu as activite_resume = "" qui efface ta liste à chaque fois.

Private Sub secteur_2_change()

If secteur_2.ListIndex <> -1 Then
activite_resume = ""
sep = ""
For I = 0 To secteur_2.ListCount - 1
  If secteur_2.Selected(I) = True Then
  activite_resume = activite_resume & sep & secteur_2.List(I)
  If sep = "" Then sep = ", "
  End If
Next I
End If
End Sub

Il faut donc travailler autrement.
Exemple : analyser le contenu de activite_resume et ajouter / retirer le contenu en fonction du choix de l'utilsateur
Pour cela, tu peux utiliser MouseUp() au lien de Change()

Private Sub secteur_2_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim entry() As String
  Dim exists As Boolean
  Dim i As Integer, j As Integer
 
  entry = Split(activite_resume, ", ")

  If secteur_2.ListIndex <> -1 Then
  For i = 0 To secteur_2.ListCount - 1
  exists = False
  For j = 0 To UBound(entry)
  If entry(j) = secteur_2.List(i) Then
  exists = True
  Exit For
  End If
  Next j
   
  If secteur_2.Selected(i) Then
  If Not exists Then
  ReDim Preserve entry(UBound(entry) + 1)
  entry(UBound(entry)) = secteur_2.List(i)
  End If
  Else
  If exists Then entry(j) = ""
  End If
   
  Next i
   
  activite_resume.Text = ""
  For i = 0 To UBound(entry)
  If entry(i) <> "" Then
  If activite_resume.Text = "" Then
  activite_resume.Text = entry(i)
  Else
  activite_resume.Text = activite_resume.Text & ", " & entry(i)
  End If
  End If
  Next i

  End If
End Sub

 

[carouvanai]

Super !

un grand merci à toi !

 

[carouvanai]

J'ai pu avancer sur différents points.

Actuellement, ma seule problématique est concernant l'affichage du logo dans la cellule concernée.

Je suis en mesure de le faire UNE fois.

Malheureusement, dès que j'essaye de réitérer l'opération, cela ne fonctionne pas, ne mets pas le logo à la bonne place, ne le redimensionne pas, bref ca fonctionne pas.

J'ai cherché un peu partout, mais rien ne se dessine précisément.

avez vous une piste ?