Forums XLPages

Tous les messages (lannou)

« 1 2 3 4 »
Calcul nombre de jours samedi,dimanche et jours fériés entre deux dates
#11
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 18-08-2008 16h14
Bonjour tout le monde!Je cherche à obtenir le nombre de jours (samedi,dimache et jours fériés) entre deux dates.Savez vous si il existe une fonction prédéfinie dans excel retournant ce nombre de jours. Si non, quelqu'un aurait il une idée pour les calculer par vba? Parceque là, je ne vois pas trop comment faire...Merci pour votre aide!!!++Lannou
Hors Ligne
Rapport   Haut 

Re: Questions userform
#12
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 31-07-2008 17h54
Bonsoir tout le monde!Ok ---> je sors!!!En fait, comme je pensais que ca venait du "unload me" je ne me suis pas préoccupé de la phrase que j'avais rédigée au tout début de ma macro, du coup je ne suis pas revenu dessus...Désolé!Ok si j'ai une autre question je créerai un nouveau sujet!Merci!++
Hors Ligne
Rapport   Haut 

Re: Questions userform
#13
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 30-07-2008 17h47

Bonjour à tous!

Merci de t’intéresser à ma question ! Dans mes précédents posts, je ne voulais pas mettre la totalité du code car il est long et pas très propre…(il y a sûrement plus simple et toutes mes variables ne sont pas définies correctement même si j'ai faits un effort depuis ton conseil de les déclarer en DIM XXX AS XXX). Et oui c’est ca les débutants en vba…Toutefois, vous verrez que moi qui ne savait rien faire, j’ai plutôt pas mal progressé grâce à vos conseils !

En fait je suis en stage de fin d’étude et j’aimerai créer un planning automatique…. Tu trouveras donc le fichier qui est, comme tu me l’as demandé, épuré (pour aller au cœur de mes deux questions). 

La macro tourne bien mais mes questions sont :

-          pourquoi les données ne se chargent pas directement dans la feuille à chaque fois que j’appuie sur le bouton suivant ? (en effet, elles se chargent toute en même temps lorsque j’appuie sur le bouton annuler).

-          quand j’appuie sur le bouton suivant et que je veux pour « x » raison déplacer la fenêtre, une autre fenêtre apparaît en dessous (celle de la saisie précédente). Y’a-t-il moyen d’empêcher ce phénomène ?

 

Merci à vous et ne m’en tenez pas trop rigueur  pour mon code !

 

++
Pièce jointe:
zip Ouil planning.zip   [ Taille: 39.92 Ko - Téléchargements: 640 ]
Hors Ligne
Rapport   Haut 

Re: Questions userform
#14
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-07-2008 18h14

Bonsoir le forum! Bonsoir Didier!

Merci pour ta réponse Didier! Bien entendu, j'avais fait la première solution que tu m'as proposée. Mais comme tu le saits, ca ne marchais pas car mes combobox ne se chargeais pas la deuxième fois. J'ai donc reposter sur le forum pour savoir s’il y avait une astuce et apparemment, il n’y en a pas puisque tu m'as proposé ce à quoi je me doutais.

J'ai donc cherché dans ma macro du bouton "suivant". Dans cette macro, je change plusieurs fois d'onglet et je me suis aperçu qu'à la fin de ma macro j'étais sur un autre onglet qui n’était pas celui sur lequel ma userform s'initialisais. J'ai donc tout simplement rajouté dans "Private sub userform_initialise()" et "Private sub combobox1_change()" une ligne "Sheets("feuil1").select" pour qu'elle se réinitialise bien sur le bon onglet...

A partir de là, le tour était joué... et ca à marché! Lorsque je ré appuie sur le bouton suivant mes textbox sont vierges et mes combobox chargées! Hourra!
Option Explicit

Private Sub UserForm_Initialize()
' On actualise la liste de choix des n? de phase avec ceux qui ont d? ? rentr?:
Dim Cell As Range
Dim NoDupes As New Collection
Dim Item As Variant
    Sheets("feuil1").select
    On Error Resume Next
    For Each Cell In Sheets("Feuil1").Range("A9:A2000")
        NoDupes.Add Cell.Value, CStr(Cell.Value)
    Next Cell
    On Error GoTo 0
    ' On ajoute les ?ments non dupliqu?dans la zone de liste de ComboBox3 :
    For Each Item In NoDupes
        ComboBox3.AddItem Item
    Next Item
End Sub

Par contre, j'ai remarqué que les valeurs saisies par l’utilisateur ne se rentrent pas dans la feuille au fur et à mesure qu’il appuie sur le bouton « suivant » mais se chargent dans la feuille à la toute fin s’il appuie sur le bouton annuler pour arrêter de rentrer des valeurs.

Bien entendu, à la fin de ma macro j’ai marqué le code de la première solution (à savoir« unload me » puis « userform1.show »)  tandis que mon bouton « annuler » à juste pour code « unload me » .

Sauriez vous pourquoi ?

Merci à vous!

++

Lannou
Hors Ligne
Rapport   Haut 

Re: Questions userform
#15
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-07-2008 18h32

Bonjour le forum!

Merci pour ton conseil, je vais tâcher de le suivre.

J'ai une autre question concernant ma userform. J'ai remplacé le bouton "valider" dont nous avons parlé pluh haut dans ce topic par un bouton suivant dont le but est:
- que la userform décharge les données que l'utilisateur a rentré
- ensuite, qu'elle se réaffiche vierge pour que l'utilisateur saisisse de nouvelles données.

J'ai donc pensé plusieurs solutions comme par exemple mettre à la toute fin de ma macro après le "unload me" userform.show pour qu'elle se réaffiche comme la première fois.

Le problème c’est que aucune de mes solutions ne convient puisque soit quand ma userform se réaffiche, les données précedemment saisie restent, soit mes combobox ne se chargent plus.

 

Avez-vous une idée ?

 

Merci d’avance
Hors Ligne
Rapport   Haut 

Re: Questions userform
#16
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 21-07-2008 13h30
Bonjour à tous!

Bon ba finalement je n'ai plus de question sur le sujet car j'ai résolu mon dernier problème par moi-même.

Je met donc le sujet en "résolu" en vous remerciant pour votre aide et vos conseils

Si, une petite question. Dans la programmation en vba, vaut il mieux faire plusieurs  macros indépendantes que l'on fait intervenir par la fonction "call" ou vaut il mieux faire le minimum de macro?

Merci à vous

++

Hors Ligne
Rapport   Haut 

Re: Questions userform
#17
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-07-2008 14h55
Bonjour le forum!

Bon j'ai trouvé la réponse à ma question, à savoir, pourquoi ca ne marche pas!

En fait j'avais placer le code pour charger la combobox dans la macro du bouton "valider" de ma userform et non dans la macro Userform_Initialize!!! C'est pour ca que ca ne marchait pas, je suis un boulet... Mais en même temps je ne pouvais pas le savoir mais à force de me poser des questions, je viens de comprendre...

Merci pour ton aide Didier, c'est super sympa de ta part en tout cas de m'avoir aider!

Petit à petit je progresse! N'empèche que c'est incroyable ce que l'on peut faire comme choses utiles avec Excel! Il y a encore quelques semaines j'ignorais tout ca et n'utilisais que le minimum!

Encore merci,


Cordialement,

Lannou

p.S : Je ne met pas le sujet en "résolu" car j'aurai peut être une autre question (je continue de chercher par moi-même et la poserai si je suis bloqué!)


Hors Ligne
Rapport   Haut 

Re: Questions userform
#18
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-07-2008 10h20
Bonjour à tous!

Merci pour ta réponse Didier et pour m'avoir éclairé sur ce code!
En ce qui concerne l'utilisation de la Rowsource, c'est bien ce que je pensais, je vais donc éviter de faire avec et passerai par le code.

J'ai regardé de plus près du fait que tu m'ais dit que ca aurait du marcher.
J'ai fait un pas à pas détaillé et effectivement tout le long de ma macro, la combobox se charge bien sans doublon des valeurs présentes dans ma colonne A. Par contre ces valeurs disparaissent à la toute fin de ma macro quand le pas à pas détaillé dépasse le "Unload Me", si bien que lorsque je réappuie sur le bouton commandant ma macro toutes les valeurs comprises dans ma combobox disparaissent.

En fait soit je mets "unload me" et tout disparait lorsque l'utilisateur veut rentrer de nouvelles données soit je mets "userform1.hide" et là ma combobox est bien chargé mais j'ai également les valeurs précédemment rentré par l'utilisateur alors que je souhaite quelles soient vides!

Comment faire pour que ma combobox se charge bien mais pour que mes textbox soient vides?

Merci,

Lannou
Hors Ligne
Rapport   Haut 

Re: Questions userform
#19
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 16-07-2008 18h31
Bonsoir tout le monde!

Merciiiiiiiiiiiii!!!!!! C'était exactement ca! J'utilisais bel et bien la fonction Userform1.Hide !
Grâce à toi j'obtiens bien ce que je voulais! Non seulement ca marche mais en plus j'ai  appris un truc  !!!

Ma deuxième question, toujours par rapport à ma userform est comment faire pour actualiser la liste des choix de ma ComboBox!
Je m'explique :  ma permière combobox demande à l'utilisateur de saisir le numéro de phase (chiffre entier)
Après des recherches, je sais que j'ai deux méthodes pour le faire :
1) utiliser les propriétés de la combobox dans rowsource. Le problème c'est que dans la colonne où sont rentré les données j'ai plusieurs fois la même valeur et je ne veux pas que dans la liste il y ait des doublons.
2) Rentrer du code. J'ai donc rentré ce code ci que j'ai trouvé et qui me semble généralisable à mon fichier:


