Déchiffrer une formule macro Fermé

Question

Bonjour, 

Je souhaiterais déchiffrer / savoir lire la formule suivante, afin de l'adapter à mon classeur : 

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE 1[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Range("A1")) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Application.Run ("mDF_Calendrier11.xla!mDFcalShow")
    [COLOR=NAVY]End If
End Sub[/COLOR]

Il s'agit donc de savoir par quoi je dois remplacer les mots...


Pour mieux comprendre, voici le forum où j'ai trouvé ma formule : https://www.excel-downloads.com/threads/macro-complementaire-calendrier.87736/



Merci beaucoup

Configuration: Mac OS X (10.9.0) / Chrome 31.0.1650.57

f894009 · Answer

Bonjour,

'DANS LE MODULE DE CODE DE LA FEUILLE 1

Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)  If Not Application.Intersect(Target, Range("A1")) Is Nothing Then        Application.Run ("mDF_Calendrier11.xla!mDFcalShow")  End IfEnd Sub

Déchiffrer une formule macro

1 réponse

Discussions similaires