Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: O7zIy$4GGHA.2012@TK2MSFTNGP14.phx.gbl...
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eJKVJ0sGGHA.2708@TK2MSFTNGP11.phx.gbl...
Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" <stef76@discussions.microsoft.com> a écrit dans le message de
news: 59A4A0A9-C0DB-41FB-9CED-0E4A7FAFCD54@microsoft.com...
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: O7zIy$4GGHA.2012@TK2MSFTNGP14.phx.gbl...
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eJKVJ0sGGHA.2708@TK2MSFTNGP11.phx.gbl...
Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" <stef76@discussions.microsoft.com> a écrit dans le message de
news: 59A4A0A9-C0DB-41FB-9CED-0E4A7FAFCD54@microsoft.com...
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: OhqW34DIGHA.740@TK2MSFTNGP12.phx.gbl...
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23euQZN5GGHA.2696@TK2MSFTNGP14.phx.gbl...
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: O7zIy$4GGHA.2012@TK2MSFTNGP14.phx.gbl...
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eJKVJ0sGGHA.2708@TK2MSFTNGP11.phx.gbl...
Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" <stef76@discussions.microsoft.com> a écrit dans le message de
news: 59A4A0A9-C0DB-41FB-9CED-0E4A7FAFCD54@microsoft.com...
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: OhqW34DIGHA.740@TK2MSFTNGP12.phx.gbl...
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23euQZN5GGHA.2696@TK2MSFTNGP14.phx.gbl...
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: O7zIy$4GGHA.2012@TK2MSFTNGP14.phx.gbl...
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eJKVJ0sGGHA.2708@TK2MSFTNGP11.phx.gbl...
Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" <stef76@discussions.microsoft.com> a écrit dans le message de
news: 59A4A0A9-C0DB-41FB-9CED-0E4A7FAFCD54@microsoft.com...
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
| comment perd-t-on le "CTRL;"
En affectant cette combinaision de touches à d'autres fins.
ou en désactivant cette combinaison dans une procédure ...
Il y a peu de chances que cela survienne sans aucune manipulation de
l'usager
que ce soit volontaire ou pas ....
As-tu des suggestions à proposer infirmant ces propos ?
Salutations!
"...Patrick" a écrit dans le message de
news:
Oui bien sur mais comment perd-t-on le "CTRL;" , c'est ça qui m'intrigue
!!
:-))
à quoi est ce dû ?
Patrick
"michdenis" a écrit dans le message de news:Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message
de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne
peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
| comment perd-t-on le "CTRL;"
En affectant cette combinaision de touches à d'autres fins.
ou en désactivant cette combinaison dans une procédure ...
Il y a peu de chances que cela survienne sans aucune manipulation de
l'usager
que ce soit volontaire ou pas ....
As-tu des suggestions à proposer infirmant ces propos ?
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: OV1XU5RIGHA.3144@TK2MSFTNGP11.phx.gbl...
Oui bien sur mais comment perd-t-on le "CTRL;" , c'est ça qui m'intrigue
!!
:-))
à quoi est ce dû ?
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
evUtRHFIGHA.1728@TK2MSFTNGP09.phx.gbl...
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: OhqW34DIGHA.740@TK2MSFTNGP12.phx.gbl...
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23euQZN5GGHA.2696@TK2MSFTNGP14.phx.gbl...
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message
de
news: O7zIy$4GGHA.2012@TK2MSFTNGP14.phx.gbl...
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eJKVJ0sGGHA.2708@TK2MSFTNGP11.phx.gbl...
Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" <stef76@discussions.microsoft.com> a écrit dans le message de
news: 59A4A0A9-C0DB-41FB-9CED-0E4A7FAFCD54@microsoft.com...
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne
peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
Bonjour Patrick,
| comment perd-t-on le "CTRL;"
En affectant cette combinaision de touches à d'autres fins.
ou en désactivant cette combinaison dans une procédure ...
Il y a peu de chances que cela survienne sans aucune manipulation de
l'usager
que ce soit volontaire ou pas ....
As-tu des suggestions à proposer infirmant ces propos ?
Salutations!
"...Patrick" a écrit dans le message de
news:
Oui bien sur mais comment perd-t-on le "CTRL;" , c'est ça qui m'intrigue
!!
:-))
à quoi est ce dû ?
Patrick
"michdenis" a écrit dans le message de news:Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message
de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne
peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
re ;
je vais regarder au logiciel (maintenant que tu m'y fais penser) qui
permet de faire des raccourcis clavier dans SAP ou autre...
Merci, je te tiens au courant
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
| comment perd-t-on le "CTRL;"
En affectant cette combinaision de touches à d'autres fins.
ou en désactivant cette combinaison dans une procédure ...
Il y a peu de chances que cela survienne sans aucune manipulation de
l'usager
que ce soit volontaire ou pas ....
As-tu des suggestions à proposer infirmant ces propos ?
Salutations!
"...Patrick" a écrit dans le message de
news:
Oui bien sur mais comment perd-t-on le "CTRL;" , c'est ça qui m'intrigue
!!
:-))
à quoi est ce dû ?
Patrick
"michdenis" a écrit dans le message de news:Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message
de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message
de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus
non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne
peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
re ;
je vais regarder au logiciel (maintenant que tu m'y fais penser) qui
permet de faire des raccourcis clavier dans SAP ou autre...
Merci, je te tiens au courant
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23QDmTPSIGHA.2928@TK2MSFTNGP10.phx.gbl...
Bonjour Patrick,
| comment perd-t-on le "CTRL;"
En affectant cette combinaision de touches à d'autres fins.
ou en désactivant cette combinaison dans une procédure ...
Il y a peu de chances que cela survienne sans aucune manipulation de
l'usager
que ce soit volontaire ou pas ....
As-tu des suggestions à proposer infirmant ces propos ?
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: OV1XU5RIGHA.3144@TK2MSFTNGP11.phx.gbl...
Oui bien sur mais comment perd-t-on le "CTRL;" , c'est ça qui m'intrigue
!!
:-))
à quoi est ce dû ?
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
evUtRHFIGHA.1728@TK2MSFTNGP09.phx.gbl...
Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message
de
news: OhqW34DIGHA.740@TK2MSFTNGP12.phx.gbl...
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23euQZN5GGHA.2696@TK2MSFTNGP14.phx.gbl...
Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message
de
news: O7zIy$4GGHA.2012@TK2MSFTNGP14.phx.gbl...
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus
non
plus !!
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eJKVJ0sGGHA.2708@TK2MSFTNGP11.phx.gbl...
Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" <stef76@discussions.microsoft.com> a écrit dans le message de
news: 59A4A0A9-C0DB-41FB-9CED-0E4A7FAFCD54@microsoft.com...
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne
peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide
re ;
je vais regarder au logiciel (maintenant que tu m'y fais penser) qui
permet de faire des raccourcis clavier dans SAP ou autre...
Merci, je te tiens au courant
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
| comment perd-t-on le "CTRL;"
En affectant cette combinaision de touches à d'autres fins.
ou en désactivant cette combinaison dans une procédure ...
Il y a peu de chances que cela survienne sans aucune manipulation de
l'usager
que ce soit volontaire ou pas ....
As-tu des suggestions à proposer infirmant ces propos ?
Salutations!
"...Patrick" a écrit dans le message de
news:
Oui bien sur mais comment perd-t-on le "CTRL;" , c'est ça qui m'intrigue
!!
:-))
à quoi est ce dû ?
Patrick
"michdenis" a écrit dans le message de news:Si tu désires qu'un raccourci clavier soit disponible à l'ouverture
d'un classeur :
Ceci dans le ThisWorkbook
'-----------------------
Private Sub Workbook_Open()
Application.OnKey "^;", "InsertionDate"
End Sub
'-----------------------
Dans un module Standard :
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
Salutations!
"...Patrick" a écrit dans le message
de
news:
Salut,
j'ai essayé ce matin au boulot et pas de réaction !!!
alors que "CTRL : " fonctionne
Curieux non ?
Patrick
"michdenis" a écrit dans le message de news:
%Bonjour Patrick,
Essaie ceci :
'----------------------
Sub test()
Application.OnKey "^;", "InsertionDate"
End Sub
'----------------------
Sub InsertionDate()
If TypeName(Selection) = "Range" Then
Selection = Date
End If
End Sub
'----------------------
Salutations!
"...Patrick" a écrit dans le message
de
news: O7zIy$
Salut,
dans le même genre, au boulot, le "CTRL ;" (date) ne fonctionne plus
non
plus !!
Merci
"michdenis" a écrit dans le message de news:Bonjour Stef76,
exécute la procédure test()
'----------------------
Sub test()
Application.OnKey "^K", "InsertionHypertexte"
End Sub
'----------------------
Sub InsertionHypertexte()
Application.CommandBars.FindControl(ID:76).Execute
End Sub
'----------------------
Salutations!
"stef76" a écrit dans le message de
news:
j'ai un fichier Excel dans lequel il y a des lien hypertexte. Je ne
peux
pas
les modifier. De plus si je veux créer de nouveaux lien hypertexte, la
foncion CRTL + K ne fait rien du tout. Comment rendre disponible la
fonction
permettant de créer ou modifier des lien hypertexte.
Merci de votre aide