VBA chercher date avec cbox dans plusieurs feuilles Résolu/Fermé

Question

Bonjour, 

ça fait déjà plusieurs heures que je regarde mon projet et étant débutante, je ne sais vraiment pas vers quel code me tourner! Vous verrai que j'ai commencé des choses mais à chaque fois je n'étais pas certaine de partir dasn la bonne direction.. Vos conseils seraient grandement appréciés..
-  Voilà je vais essayer d'être clair :
Chaque employé à une feuille à son nom
Chaque semaine les heures travaillées sont calculées, de même que les bonis dans un autre classeur, mon document (copie de salaires 2013) récupère ces infos.
Parfois mes employés veulent mettre des heures en banque ou se font avancer des heures.. ce fichier me sert à tenir un registre de tout ça..

J'ai créer un usf (entrée) ce que je souhaite réaliser est ceci :
à l'ouverture du usf, quand je vais choisir la date de fin de période dans ma combobox, je voudrais que les heures travaillées ainsi que le boni de cette semaine là s'affiche dans mes textbox correspondantes. (elles sont déjà inscrites dans les colonnes H et L)

pour ce faire, je ne sais pas si je dois y aller feuille par feuille..créer un tableau? dans le cas d'un tableau, dois-je en créer plusieurs pour chaque feuille vu que mes données dans les feuilles sont par mois et donc pas en continu.. sinon au départ je pensais qu'une formule type cherche aurait fonctionné mais ça ne marchait pas.. peut-être à cause que ce sont des dates que je cherche? 

Ensuite, une fois que ce sera fait, je veux pouvoir cocher les checkbox en haut des colonnes si je n'ai pas de changement à faire ou peu..(mon code est déjè fait pour ça)..si j'ai trop de changement je les complèterai manuellement... il y a une case en format heure et l'autre en nombre avec 2 décimales..

les Textbox IP et IF, je devrai obligatoirement les entrer à la main chaque fois, de même que les autres..Alors il n'y a pas de code à faire pour ceux là

Ensuite en cliquant sur ok, je veux aller porter les données de certaines textbox dans les feuilles correspondant à chaque employé sur la ligne correpondante à la date de fin de période..
Exemple : les textbox hrspayées dans la colonne I, les boni payés dasn la colonne M
hrsfête dans la colonne G, $fête dasn la colonneK, IF dasn la colonne S et IP dans la colonne T

J'essaie de voue en dire plus que pas assez pour pas faire travailler personne pour rien, dès fois que ça changerait la méthode du premier code..

Je joint mon fichier afin que ce soit plus clair.. j'espère l'avoir été.. 

merci beaucoup à l'avance, votre aide est TRÈS appréciée
Mélanie

https://www.cjoint.com/c/CCkvgVMaizJ



Configuration: Windows 7 / Internet Explorer 9.0

eriiic · Answer

Bonsoir, 

Pas sûr que tu aies fait un bon choix en mettant tous les noms dans le userbox. 
Si demain tu as 3 personnes de plus tu redessines tout et tu rallonges le code partout où ça sera nécessaire ? 
Moi je me créerai une liste dans une feuille Paramètres avec les noms à afficher et les noms des feuilles correspondantes. 
Elle servirait à initialiser une listbox ou une combobox pour choisir dans le formulaire. 

Sinon : 
Dim date1 As Date, c As Range 
date1 = DateValue("19/01/2013") 
Set c = Columns(2).Find(date1, LookIn:=xlValues)
Ensuite si tu veux la colonne M utilises :
Dim shEmp as worksheet 
set shEmp = worksheets("PATC") 
shEmp .cells(c.row,"M") = xxx ' ou var1= shEmp .cells(c.row,"M") 
  
eric 
Jamais tu ne répondras à un mp non sollicité... 
Bon, ça c'est fait.

gbinforme · Answer

Bonjour,

Comme Éric (un petit coucou), je pense  que ton formulaire va te faire galérer.

Tout d'abord tes noms d'objets du formulaire ne sont pas rigoureux (espaces, majuscules,etc) et différents parfois des feuilles.

D'autre part, ton classeur est en 1904 pour les heures négatives mais la recherche avec le formulaire se décale de 4 ans sur les dates.

Tes heures sont tantôt au format heure tantôt au format décimal.

Je t'ai fait un petit bout de code en corrigeant un peu pour te faire voir ce que l'on peut faire mais cela ne va pas être simple avec ce classeur :

https://www.cjoint.com/?3CkxMag0Opg

lanetmel · Answer

Bonjour à vous deux

merci beaucoup de vos réponses.. Désolé de ne pas avoir répondu avant, j'ai eu une grosse journée.. J'avoue que vous avez tous les 2 raisons et je veux suivre vos conseils.. Seulement juste pour me partir j'aurais besoin de quelques infos :

