Déchiffrer une formule macro

Fermé

djooouuu Messages postés 7 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 28 novembre 2013 - 28 nov. 2013 à 13:13
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 - 28 nov. 2013 à 19:07

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:

Déchiffrer une formule macro
Formule excel - Guide
Formule si et - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Formule moyenne excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
28 nov. 2013 à 19:07

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

Discussions similaires

je veut créer des codes

exo pix

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters