Re: Adapter le mDF_Calendar
#21
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 : 21-05-2008 22h08
Ok, merci pour avoir rectifier les fichiers et liens.

Autant pour moi, l'essai je l'avais bien fait dans mon post précédent, mais je l'avais fait sur XL2003, j'avais complètement zappé (et non zippé ) que tu parlais d' XL97 plus haut...

Je pense qu'il faut que tu apprennes à débugger un code Hadidman. Dans ta procédure, tu avais inclus un "On Error Resume Next", pourquoi ? Ben, parce qu'il y avait une erreur si tu l'enlevais... Ben voilà, c'est pas plus compliqué que ça ! Plutôt que de "colmater" la faille avec une gestion d'erreur, il est toujours préférable d'essayer déjà de voir pourquoi il y a erreur. Ca t'éviterait notamment de connaitre la situation dans laquelle tu te trouves maintenant, avec un code qui semble marcher, mais qui ne marche pas vraiment... Les gestionnaires d'erreur, c'est très utile, mais ça ne s'utilise pas à tout va comme ça..

Bon, si j'enlève le "On Error Resume Next", j'obtiens une erreur :
Elle s'arrête sur la ligne : "If D = Range("B" & i) Then" et elle dit : "Type incompatible"

Ca signifie quoi ? Ca signifie simplement que tu es en train de comparer des valeurs qui ne sont pas du même type. Dans le cas présent, dès le premier tour de ta boucle, tu vas comparer la variable D de type DATE avec une valeur "TECHNICIEN" de type STRING. Et ça, VBA, il ne supporte pas ! Ta boucle passe par des cellules qui ne contiennent pas de date, et c'est là le problème.

Pour y remédier, d'abord on commence la boucle à la ligne 7 (première date dans tes pages), puis on va parcourir les lignes du tableau en redescendant : ligne 7, ligne 14, ligne 21, etc... Il nous faut redescendre par pas de 7 jusqu'à la ligne 217 maximum.

Ta boucle devrait donc ressembler à ça :
For 7 To 217 Step 7
        
If Range("B" iThen
            Range
("B" i).Select
        End 
If
    
Next i

Maintenant, tu peux supprimer ton "On Error Resume Next" qui camoufle les problèmes, mais ne les règle pas et empêche même de les cerner.

Par ailleurs, un autre truc (et ce sera le dernier) :
Tu peux facilement optimiser la partie de code suivante :
Select Case mDFcalendrier.lblMois
        
Case "janvier"
            
Worksheets("JAN").Activate
        
Case "février"
            
Worksheets("FEV").Activate
        
Case "mars"
            
...

Tes feuilles Mois se suivent. Tu peux ainsi en profiter et te servir de l'index des feuilles plutot que de leur nom : Sheets(1) c'est JAN, Sheets(2) c'est FEV, Sheets(3) c'est MAR, etc...
A la place de tout ce Select Case et instructions Activate redondantes, tu peux faire simplement comme ça :
Sheets(Month(D)).Activate
D contient ta date, Month(D) contient le numéro du mois correspondant et Sheets(Month(D)).Activate activera donc la Nième feuille du classeur pour le mois N.

Ta procédure complète peut donc devenir :
Private Sub lblJGroup_Click()
Dim D As Date
Dim i 
As Byte
    D 
DateValue(lblJGroup.Caption " " mDFcalendrier.lblMois " " mDFcalendrier.lblAn)
    
Sheets(Month(D)).Activate
    
For 7 To 217 Step 1
        
If Range("B" iThen
            Range
("B" i).Select
        End 
If
    
Next i
End Sub


Voilà, je te laisse solder définitivement ce fil de discussions. Tu es évidemment toujours bienvenu et tu peux créer d'autres sujets si tu as besoin d'aide VBA ou Excel, mais celui-ci, pour moi, il est clos.

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: Adapter le mDF_Calendar
#22
Débutant XLPages

Inscription: 13/05/2008

Messages: 14

Posté le : 21-05-2008 22h41
Encore une fois un énorme merci pour tout ce que vous m'avez apporté !! Aussi bien au niveau de l'adaptation de votre magnifique outil, que des connaissances que vous m'avez offerte en matière de programmation VB sur Excel, si je peux faire quelque chose pour vous, je suis là (je suis webdesigner et je créer des sites, si cela vous intéresse pour un quelconque projet...)

Pour ce qui est de la gestion d'erreur, je ne sais absolument pas pourquoi cette ligne de code était présente, d'ailleurs je pensais qu'elle était dans votre programme de base parce que je n'utilise jamais de
On Error GoTo Next
mais plutôt
On Error GoTo Suite
avec un peu plus loin dans mon code un
Suite:

En tout cas grâce à vous je vais pouvoir aller vérifier toutes mes lignes de gestion d'erreur et maitriser bien mieux ce procédé.

Et je n'avais donc pas pu voir qu'une erreur était à ce niveau là, même si je savais que l'erreur venait évidemment de mon bout de code , et c'est vrai que j'avais appris l'an dernier qu'on ne compare pas deux types différents, mais je n'ai pas du tout réalisé qu'il comparait du caractère car pour moi il y avait des dates dans les cellules B(multiple de 7)... d'habitude j'utilise l'exécution en pas à pas pour voir où est le problème mais là... j'ai callé... heureusement que le mécano est venu réparé ça
Ps : Pas mal la blague zappé-zippé

Vachement intelligent le coup du
Sheets(1).Activate

et d'avoir fait la relation avec les numéros de mois, je ne gère encore pas bien du tout les dates sous Excel et VB...


Merci encore, je ne manquerais pas de faire parler de vous et vos utilitaires et votre gentillesse, patience, amabilité.

En tout cas j'espère ne pas avoir pris trop de votre temps et vous remercie grandement pour votre participation active à mon projet, vraiment merci beaucoup :warning:
Hors Ligne
Rapport   Haut 

Re: Adapter le mDF_Calendar
#23
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 : 21-05-2008 22h54
Si je n'ai pas beaucoup de temps en ce moment, c'est justement car je suis en train de refondre complètement le présent site en local (mise à jour du noyau du CMS, nouveaux modules, nouvelles fonctionnalités, nouveau look, ... )
Je suppose que je souffre autant pour ce boulot particulier que toi avec VBA , mais je reste persuadé que tous les deux, on y arrivera

En tant que Webdesigner, si tu as des liens intéressants, des tuyaux, des tutoriels, je suis preneur !

Cordialement,

Nb: je solde le présent sujet [résolu].

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: Adapter le mDF_Calendar
#24
Débutant XLPages

Inscription: 13/05/2008

Messages: 14

Posté le : 21-05-2008 23h22
Alors, si vous voulez des liens intéressants pour vous aider dans la création/gestion de votre site Internet :

Le SiteDuZero :
Je suppose que vous connaissez ce site, cours supra complet sur les langages XHTML/CSS et PHP/MYSQL ainsi que Javascript (Nouveau), ce ne sont pas de simple cours avec des tonnes de pages, mais plutôt des cours "intéractif" avec un QCM à chaque fin de chapitre, et surtout le plus important de ce site, un forum très très actif et convivial qui répondra en un rien de temps à toutes vos questions !

Tcheval :
C'est un forum qui réalise vos demandes graphiques, c'est à dire que vous pouvez poster n'importe quelle demande (boutons, header, avatar, signature, webdesign entier (ce qu'ils font le plus), bannières...) avec des personnes qui font ça depuis plusieurs années maintenant, leur travail est donc vraiment pas mal, et en plus c'est gratuit :D (il demande juste un lien vers leur site)

Decoupe-fr :
Même système que Tcheval, seulement eux se chargent de la découpe complète du webdesign crée par Tcheval (il le code en XHTML/CSS aux normes du W3C) et vous aident aussi pour tous vos problèmes de codage XHTML/CSS et PHP/MYSQL.
Il possède également ce qu'ils appelent : Le Livre du Référencement qui est un sous forum où il y a énormément de topic très intéressant sur le réferencement Google et autres.

Alsacrations :
Qui est un site avec pas mal de tutoriels pour réaliser pleins de choses avec votre CSS, mais vous renseigne aussi sur le référencement et possède un forum.


C'est à peu près tout... si jamais vous cherchez quelque chose, pour savoir comment on fait tel ou tel chose, je pourrais vous aider sans problème ou bien vous renvoyer vers d'autres sites/forums que j'ai surement oublié de vous mentionner dans ce post.

Bonne chance à vous et n'hésitez pas à soliciter mon aide !

Cordialement,
Hors Ligne
Rapport   Haut 

Re: Adapter le mDF_Calendar
#25
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 : 22-05-2008 00h08
Eh bien, merci beaucoup Hadidman,

Je vais visiter tout ça !
En fait je ne connaissais que Alsacréations. Je suis plus que débutant sur le sujet, j'en suis au bricolage et au system D pour l'instant. Y'a du boulot en perspective...

J'apprécie ton partage en tout cas, merci bien !

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 


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