Utilisation des macros ??? Si oui, comment faire !!

[boby26]

Salut à tous !

Voiçi mon problème :

Je travaille dans une entreprise de plastique et pour mieux gérer l'atelier,
dont je suis un des chefs d'équipe, je me suis proposé de créer un fichier
pour gérer les ordres de fabrication. Malheureusement, je pense que je me
suis avancé trop vite, car j'ai une petite connaissance des fonctions sous
Exel, ce qui m'a déjà permis de créer quelques petits outils informatiques
fort pratiques, mais je n'ai aucune connaissance des macros. Je parle des
macros car pour mon problème, je pense que la solution est là...

Ce petit outil me servira à faire une liste des O.F. par mois, par machine
et de les imprimer.
Le programme archivera les différents mois, suivant les machines.

Pour le momment, avec le peu que je sais (seulement avec l'emploi des formules), j'en suis au fait que lorsque l'on remplit le formulaire, la ligne s'inscrit sur le tableau correspondant.... Sauf que lorsque je réécris sur le formulaire, les données précédemment inscrites s'effacent et les nouvelles prennent la place !!

Chronologie souhaitée des évenements: (Mon "lamentable" fichier
original est en pièce jointe)

1) l'utilisateur remplit un formulaire, dont 2 cases sont à liste de choix.
2) Il appuie sur un bouton "valider" avec la souris
3) Les données vont à l'endroit où elles sont censées se placer.
4) Un bouton "Effacer" sur le formulaire permettra d'effacer les données du
formulaire pour en rentrer des nouvelles, sans que celles inscrites dans
les tableaux soit effacées.
5) Chaque tableau remplit et se met à jour dès l'entrée de nouvelles
données.
6) Chaque fin de mois à 0:00, le programme n'accepte plus d'entrée et
sauvegarde toutes les entrées du mois sous un fichier du genre
JuilM31.xls ; JuilM95.xls ... consultable et imprimable par sa simple
ouverture sous Exel.

Voilà ! Je suis sûr que quelqu'un est capable de m'aider sur ce problème...

Je me tient à dispo pour de plus amples renseignements..

A bientôt !

Boby26 (Boby26@free.fr)

 

[simon]

de 1 a 5 j ai ca
(merci exceldl )

bon la 6 on peut la faire manuellement si pas tellement de fichier

 

[simon]

Private Sub CommandButton1_Click()
Dim DerLigneEntreprise As Integer
Dim DerLigneApplication As Integer
Dim ListeEntreprise As String
Dim ListeApplication As String

DerLigneApplication = Sheets("application").Range("H65536").End(xlUp).Row
ListeApplication = Sheets("application").Range("H19:H" & DerLigneApplication).Address
Tabelle1.ComboBox1.ListFillRange = "application!" & ListeApplication

DerLigneEntreprise = Sheets("application").Range("A65536").End(xlUp).Row
ListeEntreprise = Sheets("application").Range("A19:A" & DerLigneEntreprise).Address
Tabelle1.ComboBox2.ListFillRange = "application!" & ListeEntreprise

Tabelle1.ComboBox1.ListIndex = -1
Tabelle1.ComboBox2.ListIndex = -1

End Sub

Private Sub CommandButton2_Click()
Dim Erreur As Byte
Dim DerLigneValidation As Integer
DerLigneValidation = Sheets("application").Range("C65536").End(xlUp).Row + 1


With Tabelle1
If .ComboBox1.ListIndex = -1 Then Erreur = 1
If .ComboBox2.ListIndex = -1 Then Erreur = 2
If .ComboBox1.ListIndex = -1 And .ComboBox2.ListIndex = -1 Then Erreur = 3
End With
If Erreur > 0 Then GoTo ErrorHandler

With Sheets("application")
.Range("D" & DerLigneValidation) = ComboBox1
.Range("C" & DerLigneValidation) = ComboBox2
.Range("F" & DerLigneValidation) = ComboBox3
End With

Exit Sub
ErrorHandler:
Select Case Erreur
Case 1: MsgBox "Aucune sélection dans la liste Application"
Case 2: MsgBox "Aucune sélection dans la liste Entreprise"
Case 3: MsgBox "Aucune sélection dans la liste Application et dans la liste Entreprise"
End Select

End Sub

Private Sub CommandButton3_Click()
Dim DerLigneEntreprise As Integer

DerLigneEntreprise = Sheets("application").Range("C65536").End(xlUp).Row
With Sheets("application")
.Range("C" & DerLigneEntreprise) = ""
.Range("D" & DerLigneEntreprise) = ""
.Range("F" & DerLigneValidation) = ""
End With

End Sub


3 boutons (1 maj, 2 validation, 3 correction)
3 combobox (linkedcell a ajouter manuellement, listfillrange aussi pour la 3)
2 listes





donc voila la macro direct (comme ca je n ai pas a purge mes fichiers qui sont de plus tres bizarre, cf mes differents problemes)

donc voila, si tu es un peu debrouillard, ca devrait aller
(pas bcp de temps et interdiction theorique de venir sur les forums, donc je ne traine pas trop )

bonne chance

et encore merci a tout excel dl