D
Didier MAUCOTEL
Guest
Bonjour à tous,
Je vous soumets le problème suivant :
Private Sub Worksheet_FollowHyperlink (ByVal Target As Hyperlink)
x = 2
Worksheets("Feuil1").Range(Cells(x, 9), Cells(x, 9)).Copy
Worksheets("Feuil2").Select
Worksheets("Feuil2").Range("I1").Select
Worksheets("Feuil2").Paste
End Sub
Ces quelques lignes fonctionnent très bien (copie la valeur de la cellule I1 de la feuille 1 dans la cellule I1 de la feuille 2 quand le lien hypertexte est activé) mais je cherche quelque chose de plus puissant :
Je souhaiterais :
1 - que la valeur de x soit une variable égale au numéro de ligne de mon lien hypertexte dans la feuille 1 ;
2 - que le numéro de la feuille sélectionnée (la feuil2 dans l'exemple) soit également une variable égale à x ; (donc, si je sélectionne un lien hypertexte à la ligne 143 de la feuil1, alors x = 143 et j’ouvre la feuille 143).
3 - enfin, dernier problème, la fonction "Paste" ne me convient pas car mes cellules de la feuille 1 sont affectées de formules ; je souhaite copier uniquement la valeur et la mise en forme (texte, numérique, dates,...).
J 'ai essayé avec Consolidate, mais ....rien à faire !!
Merci beaucoup pour votre aide.
Mauco
(Au fait, pour les débutants il y a le site www.info-3000.com qui est sympa)
Je vous soumets le problème suivant :
Private Sub Worksheet_FollowHyperlink (ByVal Target As Hyperlink)
x = 2
Worksheets("Feuil1").Range(Cells(x, 9), Cells(x, 9)).Copy
Worksheets("Feuil2").Select
Worksheets("Feuil2").Range("I1").Select
Worksheets("Feuil2").Paste
End Sub
Ces quelques lignes fonctionnent très bien (copie la valeur de la cellule I1 de la feuille 1 dans la cellule I1 de la feuille 2 quand le lien hypertexte est activé) mais je cherche quelque chose de plus puissant :
Je souhaiterais :
1 - que la valeur de x soit une variable égale au numéro de ligne de mon lien hypertexte dans la feuille 1 ;
2 - que le numéro de la feuille sélectionnée (la feuil2 dans l'exemple) soit également une variable égale à x ; (donc, si je sélectionne un lien hypertexte à la ligne 143 de la feuil1, alors x = 143 et j’ouvre la feuille 143).
3 - enfin, dernier problème, la fonction "Paste" ne me convient pas car mes cellules de la feuille 1 sont affectées de formules ; je souhaite copier uniquement la valeur et la mise en forme (texte, numérique, dates,...).
J 'ai essayé avec Consolidate, mais ....rien à faire !!
Merci beaucoup pour votre aide.
Mauco
(Au fait, pour les débutants il y a le site www.info-3000.com qui est sympa)