ouvrir sur une feuille précise

B

bonpat

Guest

• 9 Septembre 2004

• #2

Je pense qu'il faut que tu mettes le code dans une procédure : Worksheet_OnOpen ou quelque chose approchant...

désolé pour le manque de précision.

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 9 Septembre 2004

• #3

Bonsoir Laurent, BonPat,


Laurent, ci-joint un petit exemple pour répondre à ta question...

Dans le module de code de l'objet ThisWorkbook :
Private Sub Workbook_Open()
'Active la feuille "Sommaire"
Sheets("Sommaire").Activate
'Afficher le message
UserForm1.Show
End Sub


Dans le module de code du USF :
Private Sub UserForm_Initialize()
'Lancer le Chrono
Bonjour
End Sub

Dans un autre module de code :
Dim Temps As Date
Sub Bonjour()
'Décharger le USF dans 2 secondes
Temps = Now + TimeValue("00:00:02")
Application.OnTime Temps, "AuRevoir", , True
End Sub
Sub AuRevoir()
Unload UserForm1
End Sub



Cordialement,
Didier_mDF

 

Pièces jointes

• PourLaurent.zip

  9.5 KB · Affichages: 28
• PourLaurent.zip

  9.5 KB · Affichages: 24
• PourLaurent.zip

  9.5 KB · Affichages: 26

Vote positif 0 Vote négatif

L

Laurent

Guest

• 9 Septembre 2004

• #4

merci

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 9 Septembre 2004

• #5

Salut "à tous "
j'interviens ,Veuillez m'en excuser pour demander
à"notre cher ami "(myDearFriend) s'il peut me renseigner
je cherche le code qui permet après validation d'un nom dans une listeBox ,d'ouvrir un liens Hypertexte qui porte ce nom dans une cellule qui est sélectionnée OUF!!!!
j'ai utilisé ce code mais bon!!!! lol ;0)

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count = 1 And Target.Hyperlinks.Count Then
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Unload UserForm1
End If
End Sub

merci d'avance
A+++
Jean Marie

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 9 Septembre 2004

• #6

Salut Jean-Marie (Chti160)


Effectivement, ta question n'a rien à voir avec ce fil...

Ceci dit, là, je dois avouer que je n'ai pas tout compris dans ta demande Lol....

Que contient la cellule avant que tu choisisses un élément dans la ListBox ?
A quelle moment ton USF s'ouvre t'il ?
A quoi le lien hypertexte correspond il (une URL....) ?
Le but est de créer le lien dans la cellule, ou d'activer le lien qui se trouve dans la cellule ?

Peux-tu développer STP ? (et joindre un éventuel exemple)


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 10 Septembre 2004

• #7

re "mydear"
OUI je transforme du text en liens que je nomme
puis j'approvisionne ma liste dans un USF et quand je selectionne donc le nom de ce liens dans la listbox du USF
je veux que se liens s'ouvre OUPS!!!!
merci par avance
A++
JeanMarie

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 10 Septembre 2004

• #8

Liens dans une ListBox

Re- Jean-Marie,


Si j'ai bien compris ce que tu souhaites, l'exemple joint devrait faire l'affaire...

Dis-moi si ça te convient.


Cordialement,
Didier_mDF

 

Pièces jointes

• PourChti160.zip

  9.3 KB · Affichages: 25

Vote positif 0 Vote négatif

C

CHti160

Guest

• 10 Septembre 2004

• #9

salut "myDearFriend"
je te remercie
je crois que je t'ai envoyé un message par mail ????? ,mais tu sais je ne suis pas un pro ,ni du message ni du "FORUM" mais bon je ne désespére pas
encore merci oh cas où!!!!(tu n'aurais pas reçu celui ci) ;0)
A+++
Jean Marie

 

Vote positif 0 Vote négatif