optimisation/correction de programme

Bonjour a tous,
je suis entrain de finaliser un programme que je realise pour ma compagnie de plannification du personnel. je l'ai structure au moyen de userform ce qui me complique un peu la vie.
Il n'est pas encore fonctionnel car je n'arrive pas a realiser les choses suivantes:
- l'utilisateur entre des donnees dans un formulaire de saisie (userform1) et ouvre un autre userform qui realise un calcul avec ces donnees (userform2). Je n'arrive pas a partager mes variables entre les deux userforms.
- le programme travaille avec plusieurs feuilles de calcul differentes. J'utilise

Code:

---

worsheets("nom').select

---

pour indiquer dans quelle feuille je veux que le programme travail et ensuite j'utilise cell(a, b) pour designer mes cibles. Mais cela ne marche pas
- je finis sur une broutille, comment forcer un format date dans ue combobox, j'ai essaye avec ca mais ca ne marche pas:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_initialize() 'cbx list Cbxprobability.ColumnHeads = True Cbxprobability.RowSource = "settings!B2:B6" cbxprojectmanager.ColumnHeads = True cbxprojectmanager.RowSource = "settings!D2:D8" 'display today date in the calendar Calendar1.Value = Now 'date format Me.cbxtaskstartdate.NumberFormat = "dd/mm/yyyy" Me.cbxtaskenddate.NumberFormat = "dd/mm/yyyy" End Sub

---

Merci, a tout bientot

Salut
déjà

Code:

---

worsheets("nom").select

---

serai mieux
mais je pense que c'est une erreur de frappe

Sur les dates, un vrai casse tête.
moi, je repasse part une variable string (date_m)
puis avec format je Change la date

Format date américaine

Code:

---

date_m = Format(Calendar1, "yyyy-MM-dd")

---

Puis tu enregistre ta valeur ou tu le souhaite

en effet j'ai fait des fautes de frappes dans ma question mais pas dans le programme:

Code:

---

worksheets("nom").select

---

je vais regarder pour les dates

Tu peux, comme dans la plupart des langages de programmation :

• transmettre des paramètres aux procédures et fonctions
• déclarer des variables dans les formulaires ou les modules ou déclarer des classes éventuellement, avec les modificateurs de portée Pubic, Private, Friend...
• enregistrer les données persistentes dans une feuille de calcul ou tout autre moyen de conserver les informations.

Pour les dates, il me semble que le format par défaut est le format des paramètres linguistiques ; si tu dois remplir une combot avec des dates, tu peux formater les éléments ajoutées avec Format("<expression>", "<format>") (voir l'aide). Enfin pour sélectionner une date facile, il existe le contrôle DateTimePicker qui combine une combobox et un MonthCalendar.

ok
merci vos reponses:king:,

du coup j'ai un autre problem, comment fait on pour selectionner la feuille de calcul sur laquelle l'algorithe travaille, j'ai essaye le code ci-dessous sans succes:

Code:

---

1 2 3 4 5

dim ws as worksheets For Each ws In ThisWorkbook.Worksheets instruction worksheets (ws).cell(1,1).value = 15 Next ws

---

Si tu ne t'es pas trompée en écrivant ton code

Cells prend un "s"

exemple

Code:

---

Worksheets(2).Cells(1, 1).Value = 0

---

:roll:

et dans ton code la déclaration doit être

Code:

---

dim ws as worksheet

---

sans s cette fois
finalement tu n'as pas placé le s ou il faut

mes doigts sont un peu tout fou sur le clavier aujourd'hui, il va falloir que je les dompte une bonne fois pour toute,
mais le code VBA etait juste donc le problem ne venait pas de la (dsl pour cette perte de temps).
j'ai pas bien compris le 2 entre paranthese de ton code

Code:

---

Worksheets(2)

---

Bonjour tlm,

Code:

---

1 2 3 4 5

Dim ws As Worksheet   For Each ws In ThisWorkbook.Worksheets ws.Cells(1, 1).Value = 15 Next ws

---

Concernant le Sheets(2), 2 représente la position de la feuille dans le classeur, 2ème feuille en partant de la gauche

ok merci pour tout,
mon probleme de selection de cellule est resolu.
Par contre malgre le code fourni dans cette disscussion:

Code:

---

date_m = Format(Calendar1, "yyyy-MM-dd")

---

je n'arrive pas a forcer le format date dans mes combobox.

merci pour votre aide

salut
ton problème est sur la modification du format sur la donner récupérer du calendar
ou sur l'insertion de la date dans ton combobox

cbxtaskstartdate ? c'est ton combobox

Ou mes tu la date dans ton combobox

salut,

mon problem c'est de forcer un format date du type "dd/mm/yyyy" dans ma combobox "cbxtaskstartdate". J'utilise un calendrier pour inserer la date.

Ma question porte problème sur la modification du format sur la donner récupérer du calendar.

merci

Si tu enregistre ta valeur dans une cellule Excel et que tu modifie le format
Cela fonctionne ?

http://www.ozgrid.com/VBA/excel-calendar-dates.htm

dans ce lien c'est ce qui ce passe

âpres tu enregistre ta valeur dans ton combobox
mais je doute que de changer directement la valeur dans ton combobox soit possible

Bonjour, je viens de regarder ton format date, j'ai, personnellement une procédure où la date passe par une variable et j'obtiens un format français meme si ça parait bizarre :

Code:

---

datea = Format(date_augmentation.Text, "mm/dd/yyyy")

---

Citation:

---

Envoyé par casefayere

Bonjour, je viens de regarder ton format date, j'ai, personnellement une procédure où la date passe par une variable et j'obtiens un format français meme si ça parait bizarre :

Code:

---

datea = Format(date_augmentation.Text, "mm/dd/yyyy")

---

---

c'est peut être ca !
il me semble que le format mois doivent être en majuscule
vu que c'est entre "

Tu peux déclarer ta variable de date comme suit cela met la date à ton format par défaut:
dim datea as Date
ou
Public datea as Date
si tu te sers de cette variable un peu partout.
Tschuss