Forums XLPages

Tous les messages (wjmavsk)

« 1 2 3
Re: mDFXLCalander dans textbox
#21
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 17-03-2013 09h27
Bonjour,

merci pour le commentaire.
cordialement,

Cordialement,
JMV
Hors Ligne
Rapport   Haut 

Re: MdF XL Calendar
#22
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 17-03-2013 00h05
Option Explicit

Private Sub frmCalendar_Click()
' Met la date sélectionnée dans la cellule active
   ActiveCell.Value = frmCalendar.Value
' Masque le calendrier
    frmCalendar.Hide
End Sub

'Gère le calendrier sur feuille Saisie

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    If Target.Column = 11 And Target.Row >= 7 Or Target.Column = 12 And Target.Row >= 7 Or Target.Column = 14 And Target.Row >= 7 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' Place le calendrier à côté de la cellule
     
        'frmCalendar.Top = ActiveCell.Top
        frmCalendar.Top = 350
        frmCalendar.Left = ActiveCell.Left + ActiveCell.Width + 20
' Affiche le calendrier
        frmCalendar.Show
           
    Else
' Sinon, on masque le calendrier
        'frmCalendar.Hide
        Unload frmCalendar
   
    End If
   
    If IsDate(ActiveCell.Value) Then
        frmCalendar.MonthView1.Value = ActiveCell.Value
    Else
        frmCalendar.MonthView1.Value = Cells(2, 1).Value
    End If

End Sub


 
Bonsoir,
je suis tout à fait d'accord avec votre position, mais quand on est bloqué, il est parfois utile de trouver une solution palliative.
Comme je n'arrive pas à trover ce qui se passe, j'ai redéveloppé un calendrier moins élaboré qui fonctionne dans mon application.
Par contre, il me reste un problème à régler: Positionner correctement le calendrier à coté de la cellule sélectionnée. coin haut cellule droit / coin haut calendrier gauche.
Ce calendrier est utilisé dans un tableau qui comporte près de 2000 lignes et je le fais apparaitre pour 3 des colonnes de ce tableau.
J'arrive à le positionner correctement dans l'axe des X, fonction de la colonne. Par contre, ma formule ne fonctionne pas dans l'axe des Y. Le calendrier sort de l'écran lorsque le numéro de lignes est supérieur à 125 (de mémoire).
Pour le moment, j'ai pris une position fixe en Y. Par contre j'aimerais bien trouver une solution.
J'ai joint le code utilisé pour le positionnement . La commande de positionnement en Y qui ne fonctionne pas est mise en commentaire et remplacée par une position fixe à 350.
Avez vous une idée du code qui permettrait de positionner le calendrier et l'aligner sur le haut de la cellule?
Merci par avance,
Cordialement,
JMV
Hors Ligne
Rapport   Haut 

mDFXLCalander dans textbox
#23
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 01-03-2013 12h02
Bonjour,
j'ai installé mDFXLCalender et je l'utilise dans une feuille de calcul. Je cherche à l'utiliser dans une boite de texte.

Dans la FAQ, il y a une macro qui permet de l'utiliser dans une TextBox. Lorsque je fais l'essai avec le fichier d'exemple fourni, cela fonctionne.
Par contre, lorsque j'essaie de le faire fonctionner dans mon application, j'obtiens un message d'erreur:

            Erreur de Compilation
            sub ou Function non définie

Comment faire pour définir la fonction mDFXLcalShow dans mon application?

Existe-t-il une fonction mDFXLHide? 

Cordialement,
JMV
Hors Ligne
Rapport   Haut 

MdF XL Calendar
#24
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 01-03-2013 09h44
Bonjour,

j'utilise MdF XL Calendar dans une application Excel 2007 sous XP. Jusqu'à présent, tou fonctionnait correctement. Je viens de modifier l'application pour personnaliser le ruban. Les macros sont maintenant lancées à partir du ruban.
Lorsque je lance une de ces macros, le calendrier apparait à l'écran alors que je ne suis pas sur un champ date et que la case auto est décochée.
Ensuite, je n'arrive plus à le faire disparaitre. Il reste affiché quelque soit l'onglet choisi jusqu'à ce que je ferme l'application.