ok pour faire une feuille paramètre.. dans cette feuille je pensais y mettre 3 colonnes
A = le nom d'employé
B = nom de la feuille correspondant au nom de l'employé de la colonne A
C = statut de l'employé : actif ou inactif

C'est dans mon usf que je suis pas certaine.. Si je fais un listbox, je peux pas rajouter mes textbox à emplir manuellement? Dans le genre que j'avais prévu au départ?
si je mets des Cbox..est il possible de les faire s'emplir toute seule en demandant de ne prendre que la liste des employé actifs de la feuille paramètre ?
Ensuite je pourrais mettre que si la cbox >"" les textbox apparaissent..

Aussi je sais pas si c'est moi mais j'ai regardé ton fichier gbinforme et j'ai pas vu les changements.. 

merci encore, votre aide est très appréciée
Mélanie

lanetmel · Answer

Bonjour Gbinforme

Excuse moi, j'ai dû regarder avec mes oreilles! J'ai vraiment regardé pour travailler sur l'option que vous m'avez proposé pour une version long terme mais ça semble trop compliqué pour moi.. je vois pas comment y arriver alors je vais continuer avec mon idée du départ.. Quand je serai meilleure, je le retravaillerai (si jamais ça arrive..je trouve que je ne progresse pas vite..) 

Déjà j'ai regardé attentivement ton code et je n'en comprend que très peu.. J'ai vu que ça fonctionnais :) ... Je suis aller dans mes feuilles et j'ai mis toutes mes cellules en format heure : [h]:mm:ss

par contre quand j'ouvre le usf, les données heures et date s'affiche dans un autre format... J'ai essayé de mettre ce code :

Private Sub UserForm_Initialize()
 Dim c() As Variant, i As Byte
 c = Array("Tbox_hrsRMiguel", "Tbox_hrsRPatC", "Tbox_hrsRDany", "Tbox_hrsRMad")
 For i = LBound(c) To UBound(c)
     With Me.Controls(c(i)).Value = Format(Me.Controls(c(i)), "hh:mm:ss")
      
     End With
 Next i
 End Sub

Bien sûr il vient pas de moi.. je l'ai trouvé sur internet.. c'étais pour mettre une couleur de fond dans certaines textbox d'un usf mais pas toutes.. Alors je l'ai modifié un peu.. (j'ai pas mis le nom de toutes les textbox que je veux mettre tout de suite.. je le complètrerai quand ça fonctionnera) 

As-tu une idée par hasard comment faire pour changer le format? 

encore un énorme merci
Mélanie

gbinforme · Answer

Bonjour,
 
Conformément à ce que tu voulais, je t'ai fait une plage de paramètres, avec les noms des feuilles qui sont affichés par fonction. Il suffit d'y associer le nom d'employé correspondant et son statut.

Le formulaire n'affiche que les employés actifs et leurs heures quand la date est choisie. Cela permet de rajouter ou supprimer des employés sans toucher au formulaire et même de changer les noms des feuilles. ;-)

https://www.cjoint.com/c/CCnwBLYKXW5

J'espère que mon code assez basique ne va pas t'effrayer.
Le format de tes heures n'étant pas homogène le formatage d'affichage est un peu complexe...

Bon test.

lanetmel · Answer

Bonjour Gbinforme,

Ayoye! C'est vraiment bien fait! Avec cette méthode je vais pouvoir tout changer en 3 petites secondes s'il y lieu..
MERCI BEAUCOUP!!!!!

J'ai rapidement regarder ton code.. je vais l'imprimer pour essayer de le comprendre et te reviendrai avec des questions si je comprends pas..

Ensuite il me restera à ajouter un code pour le bouton ok.. Je veux que ça aille porter dans les feuilles correspondantes, aux lignes correspondantes les données entrées manuellement dans les textbox.. Je vais essayer de le faire moi-même et reviendrai sur le forum si cela ne fonctionne pas.. Je pense pas Être capable d'y arriver mais je veux au moins essayer :)

encore merci beaucoup pour te temps que tu m'as consacré c'est très apprécié
Mélanie

lanetmel · Answer

Bonjour Gbinforme

J'ai regardé ton code durant plusieurs heures et je n'y comprend pas grand chose.. Quand j'essaie de continuer et que je regarde le code que tu m'as gentiment donné pour me partir..Je suis dans le désert.. peu importe ou je met 
If .Cells(Lig, 2).Value = choix Then
                    ReDim Preserve ligs(idx)
                    ligs(idx) = Lig
ça me donne une erreur à cause du cells.. et comme je ne comprends pas grand chose a presque l'ensemble du code.. je suis perdue.. 

encore un coup de main? svp
Mélanie

VBA chercher date avec cbox dans plusieurs feuilles

7 réponses

Discussions similaires

Newsletters