Discussion :

[joel50]

Bonjour à tous
J'ai sur mon projet plusieurs userform me permettant de mettre à jour les données sur différentes feuille de données, le tout étant exploité sur un feuille contenant les formules EXCEL.

Mon pb est que quelques données au niveau de ma feuille de calcul interagissent entre elles, je dois repasser par certains formulaires pour valider des modifications, se qui génère des erreurs en cas d'oubli, j'avais dans un premier temps résolu mon problème en lançant le formulaire suivant à partir du code de celui modifié. Mais ça ma pose des soucis de boucle sans fin, si 2 formulaires agissent chacun leur tour sur un même résultat.

Je souhaiterais ajouté un ligne de calcul à mon code qui me permette de reporter un résultat de calcul sur une autre fiche et à la même date.
J'espère être compréhensible.
Ci dessous l'extrait de code, les ligne 26-27-28 ne fonctionnent pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub CmdModifier_Click()
 
    ' Modifier
    Dim Ctrl As Control
    Dim Colonne As Integer
    Dim Ligne As Long
    Dim a As Variant
 
 Application.ScreenUpdating = False
 
     If Me.CboDate.ListIndex = -1 Then Exit Sub
     Ligne = Me.CboDate.ListIndex + 4
     With Sheets("Data_Ration")
 
         For Each Ctrl In Me.Controls
                     Colonne = CInt("0" & Ctrl.Tag)
             If Colonne > 0 Then
                   .Cells(Ligne, Colonne) = TrouveType(Ctrl)
             End If
         Next Ctrl
      'Calcul MSI ration initiale
         .Cells(Ligne, 59) = Sheets("Fiche").Range("Total_Ingestion_MS_Ration_Initiale") + ((Sheets("Fiche").Range("Qté_jour_conc_Indiv_1_R_Initiale") + Sheets("Fiche").Range("Qté_jour_conc_Indiv_2_R_Initiale") + Sheets("Fiche").Range("Qté_jour_conc_Indiv_3_R_Initiale")) / Sheets("Fiche").Range("Nb_Rations_Initiale"))
     End With
 
      'Calcul cout ration / 1000 L
     With Sheets("Data_lait")
         .Cells(Ligne, 26) = Sheets("Fiche").Range("cout_ration_VL_j_Ration_Initiale") * 1000 / Sheets("Fiche").Range("Plréelle")
     End With
 
 
Unload Me
 
End Sub

Merci de votre aide, Joël

[joel50]

ReBonjour
Je reviens sur ma question, j'ai résolu mon souci, une partie était lièe à une erreur de nom.
Par contre j'ai également du modifié le ligne suivante en indiquant la ligne +1, le calcul était bien fait, mais le résultat était indiqué sur la mauvaise ligne et là je ne comprend pas pourquoi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
         .Cells(Ligne + 1, 26) = Sheets("Fiche").Range("cout_ration_VL_j_Ration_Initiale") * 1000 / Sheets("Fiche").Range("Lait_à_70")

Si quelqu'un pouvait me donner l’explication.
Cdt
JOËl

[pgz]

Bonjour.

Je n'ai vraiment pas tout compris, mais une idée quand même : tu n'aurais pas un décalage d'1 ligne entre les données de la feuille "Data_Ration" et celles de la feuille "Data_lait" ?

Cordialement,

PGZ

[joel50]

Bonjour
Si effectivement tout bêtement une ligne de décalage entre les 2, due à une ligne vide en haut de feuille pour "Data-lait", supprimé et c'est OK.
Merci pgz
Joël