Mise a jour UserForm

franck17 · 26 Novembre 2006

Bonsoir tout le monde

Voici mon probleme:

Cellule A18 active je valide le bouton editer et la ligne 18 se retrouve dans l'userform jusque la ok mais en laissant l'userform a l'ecran je selectionne la ligne 19 pas de mise a jour userform il y a t'il une solution pour ce probleme?

Je fais appel au forum car je suis a bout jusque la je me suis debrouillé mais la

Voir fichier joint et MERCI d'avance.

Hervé · 1 Décembre 2006

Re : Mise a jour UserForm

bonjour

franck, si tu avas regardé mes codes, tu aurais vu ceci :

ligne = ActiveCell.Row
chemin = "c:\Projets\" & Cells(ligne, 3) & "\" & Cells(ligne, 4)
chemin = chemin & "\" & Cells(ligne, 5) & "\" & Cells(ligne, 6)
chemin = chemin & ".top.png"

If Not chemin = "" Then
With UserForm1.WebBrowser1
.Navigate "about:<html><body scroll='no'><img src='" & chemin & "'></img></BODY></html>"
End With
End If

soit chemin la variable reconstituant le chemin du .png et .navigate renvoyant cette image dans le webbrowser.

donc par deduction tu aurais essayer comme ceci

With UserForm1.WebBrowser1
.Navigate "about:<html><body scroll='no'><img src='" & Cells(li, 20).Value & "'></img></BODY></html>"
End With

non testé.

salut

franck17 · 1 Décembre 2006

Re : Mise a jour UserForm

OH LA BOULETTE

A la place de .top.png il y avait .top,png
Virgule au lieu de point je suis nul j'avais bien bricolé le bon code mais la VIRGULE pas vue.

MERCI HERVE

Par contre je n'ai pas trouvé d'exemples pour le filtre automatique et le Scrollbar pour lire que les lignes filtrées

Merci et bonne soirée

Effectuez une recherche sur Excel Downloads...

Mise a jour UserForm

franck17

XLDnaute Junior

Hervé

XLDnaute Barbatruc

franck17

XLDnaute Junior

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums