c'est simple mais j'y arrive pas

youki

XLDnaute Occasionnel
Bonjour, j'ai un truc super simple a faire: Mettre un lien sur un bouton de Useform qui renvoit vers une adresse internet. Or je n'y arrive meme pas. Quand je tape du code dans le bouton, il n'accepte pas Target ou Hyperlink donc si quelqu'un avait la syntax sous le coude ce serai super.

Encore une fois je m'excuse, ça me parait super simple mais je ne trouve pas la solution et du coup je perd enormémént de temps sur ce genre de petit détails.
 

Staple1600

XLDnaute Barbatruc
Re : c'est simple mais j'y arrive pas

Bonjour

Regardes ici
Lien supprimé

En adaptant l'exemple
(l'adresse mail étant la Caption du CommandButtton)
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim URLto As String
MailAd = CommandButton1.Caption
URLto = "mailto:" & MailAd
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
 
Dernière édition:

youki

XLDnaute Occasionnel
Re : c'est simple mais j'y arrive pas

Bon et bien une fois de plus c'est excelent. Ca marche nikel.Merci Staple1600. Rapide comme l'eclair.
Reformulation pour les recherches forums:
Liens hypertextes sur un bouton Useform:
Code:
Private Sub Image1_Click()

Dim URLto As String

URLto = "http://www.excel-downloads.com/forum"
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

Voila résolu, impeccable de freins hydraulique.
++
 

youki

XLDnaute Occasionnel
Re : c'est simple mais j'y arrive pas

Dans le meme esprit, je souhaite faire un calcul savant à base de multiplications et additions. Seulement je dois multiplier et additionner des valeurs qui viennent d'un combobox et donc qui sont en Variant... Comment faire pour imposer à un combobox de renvoyer un Integer ou meme mieux comment lui expliquer gentillement que la variable d'entrée est un Integer et que donc il doit renvoyer un Integer.

Attention ci dessou une programmation d'une rare intensité:
Code:
Set salaireChef = Sheets("donnees_employes").Range("G4")
Set salaireComp = Sheets("donnees_employes").Range("H4")

'où chef et compagnons sont les noms des deux combobox

 UserForm1.equipe.Caption = chef.Value*salaireChef.Value + compagnons.Value*salaireComp.Value)/(chef.Value + compagnons.Value)

A l'heure actuel prises séparement les valeurs existent et sont bonnes. Si je veux additionner les valeurs venant de compagnon et de chef ça donne ceci:
chef=6;
compagnons=5;
chef+compagnons=65
donc voila le business.
 

skoobi

XLDnaute Barbatruc
Re : c'est simple mais j'y arrive pas

Bonjour le forum,

tu peux vérifier que la saisie dans le combobox est un nombre en ajoutant ce code qui fait la vérification lorsque le combo perd le focus (plus actif):

Code:
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(ComboBox1.Value) Then MsgBox "doit être un nombre"
End Sub
 

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi