Gestion des machines

Re : Gestion des machines

quand on lave un enfant, il faudra qu'il se frotte quand meme lui meme. on saura qu'il pourra se laver seul plus tard.
j'ai reformé la macro de Camarchepas. malheureusement, elle ne marche que pour la machine 1 je voudrai demander comment faire pour que les autres machines bénéficient de la commande. au fait, voici le fichier et la macro modifiée.
si je débloque, je pourrai étendre mon programme jusqu’à 20 machines sans je l’espère grands soucis

Option Explicit

Sub Ajout_Feuille()
Dim Sh As Worksheet, Trouve As Range
Dim Expression As String, Remplace As String, datejour As String
Dim Compteur(10, 10, 20) As Long
Dim Salle As Long, Machine As Long, Mesure As Long
Dim Lignecible As Long

With ActiveSheet
Salle = 1
Machine = .Range("B7")
'Anciennes positions compteurs
Compteur(Salle, Machine, 11) = .Range("E9")
Compteur(Salle, Machine, 12) = .Range("I9")
Compteur(Salle, Machine, 13) = .Range("G9")
Compteur(Salle, Machine, 14) = .Range("E7")
Compteur(Salle, Machine, 15) = .Range("I7")
Compteur(Salle, Machine, 16) = .Range("G7")
Compteur(Salle, Machine, 17) = .Range("K9")
Compteur(Salle, Machine, 18) = .Range("J7")
Compteur(Salle, Machine, 19) = .Range("K7")
'Nouvelles positions compteurs
Compteur(Salle, Machine, 1) = .Range("E10")
Compteur(Salle, Machine, 2) = .Range("I9")
Compteur(Salle, Machine, 3) = .Range("G10")
Compteur(Salle, Machine, 4) = .Range("E8")
Compteur(Salle, Machine, 5) = .Range("I8")
Compteur(Salle, Machine, 6) = .Range("G8")
Compteur(Salle, Machine, 7) = .Range("K10")
Compteur(Salle, Machine, 8) = .Range("J8")
Compteur(Salle, Machine, 9) = .Range("K8")
datejour = .Range("B13")
End With
Lignecible = Sheets("Suivi").Range("A" & Rows.Count).End(xlUp).Row + 1

For Salle = 1 To 1
Sheets("Suivi").Range("A" & Lignecible) = Salle
For Machine = 1 To 2
Sheets("Suivi").Range("B" & Lignecible) = Machine
Sheets("Suivi").Range("C" & Lignecible) = datejour
For Mesure = 1 To 19
Sheets("Suivi").Range("A" & Lignecible).Offset(0, 3 + Mesure - 1) = Compteur(Salle, Machine, Mesure)
Next Mesure
Next Machine
Next Salle

'Préparation nouvel onglet
With ThisWorkbook
Set Sh = .Worksheets(.Worksheets.Count)
Application.DisplayAlerts = False
Sh.Copy After:=.Worksheets(.Worksheets.Count)
Application.DisplayAlerts = True
With .ActiveSheet
.Name = CLng(Sh.Name) + 1
Salle = 1
Machine = .Range("B7")
'Anciennes positions compteurs
.Range("E9") = Compteur(Salle, Machine, 1)
.Range("I9") = Compteur(Salle, Machine, 2)
.Range("G9") = Compteur(Salle, Machine, 3)
.Range("E7") = Compteur(Salle, Machine, 4)
.Range("I7") = Compteur(Salle, Machine, 5)
.Range("G7") = Compteur(Salle, Machine, 6)
.Range("K9") = Compteur(Salle, Machine, 7)
.Range("J7") = Compteur(Salle, Machine, 8)
.Range("K7") = Compteur(Salle, Machine, 9)
'Nouvelles positions compteurs
.Range("E10") = ""
.Range("G10") = ""
.Range("E8") = ""
.Range("I8") = ""
.Range("G8") = ""
.Range("K10") = ""
.Range("J8") = ""
.Range("K8") = ""
Machine = .Range("B11")
'Anciennes positions compteurs
.Range("E13") = Compteur(Salle, Machine, 1)
.Range("I13") = Compteur(Salle, Machine, 2)
.Range("G13") = Compteur(Salle, Machine, 3)
.Range("E11") = Compteur(Salle, Machine, 4)
.Range("I11") = Compteur(Salle, Machine, 5)
.Range("G11") = Compteur(Salle, Machine, 6)
.Range("K13") = Compteur(Salle, Machine, 7)
.Range("J11") = Compteur(Salle, Machine, 8)
.Range("K11") = Compteur(Salle, Machine, 9)
'Nouvelles positions compteurs
.Range("E14") = ""
.Range("G14") = ""
.Range("E12") = ""
.Range("I12") = ""
.Range("G12") = ""
.Range("K14") = ""
.Range("J12") = ""
.Range("K12") = ""
End With
End With
End Sub

Re : Gestion des machines

bonjour le forum bonjour a tous
je ne comprend pas pourquoi ma macro ne donne pas ici, au lieu d'activer les données de la machine 2, elle se transpose vers la une et a la deuxieme feuille dans les données calculs. je suis confus. je vous envoie le fichier en question. OBSERVEZ AUSSI LE COMPORTEMENT DE LA FEUILLE SUIVI

Re : Gestion des machines

Bonjour Man ,

Pas eu assez de dispo pour faire, mais je pense à toi , c'est enregistré dans mes tablettes , c'est inutile de multiplier les updates.

Si vraiment c'est très urgent , il y a des développeurs disponibles rapidement dans plein de sociètés de dev., mais là , c'est sur c'est pas le même prix .

Alors prends ton mal en patience , ou ton chéquier ....

J'ai bossé un peu dessus hier soir, il faut prévoir des astuces de programmation car il y a des cellules fusionnées dans ton modèle , et cela ne simplifie pas la tâche.

Donc encore une fois patience, n'oublies pas que chacun d'entre nous fait cela bénévolement et dans ses temps libres.

Tu pourrais aussi réellement essayer de t'y mettre, cela te permettrais de voir la tache à accomplir , car là il ne suffit pas d'appuyer sur un levier pour voir tomber la richesse.

Donc à très bientôt , j'en suis sûr.
Merci donc de patienter,

Re : Gestion des machines

bonjour le forum. bonjour a tous. je reviens pour relancer tous les exceleurs a propos de ce fichier qui me tient tant a cœur et que je voudrai vraiment réaliser. après toutes les tentatives; je vous remet le dernier en date
MERCI D4AVANCE POUR TOUTE VOTRE DISPONIBILITÉ