fichier joint oublié format date

[phil]

desole il etait tard !!!!

 

[Bebere]

bonjour Phil,le Forum

une solution pour dépanner
toujours le même problème transfert usf vers feuille jour,mois inversé
dans ce fichier,dans mes fichiers pas de problèmes
à+
[file name=SyntheseRet.zip size=42736]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SyntheseRet.zip[/file]

 

[phil]

salut bebere !
mon fichier avance !!
j'ai posté la question sur forum
pas encore trouvé

je voudrais remplacer textbox par ComboBox pour
le champ famille et faire la meme chose avec le champ Poste
de maniere qu'en saisissant les famille et les postes les 2 se remplissent en fonction des saisie.

j'ai rajouter ca ! pour les poste
ai fait un essai en TextBox pour famille et ComboBox pour Poste
et ca ecrit toujours dans les feuil 'Poste' correspondantes et rien dans feuil 'famille'
Private Sub UserForm_Initialize()
Me.Caption = X
TextBox1.Value = Date
ComboBox1.AddItem ('1')
ComboBox1.AddItem ('2')
ComboBox1.AddItem ('3')
ComboBox1.AddItem ('4')
ComboBox1.AddItem ('5')
ComboBox1.AddItem ('6')
ComboBox1.AddItem ('7')
ComboBox1.AddItem ('8')
ComboBox1.AddItem ('9')
ComboBox1.AddItem ('10')
End Sub

Private Sub Valider_Click()

'Choix feuille
If TextBox3.Value = 1 Then Sheets('Famille1').Activate
If TextBox3.Value = 2 Then Sheets('Famille2').Activate
If TextBox3.Value = 3 Then Sheets('Famille3').Activate
If TextBox3.Value = 51 Then Sheets('Famille51').Activate
If TextBox3.Value = 52 Then Sheets('Famille52').Activate
If TextBox3.Value = 61 Then Sheets('Famille61').Activate

If ComboBox1.Value = 1 Then Sheets('Poste1').Activate
If ComboBox1.Value = 2 Then Sheets('Poste2').Activate
If ComboBox1.Value = 3 Then Sheets('Poste3').Activate
If ComboBox1.Value = 4 Then Sheets('Poste4').Activate
If ComboBox1.Value = 5 Then Sheets('Poste5').Activate
If ComboBox1.Value = 6 Then Sheets('Poste6').Activate
If ComboBox1.Value = 7 Then Sheets('Poste7').Activate
If ComboBox1.Value = 8 Then Sheets('Poste8').Activate
If ComboBox1.Value = 9 Then Sheets('Poste9').Activate
If ComboBox1.Value = 10 Then Sheets('Poste10').Activate

If Cells(12, 1).Value = '' Then
Debut = 12
Else: Debut = Range('A11').End(xlDown).Row + 1
End If
d = TextBox1.Value
For C = 1 To Range('A' & Debut & ':AK' & Debut).Columns.Count

Cells(Debut, C).Value = Controls('TextBox' & C).Value
Next C
Range('A' & Debut).Value = d
Range('AL' & Debut).Value = TextBox38.Value
End Sub
[file name=synthese_20050806154921.zip size=35215]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/synthese_20050806154921.zip[/file]

 

[Bebere]

bonjour Phil
lis d'abord les commentaires dans le code
problème n° texbox,chez moi
essaye et dis moi quoi pour la suite
à+ :S [file name=synthese_20050806174256.zip size=28700]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/synthese_20050806174256.zip[/file]

 

[phil]

bsr bebere
je regarde ca ce soir et je te tiens au courant
merci !

 

[bebere]

bonjour Phil
résolu problème textbox et essayer
à+ :huh: [file name=syntheseRet.zip size=28960]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/syntheseRet.zip[/file]

 

[phil]

bsr bebere
je te presente le fruit de notre collaboration !
je te renvoie le fichier completé avec toutes les feuiles et tous les postes il me reste a faire les formules de calcul et les graphique et
ca baigne !!

les selections se passent impeccable pour postes et familles
j'y ai rajouté l'ouverture du usf a l'ouverture du classeur.
Reorganise tab des textbox 37 au lieu 38
la date reste figée a l'effacement (ca evite de l'ecrire a chaque fois)
si la saisie plante.

un truc me gene un peu !!
comment faire pour que la validation des données en cochant a la fois famille et poste s'applique en simultané sur les feuille correspondantes ?

et autre chose lorsque tu valide les champs une boite apparait pour
demander ('ok' famille xx), si cliq ok c'est bon si cliq sur croix pour annuler valide quand meme les données !

De meme lorsque tu valide et que tu n'a rien saisie
une boite 'ok' s'affiche en validant ok va l'inscrire sur une des feuilles active
meme phenomene pour le bouton effacer c'est chiant

le type qui va saisir les données va merder !!!!

bonsoir ou bonjour a bientot bebere
[file name=syntheseBebere.zip size=50735]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/syntheseBebere.zip[/file]

 

[Bebere]

bonjour Phil
j'ai mis une msgbox pour contrôle,un oubli de ma part
tu commentes la ligne avec '
à+

 

[Bebere]

re
voilà la suite
si tu sélectionnes une feuille dans chaque combobox
les données seront écrites dans chacune d'elles
à+ [file name=syntheseBEBERE11.zip size=46715]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/syntheseBEBERE11.zip[/file]

 

[phil]

bounjour bebere !

merci pour la correction c'etait cool jusqu'a ce que ............

j'ai essaye d'apres ce que tu as fait avec combox1 combobox2 de placer combobox3 avec ma liste de 'Parement' mais sans succés
j'ai plutot mis le bordel
Cells(Debut, C).Value = Controls('TextBox' & C).Value erreur!!!!!
help !! svp

pour la date il faut que je la rentre a l'envers et c'est bon
TextBox1.Value = Format(Date, 'mm-dd-yy')

j'ai aussi modifié
varReponse = MsgBox('Effacer données?', vbYesNo, 'Alerte')
If varReponse = vbNo Then

et aussi
ActiveWorkbook.SaveAs Filename:='D:\\synthese\\ ' & Format(Date, 'dd-mm-yy') & '.xls'

mais... ca ne marche plus !!

@+

 

[phil]

fichier

 

[phil]

2 essai

 

[phil]

3 essai
fichier trop lourd
une feuille en moins
effacement des noms

 

[phil]

voila pourquoi !!

09-08-05 [file name=090805.zip size=46939]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/090805.zip[/file]

 

[Bebere]

salut Phil
2 pour le prix d'un hi!hi!hi!
ton sauvetage fonctionne
regarde pour la date, dans ce fichier inversé,dans les miens c'est bon
restaurer une configuration de windows?
à+
:whistle: