Bonjour,
je souhaiterai savoir si cela est possible de créer une macro permettant la modification d'un lien hypertexte suivant plusieurs parametres.
j'ai besoin à travers excel d'ouvrir une page web.
merci.
jb
Bonjour,
je souhaiterai savoir si cela est possible de créer une macro permettant la modification d'un lien hypertexte suivant plusieurs parametres.
j'ai besoin à travers excel d'ouvrir une page web.
merci.
jb
Salut,
Et si tu veux le modifier tu peux toujours écrire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Sub Macro1() ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.lenomdetonsite.com/" Range("A1").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Selection.Hyperlinks(1).Address = "http://www.lenomdetonnouveausite.com/" Selection.Hyperlinks(1).TextToDisplay = "http://www.enomdetonnouveausite.com/"
ok merci mais alors ça fonctionnera de la sorte:
j'ai 7 check box (logements/bureau/santé/scolaire/autres et neuf/reha)
donc comment faire une macro combinant ces 7 infos:
Ex: si logement/reha
logement/neuf
bureau/réha
...
Si j'ai bien compris ta question voila un bout de programme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub lien() If Bouton_logement.value = True And bouton_neuf.value = True Then Selection.Hyperlinks(1).Address = "http://www.lesite_logement_neuf.com/" Selection.Hyperlinks(1).TextToDisplay = "http://www.lesite_logement_neuf.com/" Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Else If Bouton_logement.value = True And Bouton_reha.value= True Then Selection.Hyperlinks(1).Address = "http://www.lesite_logement_reha.com/" Selection.Hyperlinks(1).TextToDisplay = "http://www.lesite_logement_reha.com/" Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Else Etc Etc... End Sub
oui merci beaucoup
juste une dernière question en fait maintenant on cochera les chackbox dans un userform.
donc j'ai décidé d'affectuer la valeur 1 (dans une cellule) si la checkbox.value=true
mais comment en imbriquer 6 car j'ai imbriquer 6 if mais il ne sont pas complémentaires mais restrictif:
et le problème c'est qu'une fois qu'une checkbox est cocher ça s'arrete et ça n'inscrit pas la valeur 1 si une autre checkbox est cochée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 If CheckBox1.Value = True Then Worksheets("BM").Range("AZ1") = 1 Else If CheckBox2.Value = True Then Worksheets("BM").Range("AZ2") = 1 Else If CheckBox3.Value = True Then Worksheets("BM").Range("AZ3") = 1 Else If CheckBox4.Value = True Then Worksheets("BM").Range("AZ4") = 1 Else If CheckBox5.Value = True Then Worksheets("BM").Range("AZ5") = 1 Else If CheckBox6.Value = True Then Worksheets("BM").Range("AZ6") = 1 End If End If End If End If End If End If
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager