Discussion :

[bolloche]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nicolas_151]

Salut
déjà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Puis tu enregistre ta valeur ou tu le souhaite

[bolloche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

worksheets("nom").select

je vais regarder pour les dates

[Laestic]

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.

[bolloche]

ok
merci vos reponses,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nicolas_151]

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

Cells prend un "s"

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et dans ton code la déclaration doit être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim ws as worksheet

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

[bolloche]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(2)

[fring]

Bonjour tlm,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bolloche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

merci pour votre aide

[nicolas_151]

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

[bolloche]

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

[nicolas_151]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nicolas_151]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "

[jolzeviking]

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