Création d'une feuille de rapport

[lolo57]

Bonjour

j'ai essayer de faire quelque chose que j'ai trouver sur ce forum ,mais je bloque maintenant
quelqu'un pourrais m'affecter les macros

Merci

 

[Fred0o]

Re : Création d'une feuille de rapport

Bonjour lolo57,

Quel est ton problème ?

Quelles macros faut-il affecter à quoi ?

A+

 

[lolo57]

Re : Création d'une feuille de rapport

bonjour

avec ma boite de dialogue ,je ne connais absolument rien de cela

 

[Fred0o]

Re : Création d'une feuille de rapport

Re-bonsoir,

Cela ne m'aide pas beaucoup. Si tu nous disais exactement ce que tu veux faire avec tes boites de dialogue ?

A+

 

[lolo57]

Re : Création d'une feuille de rapport

quand je prend ma boite de dialogue et que je sectionne "date,Nombre de personne présent,secteur,nombre de d'heures effectuer et les travaux fait par secteur " qu'il ce range en archive ou si sa ne va pas dans une feuille que chaque jour c une feuille différente .
et si un jour ont me demande de sortir un rapport antérieur que je puisse je le rechercher et l'imprimer
Dans le fichier joint il y a un exemple que je fais le style de rapport journalier

Merci

 

[Fred0o]

Re : Création d'une feuille de rapport

Bonjour lolo57,

Allons-y étape par étape.

En premier lieu, dans ce classeur, j'ai fait l'initialisation de l'USF à partir des données de la feuille "Data".
Ensuite, j'ai fait en sorte que lorsque l'on appuie sur le bouton "Sauvegarde", on enregistre les données de l'USF dans une feuille "Archive" que j'ai créée.

Cela correspond il à ton besoin ?

J'aimerais bien que tu prennes le temps de comprendre comment cela fonctionne et que tu fasses des essais avant de passer à l'étape suivante car je ne souhaite pas faire le travail à ta place mais plutôt t'aider à devenir autonome.

NB : pour initialiser les combobox, j'ai créé des plages nommées auxquelles je fais référence dans la macro. Par exemple Range("Années") fait référence à la plage nommée "Année" qui correspond à "=Data!$I$6:$I$22".

A+

 

[lolo57]

Re : Création d'une feuille de rapport

Hello

vraiment magnifique
je voulais faire des essais comme tu me le demande mais c ce message

 

[Fred0o]

Re : Création d'une feuille de rapport

Bonsoir lolo57,

Si tu veux que je continue à t'aider, il va fallior y mettre un peu du tien.

Ce message d'erreur s'affiche quand ?
Quand tu cliques sur Débogage Quelle ligne est en surbrillance ?
Quelles sont les données que tu as saisi dans ta boite de dialogue ?

A+

 

[lolo57]

Re : Création d'une feuille de rapport

je suis désoler mais je suis novice

Private Sub ComboBox6_Change()
Dim i
Select Case ComboBox6.Value
Case 1, 3, 5, 7, 8, 10, 12
For i = ComboBox8.ListCount + 1 To 31
ComboBox8.AddItem i
Next
Case 4, 6, 9, 11
ComboBox6.RemoveItem 30
Case 2
ComboBox8.RemoveItem 30
ComboBox8.RemoveItem 29
If CStr(ComboBox5.Value) Mod 4 <> 0 Then ComboBox8.RemoveItem 28
End Select

le message apparais quand je veux rentrer la date que ce sois le jour ,le mois ou l'année

 

[Fred0o]

Re : Création d'une feuille de rapport

Re-bonsoir,

Bon, il va te falloir être extrêmement précis dans tes demandes et tes explications, sinon on ne va pas y arriver.
Par exemple, je t'ai demandé :

Ce message d'erreur s'affiche quand ?
Quand tu cliques sur Débogage Quelle ligne est en surbrillance ?
Quelles sont les données que tu as saisi dans ta boite de dialogue ?

Et tu n'as répondu qu'à la deuxième question !
Je te remercierais à l'avenir de répondre à TOUTES les questions que je vais te poser.

J'ai cependant trouvé où était l'erreur.

Il te faute remplacer ceci :

ComboBox6.RemoveItem 30

par cela :

ComboBox8.RemoveItem 30

A+

 

[lolo57]

Re : Création d'une feuille de rapport

ok je vais être le plus précis possible
maintenant il me l'erreur la
quand je rempli la boite de dialogue et au moment quand je veux sauvegarder

Private Sub CommandButton1_Click()
Dim Dat, Lig
Lig = Sheets("Archive").Range("A65536").End(xlUp).Row + 1
Me.Hide
Dat = DateSerial(ComboBox5.Value, ComboBox6.Value, ComboBox8.Value)
With Sheets("Archive")
.Cells(Lig, 1) = Dat
.Cells(Lig, 2) = ComboBox13.Value
.Cells(Lig, 3) = ComboBox10.Value
.Cells(Lig, 4) = ComboBox19.Value
.Cells(Lig, 5) = ComboBox18.Value
.Cells(Lig, 6) = TextBox6.Value
End With
End Sub

 

[Fred0o]

Re : Création d'une feuille de rapport

Re-bonsoir,

ok je vais être le plus précis possible

En parlant d'être précis, t'aurais pas oublié de me dire ce que tu as mis comme valeur dans chacune de tes ComboBox ?

Merci de me donner cette information pour te déboguer.

A+

 

[lolo57]

Re : Création d'une feuille de rapport

les valeurs que je mets dans la boite en image ,et au moment que je sauvegarder j'ai le message d'erreur

 

[Fred0o]

Re : Création d'une feuille de rapport

Re-bonsoir,

Je comprends. Comme tu as 2 Combobox à droite du libellé "Jour", j'ai considéré que c'était le plus à droite qui devait contenir le n° du jour. Comme toi tu as renseigné le ComboBox de gauche, mon code ne fonctionne pas.

Essaie en remplissant le ComboBox de droite et dis moi si ça marche. nsuite, dis-moi ce pourquoi tu as 2 ComboBox à droite de "Jour".

A+

 

[lolo57]

Re : Création d'une feuille de rapport

oui tu a raison
si je rempli l'autre Combobox celle de droite sa marche l'autre ont peut l'enlever elle sers a rien

par contre
comment sa ce passe pour chaque jour le rapport rempli ,il me créer une archive différente ou elle se mets en dessous de l'archive excitante
A savoir que je dois imprimer le rapport de la journée concerner
ou alors quand je fais une recherche d'une date antérieur qu'il me présente sa une feuille a par