Userform avec Combobox

[mistralincoming]

Bonjour le forum
Roland m'a conseillé d'utiliser un Userforme avec combobox pour mes besoins
si quelqu'un peux m'éclairer, les débuts sont difficiles.
merci

 

[fanfan38]

Re : Userform avec Combobox

Bonsoir,
Pas besoin de macro pour ça (au contraire)
J'ai mis la solution sur la feuille visualiser

A+ François

 

[José77]

Re : Userform avec Combobox

Bonsoir,

Voilà un exemple avec un combobox.

A+
José

 

[mistralincoming]

Re : Userform avec Combobox

bonjour

en effet, mais je connaissais.
là le truc c'est que dans la base il va y avoir plus de 4000 données, donc je cherche à automatiser.
merci bien
bonne soirée

 

[mistralincoming]

Re : Userform avec Combobox

Bonsoir José,

c'est exactement ce type de combobox qu'il me faut.
par contre comment fais tu pour pouvoir avoir en tout 4 paramètres.
il me faudrait pour un nom de fournisseur, le choix entre mail, site, lien, lien photos;
soit prendre en compte également colonne C, D, F.?!?
merci pour ton aide

 

[jp14]

Re : Userform avec Combobox

Bonsoir

Ci joint le fichier avec un USF et deux combobox,
Le premier permet d'afficher la ville
Le second permet d'afficher le nom
Une fois sélectionné le site web s'affiche dans l'USF

Pour info
Pour pouvoir créer un usf avec cette fonction il faut utiliser le "contrôles supplémentaires"
Navigateur Web Microsoft.

Il suffit d'écrire WebBrowser1.Navigate (cellule.Offset(0, 2).Value)
cellule.Offset(0, 2).Value contient l'adresse du site

A tester


JP

 

[mistralincoming]

Re : Userform avec Combobox

bonsoir jp 14

C nickel, mais comment fais tu pour pouvoir avoir l'alternative entre colonne C, D, E, F;
et non allez directement sur le site
c a dire pouvoir choisir aller sur mail, lien photos,...
merci à toi

 

[Roland_M]

Re : Userform avec Combobox

bonsoir à vous tous !
BRAVO Fanfan38 ! Excellent ! je suis meilleur côté Vbe que sur les feuilles Excel d'où ma difficulté pour aider Mistral...
MERCI aussi à jp34 pour son exemple avec WebBrowser1.Navigate que je ne connais pas bien.

Je me permet de garder vos exemples.

Décidément ce Forum mérite tout le bien qu'on en dit, ils y a des gents formidables !

J'espère Mistral... qu'avec tout ça tu pourras progresser !?

Bon soirée à vous. Cordialement Roland

 

[jp14]

Re : Userform avec Combobox

Bonsoir

Ci joint le fichier avec sélection de l'affichage à l'aide d'option buttons

Un usf qui permet de choisir la ville, le nom et l'affichage
un usf pour afficher le site web
un usf pour afficher la photo

A tester

JP

Ci joint le fichier

 

[mistralincoming]

Re : Userform avec Combobox

excuse moi, je trouve pas la pj
merci

 

[mistralincoming]

Re : Userform avec Combobox

il faut que je me rachete des lunettes...

bon, je trouve ça excellent, Roland à raison, et maintenant je vais m'attacher à décripter tout celà pour apprendre....
par contre, je ne sais pas chez toi, mais lorsque tu clique sur Email, même avec une adresse valide, rien ne se passe?

merci à toi

 

[jp14]

Re : Userform avec Combobox

Bonjour

Il ne se passe rien avec l'adresse e-mail car je n'ai pas trouvé de contrôle pour intégrer l'envoi d'un mail.

Il faudrait chercher s'il n'y a pas une solution sur le site.

Concernant les lunettes, j'avais oublié de mettre la pièce jointe.


JP

 

[mistralincoming]

Re : Userform avec Combobox

re,

est-ce pour cela que ton click 2 renvoi au même userforme que le 1, et non le troisième?

...
merci jp

 

[mistralincoming]

Re : Userform avec Combobox

est-ce qu'il ne faut pas un usf sup avec ce type de commande?:
Sub EnvoiUnMail()
Dim MailAd As String
Dim URLto As String
MailAd = Range("D")
URLto = "mailto:" & MailAd ' & Msg "
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

 

[mistralincoming]

Re : Userform avec Combobox

j'ai tenté ça,
mais ça ne fonctionne pas:
en click2 je met usf4show;
et voici l'usf:


Dim i As Long
Dim lidep1 As Long
Dim j As Long
Dim nomfeuille1 As String
Dim trouve As Boolean
Dim col1 As String
Dim cellule As Range
Option Explicit

Private Sub UserForm_Initialize()
nomfeuille1 = ActiveSheet.Name
col1 = "a"
lidep1 = 2

With Sheets(nomfeuille1)
For Each cellule In .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
If data1 = cellule.Value & cellule.Offset(0, 1).Value Then
Private Sub EnvoiUnMail()
End If
Next cellule

End With
End Sub


Private Sub EnvoiUnMail()
Dim MailAd As String
Dim URLto As String
MailAd = Range("D")
URLto = "mailto:" & MailAd ' & Msg "
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub


merci de votre aide