J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les autre.
Si par "fenêtre" tu as voulu dire "feuille", au tout début de ta macro (nom feuille à adapter) :
If ActiveSheet.Name <> "Feuil1" Then Exit Sub
AV
Denis Michon
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$ Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les autre.
Merci
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci :
'---------------------
Sub Message()
MsgBox "Bonjour"
End Sub
'-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'--------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then
Application.MacroOptions "Message", , , , True, "m"
Else
Application.MacroOptions "Message", , , , True, ""
End If
End Sub
'--------------------
Salutations!
Salutations!
"Pellet15" <Pellet15@videotron.ca> a écrit dans le message de news:mRRAb.29133$CB2.628570@weber.videotron.net...
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro.
Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les
autre.
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$ Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les autre.
Merci
isabelle
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$ Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les autre.
Merci
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur
excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci :
'---------------------
Sub Message()
MsgBox "Bonjour"
End Sub
'-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'--------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then
Application.MacroOptions "Message", , , , True, "m"
Else
Application.MacroOptions "Message", , , , True, ""
End If
End Sub
'--------------------
Salutations!
Salutations!
"Pellet15" <Pellet15@videotron.ca> a écrit dans le message de news:mRRAb.29133$CB2.628570@weber.videotron.net...
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro.
Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les
autre.
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$ Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les autre.
Merci
Pellet15
Bonsoir a tous je me suis mal expliquer , par fenêtre j'aurait du dire par onglet ( le nom est ''Voie'' ) Ma macro est:
Sub Voie_OK() ' ' Voie_OK Macro ' Macro enregistrée le 2003-09-13 par Daniel racourci CTRL-D ' pour copier la date et les initial de l'inspecteur ' With ActiveCell If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!H1] .Item(1, 2) = ['Feuille_insp'!J2] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
"isabelle" a écrit dans le message de news:
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les
autre.
Merci
Bonsoir a tous
je me suis mal expliquer , par fenêtre j'aurait du dire par onglet ( le nom
est ''Voie'' )
Ma macro est:
Sub Voie_OK()
'
' Voie_OK Macro
' Macro enregistrée le 2003-09-13 par Daniel racourci CTRL-D
' pour copier la date et les initial de l'inspecteur
'
With ActiveCell
If .Item(1, 1) = "" And .Item(1, 2) = "" Then
.Item(1, 1) = ['Feuille_insp'!H1]
.Item(1, 2) = ['Feuille_insp'!J2]
.Offset(1, 0).Select
End If
ActiveCell(1, 1).Select
End With
End Sub
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3FD4AC9F.F979653D@videotron.ca...
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur
excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci :
'---------------------
Sub Message()
MsgBox "Bonjour"
End Sub
'-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de
touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active
...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'--------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then
Application.MacroOptions "Message", , , , True, "m"
Else
Application.MacroOptions "Message", , , , True, ""
End If
End Sub
'--------------------
Salutations!
Salutations!
"Pellet15" <Pellet15@videotron.ca> a écrit dans le message de
news:mRRAb.29133$CB2.628570@weber.videotron.net...
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro.
Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans
les
Bonsoir a tous je me suis mal expliquer , par fenêtre j'aurait du dire par onglet ( le nom est ''Voie'' ) Ma macro est:
Sub Voie_OK() ' ' Voie_OK Macro ' Macro enregistrée le 2003-09-13 par Daniel racourci CTRL-D ' pour copier la date et les initial de l'inspecteur ' With ActiveCell If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!H1] .Item(1, 2) = ['Feuille_insp'!J2] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
"isabelle" a écrit dans le message de news:
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les
autre.
Merci
isabelle
bonjour Pellet15,
ajoute cette ligne au début de la macro
If ActiveSheet.Name <> "Voie" Then Exit Sub
isabelle
Bonsoir a tous je me suis mal expliquer , par fenêtre j'aurait du dire par onglet ( le nom est ''Voie'' ) Ma macro est:
Sub Voie_OK() ' ' Voie_OK Macro ' Macro enregistrée le 2003-09-13 par Daniel racourci CTRL-D ' pour copier la date et les initial de l'inspecteur ' With ActiveCell If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!H1] .Item(1, 2) = ['Feuille_insp'!J2] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
"isabelle" a écrit dans le message de news:
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les
autre.
Merci
bonjour Pellet15,
ajoute cette ligne au début de la macro
If ActiveSheet.Name <> "Voie" Then Exit Sub
isabelle
Bonsoir a tous
je me suis mal expliquer , par fenêtre j'aurait du dire par onglet ( le nom
est ''Voie'' )
Ma macro est:
Sub Voie_OK()
'
' Voie_OK Macro
' Macro enregistrée le 2003-09-13 par Daniel racourci CTRL-D
' pour copier la date et les initial de l'inspecteur
'
With ActiveCell
If .Item(1, 1) = "" And .Item(1, 2) = "" Then
.Item(1, 1) = ['Feuille_insp'!H1]
.Item(1, 2) = ['Feuille_insp'!J2]
.Offset(1, 0).Select
End If
ActiveCell(1, 1).Select
End With
End Sub
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3FD4AC9F.F979653D@videotron.ca...
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur
excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci :
'---------------------
Sub Message()
MsgBox "Bonjour"
End Sub
'-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de
touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active
...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'--------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then
Application.MacroOptions "Message", , , , True, "m"
Else
Application.MacroOptions "Message", , , , True, ""
End If
End Sub
'--------------------
Salutations!
Salutations!
"Pellet15" <Pellet15@videotron.ca> a écrit dans le message de
news:mRRAb.29133$CB2.628570@weber.videotron.net...
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro.
Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans
les
Bonsoir a tous je me suis mal expliquer , par fenêtre j'aurait du dire par onglet ( le nom est ''Voie'' ) Ma macro est:
Sub Voie_OK() ' ' Voie_OK Macro ' Macro enregistrée le 2003-09-13 par Daniel racourci CTRL-D ' pour copier la date et les initial de l'inspecteur ' With ActiveCell If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!H1] .Item(1, 2) = ['Feuille_insp'!J2] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
"isabelle" a écrit dans le message de news:
bonjour vous à trois,
ce n'est pas risqué d'utiliser un racourci qui est déjà présent sur excel ?
isabelle
Bonsoir Pellet15,
Supppoe que dans un module standard, tu as une macro comme celle-ci : '--------------------- Sub Message()
MsgBox "Bonjour"
End Sub '-------------------
Admettons que tu veuilles que cette macro s'exécute via un raccourci de touches clavier ( "Ctrl + m " , pour les besoins de
mon exemple) seulement lorsque la feuille "Feuil1" est la feuille active ...du classeur, pour ce faire, dans le ThisWorkbook
de ton projet , ajoute ceci :
'-------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then Application.MacroOptions "Message", , , , True, "m" Else Application.MacroOptions "Message", , , , True, "" End If
End Sub '--------------------
Salutations!
Salutations!
"Pellet15" a écrit dans le message de news:mRRAb.29133$
Bonsoir
J'ai un racourci CTRL-D qui exsécute une macro. Je voudrait que cela fonctionne seulement dans une fenètre mais pas dans les