' On actualise la liste de choix des n° de phase avec ceux qui ont déjà été rentrés :
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
On Error Resume Next
 For Each Cell In Range("A9:A2000")
  NoDupes.Add Cell.Value, CStr(Cell.Value)
 Next Cell
On Error GoTo 0
' On ajoute les éléments non dupliqués dans la zone de liste de ComboBox3 :
 For Each Item In NoDupes
  Création_tâche.ComboBox3.AddItem Item
 Next Item

Je comprend pas grand chose au code et ca ne marche pas, sauriez vous pourquoi?

Merci à vous!

P.S : j'ai essayer de rentrer le code grâce à la petite icone d'excel qui le permet mais à chaque fois il me plaçais le code en haut sans que je puisse le déplacer. Savez vous comment faire pour l'intégrer à l'endroit souhaité?


 
Hors Ligne
Rapport   Haut 

Questions userform
#20
Aspirant XLPages

Inscription: 01/07/2008

Messages: 32

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 15-07-2008 18h40
Bonjour le forum!

Je suis en train de créer mon premier userform (et oui il y a un début à tout  ) et de ce fait j'ai quelques questions!

J'ai créé un userform contenant des textboxs et des comboboxs. Un bouton permet d'afficher le userform et de transférer les données rentrées dans une ligne d'une feuille excel.

Ma première question est : quelle ligne de code dois-je rentrer pour que, lorsque je réaffiche la userformles fois d'après, les données précédemment rentrées ne s'affichent pas dans les textbox et combobox?

En clair, quelle code permet de faire un "reset" de la userform sans effecer les données précedemment rentrée et transférées dans les lignes de lafeuille excel?

Merci d'avance à vous!

++

Lannou
Hors Ligne
Rapport   Haut 

« 1 2 3 4 »