Je suis quand même surpris que ça soit "accessible" via un fichier texte en pas directement dans le VBA
Oui. En fait, il n'y a pas d'objet "macro", donc pas de propriété "raccourci". Daniel
JièL
Merci Isabelle de la Geôlière, l'approche est différente de celle de MichD mais elle m'ouvre d'autre perspective
-- JièL père Spèctive
Le 29/10/2015 14:51, isabelle a écrit :
salut JièL,
voici un exemple,
Sub SupprimeToutCodeEtFormulaire() Dim VBComp As Object Dim VBComps As Object Set VBComps = ThisWorkbook.VBProject.VBComponents For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp End Sub
isabelle
Le 2015-10-29 05:59, JièL a écrit :
Salutatousses,
En VBA, quelle(s) instruction(s)/bidouille(s) permet de savoir si un raccourci clavier est affecté à une macro (sub) ?
Merci d'avance
Merci Isabelle de la Geôlière, l'approche est différente de celle de
MichD mais elle m'ouvre d'autre perspective
--
JièL père Spèctive
Le 29/10/2015 14:51, isabelle a écrit :
salut JièL,
voici un exemple,
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ThisWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
End Sub
isabelle
Le 2015-10-29 05:59, JièL a écrit :
Salutatousses,
En VBA, quelle(s) instruction(s)/bidouille(s) permet de savoir si un
raccourci
clavier est affecté à une macro (sub) ?
Merci Isabelle de la Geôlière, l'approche est différente de celle de MichD mais elle m'ouvre d'autre perspective
-- JièL père Spèctive
Le 29/10/2015 14:51, isabelle a écrit :
salut JièL,
voici un exemple,
Sub SupprimeToutCodeEtFormulaire() Dim VBComp As Object Dim VBComps As Object Set VBComps = ThisWorkbook.VBProject.VBComponents For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp End Sub
isabelle
Le 2015-10-29 05:59, JièL a écrit :
Salutatousses,
En VBA, quelle(s) instruction(s)/bidouille(s) permet de savoir si un raccourci clavier est affecté à une macro (sub) ?
Merci d'avance
Jacquouille
Salut Jièl
En fait, au sujet des perspectives, celles d'Isabelle sont les portes de cellules...mais, au bout d'un long couloir. Y a quand même de la perspective. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "JièL" a écrit dans le message de groupe de discussion : n1ahf1$b1p$
Merci Isabelle de la Geôlière, l'approche est différente de celle de MichD mais elle m'ouvre d'autre perspective
-- JièL père Spèctive
Le 29/10/2015 14:51, isabelle a écrit :
salut JièL,
voici un exemple,
Sub SupprimeToutCodeEtFormulaire() Dim VBComp As Object Dim VBComps As Object Set VBComps = ThisWorkbook.VBProject.VBComponents For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp End Sub
isabelle
Le 2015-10-29 05:59, JièL a écrit :
Salutatousses,
En VBA, quelle(s) instruction(s)/bidouille(s) permet de savoir si un raccourci clavier est affecté à une macro (sub) ?
Merci d'avance
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Salut Jièl
En fait, au sujet des perspectives, celles d'Isabelle sont les portes de
cellules...mais, au bout d'un long couloir. Y a quand même de la
perspective. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"JièL" a écrit dans le message de groupe de discussion :
n1ahf1$b1p$3@speranza.aioe.org...
Merci Isabelle de la Geôlière, l'approche est différente de celle de
MichD mais elle m'ouvre d'autre perspective
--
JièL père Spèctive
Le 29/10/2015 14:51, isabelle a écrit :
salut JièL,
voici un exemple,
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ThisWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
End Sub
isabelle
Le 2015-10-29 05:59, JièL a écrit :
Salutatousses,
En VBA, quelle(s) instruction(s)/bidouille(s) permet de savoir si un
raccourci
clavier est affecté à une macro (sub) ?
Merci d'avance
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
En fait, au sujet des perspectives, celles d'Isabelle sont les portes de cellules...mais, au bout d'un long couloir. Y a quand même de la perspective. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "JièL" a écrit dans le message de groupe de discussion : n1ahf1$b1p$
Merci Isabelle de la Geôlière, l'approche est différente de celle de MichD mais elle m'ouvre d'autre perspective
-- JièL père Spèctive
Le 29/10/2015 14:51, isabelle a écrit :
salut JièL,
voici un exemple,
Sub SupprimeToutCodeEtFormulaire() Dim VBComp As Object Dim VBComps As Object Set VBComps = ThisWorkbook.VBProject.VBComponents For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp End Sub
isabelle
Le 2015-10-29 05:59, JièL a écrit :
Salutatousses,
En VBA, quelle(s) instruction(s)/bidouille(s) permet de savoir si un raccourci clavier est affecté à une macro (sub) ?
Merci d'avance
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com