A défaut de trouver pourquoi et comment le calendrier s'affiche sans préavis, pouvez-vous m'indiquer une ligne de commande que je peux rajouter dans ma macro pour faire disparaitre de l'écran le calendrier après execution de cette macro.

Merci par avance,
Cordialement,
JMV


Cordialement,
JMV
Hors Ligne
Rapport   Haut 

Re: Samouraï & Sudoku par Itération (téléchargement)
#25
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 26-02-2013 10h34
Bonjour,

je suis sur XP et j'utilise Excel 2007.
J'ai paramétré Excel pour autoriser le calcul par itération et j'ai sélectionné "calcul manuel".
Quand je lance le programme Samourai & sudoku, Excel plante systématiquement et j'obtiens le message:
"Excel a rencontré une erreur et doit fermer",
Ensuite, Excel tente de récupérer les données et me renvoie un  autre message d'erreur lorsque j'essaie d'ouvrir le fichier récupéré:
" Format de fichier non valide"
Il semble qu'il y a une incompatibilité entre le paramétrage d'Excel et le logiciel.
Avez-vous une suggestion pour résoudre ce problème.

Merci par avance,
cordialement,
JMV
Hors Ligne
Rapport   Haut 

Re: Initialisation d'un formulaire à partir des données d'une table
#26
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 12-01-2013 22h50
En déclarant la variable ln public, le code fonctionne correctement!
le sujet est clos.
JM
Hors Ligne
Rapport   Haut 

Initialisation d'un formulaire à partir des données d'une table
#27
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 12-01-2013 16h05

Bonjour,

Je souhaite utiliser un formulaire pour mettre à jour des données dans une table Excel.
Je sélectionne une ligne de cette table et lance une macro qui ouvre un formulaire contenant des champs texte correspondant aux champs de la table.
Je n'arrive pas à récupérer dans le formulaire, les données de la ligne sélectionnée dans le tableur.

Voici le code que j'utilise pour initialiser l'affichage du formulaire:

Private Sub UserForm_Initialize()

    Set ws = Worksheets("Saisie")
 
' Positionne le formulaire
        Me.StartUpPosition = 0
        Me.Top = 0
        Me.Left = 150
' Recopie données de la ligne dans formulaire
Range("A" & Ln).Activate
Me.TxtExer.Value = ws.Cells(Ln, 1).Value
Me.TxtEtat.Value = ws.Cells(Ln, 5).Value
Me.TxtNom.Value = ws.Cells(Ln, 8).Value
Me.TxtFact.Value = ws.Cells(Ln, 9).Value
Me.TxtNat.Value = ws.Cells(Ln, 10).Value
Me.TxtDFTx.Value = ws.Cells(Ln, 11).Value
Me.TxtTTC.Value = ws.Cells(Ln, 12).Value

End Sub


Quelqu'un peut-il m'indiquer le code VBA qui permet d'extraire les données d'une ligne vers un formulaire?


Merci par avance,

JM

Cordialement,
JMV
Hors Ligne
Rapport   Haut 

Mdf XLcalendar
#28
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 05-01-2013 19h39

Bonjour,
Avec MdfXLCalendar, quel code puis-je utiliser pour positionner le calendrier systématiquement sur le coté droit de la cellule sélectionnée avec le curseur?

Merci par avance pour votre aide.

Auparavant, j'utilisais un calendrier trouvé dans les compléments Excel VBA.
Pour afficher, masquer et positionner ce calendrier, j'utilisais en VBA le code suivant:

Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
    ActiveCell.Value = Calendar1.Value
' Masque le calendrier
    Calendar1.Visible = False

End Sub

Private Sub Calendar1_LostFocus()
    Calendar1.Visible = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 11 And Target.Row >= 7 Or Target.Column = 12 And Target.Row >= 7 Or Target.Column = 16 And Target.Row >= 7 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
        Calendar1.Visible = True
' Place le calendrier à côté de la cellule
        Calendar1.Top = ActiveCell.Top
        Calendar1.Left = ActiveCell.Left + ActiveCell.Width
    Else
' Sinon, on masque le calendrier
        Calendar1.Visible = False
    End If
   
End Sub

Hors Ligne
Rapport   Haut 

« 1 2 3