mDF XLCalendar
#1
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2008 11h00
Bonjour MyDearFriend, cette question se pose avant tous à toi. Je cherche à faire un nouveau module, dans mon Bulletin, pour rentrer les notes. Un module qui permetterait de rentrer la note et le commentaire. Ce procédé est utilisé dans mDF XLCalendar, alors plutôt que de vous poser des question je préfère, si possible, que vous me passier le code (je ne vous piquerai pas votre excellent calendrier ne vous inquiétez pas).

Merci, à vous et à mDF et Bonne Année.

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 03-01-2008 14h04
Bonjour PowerPlus, le Forum,

Comme je le précise dans la FAQ ICI, contrairement au mDF XLcalendar, le code VBA du mDF Calendrier v3.0 est disponible sur simple demande. Je te l'envoie donc tout à l'heure à l'adresse mail utilisée dans ton profil de membre.

Cela dit, je ne vois pas de quel procédé tu parles en rapport avec l'entrée de notes et commentaires... et j'ai bien peur que tu te compliques la vie. Si tu souhaites apprendre à utiliser les Userforms (pour créer un formulaire de saisie par exemple), je pense que ce n'est pas la meilleure façon de commencer... Mais c'est à toi de voir.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#3
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2008 14h13
Merci de me préciser que c'est une UserForm je suis déjà avancé. J'ai dégà commancer ce que je voulais mais j'ai encore quelque question:

1) Comment avez-vous fait pour faire disparaitre la barre et le bouton fermer en haut de l'UserForm ?

2) Pour insérer le coef en-dessous qui est de la note j'aurais besoin d'un code, le code précédent (qui m'a été utile) contenait le numero de la colone alors que là elle est assez variable.

En fait je n'est pas tout compris dans mDF Calendrier (c'est normal vous êtes un pro).

C'est tout pour le moment et merci pour votre écoute.
Edité par PowerPlus le 03/01/2008 14:52:51

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 03-01-2008 14h57
Re,

Oui, il s'agit à l'origine d'un Userform classique.
[list=1]
[*]Pour masquer la barre de titre du Userform, j'ai utilisé l'API Windows. L'utilisation des bibliothèques de fonction Windows (DLL) nécessite d'abord une bonne maîtrise de VBA au minimum et garde un côté apprenti sorcier que je te déconseille fortement. Tu risques de te confronter à des plantages qui ne pardonnent pas.
N'étant d'ailleurs pas spécialiste en la matière, je me garderai bien de répondre aux questions portant sur ce sujet trop sensible à mon goût...
Pour info, tu trouveras les fonctions API utilisées dans la version mDF Calendrier 3.0 que je t'ai adressée par mail.

[*]Je n'ai pas compris ce que tu expliques au sujet du coef que tu dois insérer au dessous de la note... Je pense qu'il serait préférable que tu prépares un petit exemple simplifié du problème et que tu le postes avec un nouveau sujet détaillé dans le forum Espace Débutants.
[/list]

Cordialement,
Edité par myDearFriend! le 03/01/2008 15:14:06

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#5
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 04-01-2008 17h09
Re,
Pouvez-vous quan même me donner le nom de la macro et son emplacement pour enlever le bouton quitter. SVP


A+

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 04-01-2008 22h38
Bonsoir PowerPlus,

Si tu relis ce que j'ai mis plus haut, à savoir...
Citation :

myDearFriend! a écrit:

[list=1]
[*]Pour masquer la barre de titre du Userform, j'ai utilisé l'API Windows. L'utilisation des bibliothèques de fonction Windows (DLL) nécessite d'abord une bonne maîtrise de VBA au minimum et garde un côté apprenti sorcier que je te déconseille fortement. Tu risques de te confronter à des plantages qui ne pardonnent pas.
N'étant d'ailleurs pas spécialiste en la matière, je me garderai bien de répondre aux questions portant sur ce sujet trop sensible à mon goût...
Pour info, tu trouveras les fonctions API utilisées dans la version mDF Calendrier 3.0 que je t'ai adressée par mail.
[/list]
... Tu comprendras aisément que je ne répondrai pas à ta question.

D'autant que je ne vais pas commenter ici le code que je n'ai pas souhaité mettre en accès-téléchargement sur ce site.

Cela dit, si tu veux absolument te lancer dans ce genre de développement (à tes risques et périls), tu trouveras tout ce dont tu devrais avoir besoin sur la FAQ MS-Excel sur Developpez.com par exemple.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#7
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 05-01-2008 08h23
Bonjour,

Merci, j'ai trouver mieux car de faire disparaître la barre (trop compliquer) j'ai empêcher la fermeture.

A bientôt.

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#8
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 05-01-2008 12h34
Bonjour PowerPlus, le Forum,

Oui PowerPlus, je pense qu'il faut savoir rester raisonnable et je t'en félicite.

Pour empêcher simplement la fermeture du Userform par la croix, on peut effectivement se contenter de :
Private Sub UserForm_QueryClose(Cancel As IntegerCloseMode As Integer)
    If 
CloseMode 0 Then Cancel 1
End Sub


Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#9
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 05-01-2008 12h40
J'ai pris ce code là. Un peu plus "jolie". En fait si je voulais empêcher la fermeture c'est seulement parce que si on tape un commentaire on peut voir un aperçu dans la barre d'état et si on ferme le message reste.

'-- Dans la partie Déclaration de la Form :
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&

Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
        
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


'
-- Dans l'évènement Initialise de la Form :
Private Sub UserForm_Initialize()
Dim hSysMenu As Long
Dim MeHwnd As Long
    MeHwnd = FindWindowA(vbNullString, Me.Caption)
    If MeHwnd > 0 Then
        hSysMenu = GetSystemMenu(MeHwnd, False)
        RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
    Else
        MsgBox "Handle de " & Me.Caption & " Introuvable", vbCritical
    End If
End Sub


Merci quand même. A bientôt.

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: mDF XLCalendar
#10
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 05-01-2008 15h36
J'ai trouvé aussi un code tous bête mais pas mal pour réinitialiser la barre d'état:
Private Sub UserForm_QueryClose(Cancel As IntegerCloseMode As Integer)
       
barreEtatEnregistrée Application.DisplayStatusBar
Application
.DisplayStatusBar True
Application
.StatusBar t
    Application
.StatusBar False
Application
.DisplayStatusBar barreEtatEnregistrée
End Sub
Edité par PowerPlus le 06/01/2008 19:59:03

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes