Macro complementaire (Calendrier)

myDearFriend!

XLDnaute Barbatruc

• 5 Janvier 2008

• #2

Re : Macro complementaire (Calendrier)

Bonsoir tvhabdo,

As-tu consulté cet article mDF XLcalendar v1.0 en détail, et notamment ce point particulier Options express - Auto Détection ? Il suffit simplement de cocher l'option présentée dans l'interface du calendrier pour qu'il s'affiche automatiquement si la cellule active comporte un format date.

​

Sinon, pour info, pas besoin de faire Ctrl avant le clic droit pour obtenir le menu contextuel dans la cellule.

Par ailleurs, avec cette nouvelle version, tu as également la possibilité d'affecter un raccourci clavier pour l'affichage du calendrier quand tu veux.

Cordialement,

 

Dernière édition: 5 Janvier 2008

Vote positif 0 Vote négatif

T

tvhabdo

XLDnaute Occasionnel

• 5 Janvier 2008

• #3

Re : Macro complementaire (Calendrier)

Bonsoir, Didier... oui avais vu tout ça...

mais je suis sur MAC et j'ai donc téléchargé une version compatible (1.1) qui est asssez ancienne, C pour cela que je demandais un accès direct (Voir post precedent)

Si il existe un calendrier RECENT pour MAC... dis moi, je serais heureux de le télécharger

Merci Patrick...

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 5 Janvier 2008

• #4

Re : Macro complementaire (Calendrier)

Arf,

Désolé Patrick alors, non, il n'y a pas d'autres versions compatibles Mac.

Les versions de cet utilitaire sont résumées ICI.

L'utilisation d'API Windows à partir de la version 2 empêche toute compatibilité Mac.

Merci toutefois de ton intérêt pour cette application

Cordialement,

 

Vote positif 0 Vote négatif

T

tvhabdo

XLDnaute Occasionnel

• 5 Janvier 2008

• #5

Re : Macro complementaire (Calendrier)

OK.. Didier No souci... et Merci

Si kkun peut m'aider voir premier Post...!!!

J'en serais ravi et je ferais des Bonds ...

Patrick

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 5 Janvier 2008

• #6

Re : Macro complementaire (Calendrier)

Re, re

Dans la FAQ dédiée à la version 3.0 du mDF Calendrier, j'explique comment piloter l'affichage du calendrier depuis le code VBA d'un classeur tiers.

Mais pour la version 1.1 que tu possèdes, je pense que seule la première procédure "mDFcalShow" sera disponible.

A TESTER
Tu devrais donc pouvoir coller le code ci-dessous dans le module de la feuille 1 de ton classeur pour déclencher l'affichage auto de l'utilitaire sur simple sélection de la cellule A1 dans ton classeur :

Code:

[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]

Cordialement,

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 5 Janvier 2008

• #7

Re : Macro complementaire (Calendrier)

Bonjour
Perso j'utilise cette userform...
Quand tu double clic sur une case le calendrier s'affiche

A+ François

 

Vote positif 0 Vote négatif

T

tvhabdo

XLDnaute Occasionnel

• 5 Janvier 2008

• #8

Re : Macro complementaire (Calendrier)

Didier, FanFan ... Encore Merci

Didier, j'ai pompé ton bout de Code et ça marche "TOP"

Bonne journée - Patrick

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 5 Janvier 2008

• #9

Re : Macro complementaire (Calendrier)

Bonjour tout le monde

tvhabdo, il serait souhaitable que tu précises dans ton profil, que tu utilises la version d'office mac, cela aurait mis la puce à myDearFriend!.

@+Jean-Marie

 

Vote positif 0 Vote négatif

T

tvhabdo

XLDnaute Occasionnel

• 5 Janvier 2008

• #10

Re : Macro complementaire (Calendrier)

Oui Chef... Bien Chef....!!!

 

Vote positif 0 Vote négatif

J

Julaf

XLDnaute Nouveau

• 3 Octobre 2008

• #11

Re : Macro complementaire (Calendrier)

Salut a tous, j'ai utilise ces quelques lignes de code, mais je souhaiterais que mon calendrier apparaisse toutes les 15 lignes.
Si je fais :

If Not Application.Intersect(Range("A1,A16,A31,A46..."), Target) Is Nothing Then

Ca fonctionne, mais je souhaiterais savoir s'il existe un code du genre

Dim i As Integer
i = 1
i = i + 15
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A" & i)...

qui m'eviterais de mettre le nom de toutes mes cellules, je ne sais pas si les suites sont possible sous VBA.

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 3 Octobre 2008

• #12

Re : Macro complementaire (Calendrier)

Bonsoir Julaf, le fil, le Forum,

Si j'ai bien compris le problème...
Tu dois pouvoir faire comme ça :

Code:

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/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[/COLOR] Target.Count > 1 [COLOR=NAVY]Then Exit Sub
    If Not[/COLOR] Application.Intersect(Target, Columns("A")) [COLOR=NAVY]Is Nothing Then
        If[/COLOR] Target.Row Mod 15 = 1 [COLOR=NAVY]Then[/COLOR]
            [COLOR=GREEN]'...[/COLOR]
            [COLOR=GREEN]'... ton code ici[/COLOR]
            [COLOR=GREEN]'...[/COLOR]
        [COLOR=NAVY]End If
    End If
End Sub[/COLOR]

Cordialement,

 

Vote positif 0 Vote négatif

D

djooouuu

XLDnaute Nouveau

• 28 Novembre 2013

• #13

Re : Macro complementaire (Calendrier)

Bonjour,

Je suis dans le même cas que le tout premier message de ce post (je sais ça remonte à loin...)

Quelqu'un peut-il m'expliquer la formule donnée? En effet, je ne la comprends pas tout à fait, je ne peux donc pas l'utiliser pour ma propre feuille.


J'utilise donc la version 1.1 pour mac.


Je rappelle la formule :

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




Merci beaucoup !!

 

Vote positif 0 Vote négatif