Suivi de saisie
Bonjour à tous,
Je suis en train de créer, à but professionnel, des fichiers de saisies et autres recopie pour du reporting et suivi de production
Le fichier de saisie étant destiné à de la production en heure de poste, avec des cellules fusionnées, des informations, des onglets différents, je sèche sur la réalisation de mon besoin
Voici le fichier de saisie :(les 3 dernières colonnes sont des formules)
Ainsi, je cherche à ce que les informations de "TRG" soient reportées sur un autre fichier de production ci-contre: (colonne M:Q)
Je vais passer par un onglet différent sur le fichier de la dernière capture, mais je ne sais pas comment m'y prendre avec les cellules fusionnées et différents onglets
L'onglet en question serait de la forme:
Si quelqu'un pouvait m'aider, avec des idées, une formule ou une manière plus simple..
Cdlt,
RQ
Bonsoir
Et tes images ne sont pas des fichiers. Aussi difficile de travaille sur ce que tu nous propose que de fumer avec ce que je propose.
Tu auras sûrement plus de réponses avec de vrais fichiers.
Cordialement
Bonjour !
Bien vu, j'aurai pas dit mieux..
Je ne sais pas si ma demande est claire, mais voici les fichiers (rien de confidentiel puisque modifiés) ..
J’ai peut être mal expliqué?
Merci franchement ça colle, ça demande un peu de recherche et apprentissage de ma part car je ne connais que très peu le vba
On est d'accord c'est bcp mieux que mes multiples formules de recherche et calculs ?
Si tu as un petit conseil par rapport à l'ergonomie ou quoi je suis à l'écoute!
je me colle le module
Option Explicit
Sub Report()
Application.ScreenUpdating = False
Dim wbS As Workbook, wbC As Workbook
Dim shS As Worksheet, shC As Worksheet
Dim dl As Integer, i As Integer, numScie As Integer
Dim tmp()
Dim lo As ListObject
Dim dico1 As Object
Dim dico2 As Object
Dim cle As Variant, x As Variant, y As Variant
Set dico1 = CreateObject("Scripting.Dictionary")
Set dico2 = CreateObject("Scripting.Dictionary")
Set wbS = Workbooks("trg-suivi-scies.xlsx")
Set wbC = Workbooks("planning-prods22 yal v1.xlsm")
Set shC = wbC.Sheets("TRG prepas-bois")
Set lo = shC.ListObjects("tb_report")
If Sheets("TRG prepas-bois").ListObjects("tb_report").ListRows.Count > 0 Then
Range("tb_report").Delete
End If
For Each shS In wbS.Sheets
If Left(shS.Name, 10) = "Suivi Scie" Then
numScie = Right(shS.Name, Len(shS.Name) - 11)
dl = shS.Cells(Rows.Count, 1).End(xlUp).Row
If dl > 5 Then
tmp = shS.Range("A6:W" & dl).Value2
For i = 1 To UBound(tmp)
If tmp(i, 1) <> "" Then
If IsError(tmp(i, 21)) Then tmp(i, 21) = "nc"
dico1(tmp(i, 1) & tmp(i, 5)) = dico1(tmp(i, 1) & tmp(i, 5)) & "|" & numScie
dico2(tmp(i, 1) & tmp(i, 5)) = dico2(tmp(i, 1) & tmp(i, 5)) & "|" & tmp(i, 21)
End If
Next i
End If
End If
Next shS
ReDim tmp(1 To dico1.Count, 1 To 8)
dl = 1
For Each cle In dico1.keys
x = Split(dico1.Item(cle), "|")
y = Split(dico2.Item(cle), "|")
For i = 1 To UBound(x)
tmp(dl, 1) = CDbl(Left(cle, 5))
tmp(dl, 2) = Right(cle, Len(cle) - 5)
If IsNumeric(y(i)) = True Then
tmp(dl, CInt(x(i)) + 2) = CDbl(y(i))
Else
tmp(dl, CInt(x(i)) + 2) = y(i)
End If
Next i
dl = dl + 1
Next cle
Range("tb_report").Resize(UBound(tmp), UBound(tmp, 2)) = tmp
Range("tb_report[Moy TRG]").FormulaR1C1 = "=AVERAGE(tb_report[@[TRG %scie1]:[TRG %scie5]])"
Application.ScreenUpdating = True
End Sub
Le même mais après suppression des variables non utilisées et ajout de commentaires pour aider à la compréhension du code.
Tu es un seigneur.. comment te remercier ??
je vais regarder cela! Juste pour m'aiguiller, tu penses que c'est possible de retranscrire automatiquement les valeurs du tableau généré de trg des scies dans mon reporting (image 2 du premier post)
Juste m'aiguiller, avec la fonction recherchev je pense, mais je n'ai pas de matin, après midi, nuit journée we sur cette page pour rechercher le poste selon la journée.. je sèche
C'est possible bien que les fusions soient toujours une plaies à traiter.
Pour les remerciements je n'ai rien contre les virements bancaires.
Au plaisir.