Déchiffrer une formule macro

djooouuu Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

'DANS LE MODULE DE CODE DE LA FEUILLE 1 

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Application.Run ("mDF_Calendrier11.xla!mDFcalShow")
  End If
End Sub
0

Discussions similaires

Décalage de formule
nathan01983 -
via55 -

12 réponses