FORMULE ou VB CALCULE DUREE

Ilino

XLDnaute Barbatruc

• 2 Octobre 2014

• #31

Re : FORMULE ou VB CALCULE DUREE

Marcel32 à dit:

Arf, avec ce fichier impossible d'ouvrir le UserForm4 pour faire la mise à jour après avoir ajouté une FSE.

Cliquez pour agrandir...

Re oui j'ai ajouter une ligne par défaut ( j'ai mets le bon fichier dans #28)

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Octobre 2014

• #32

Re : FORMULE ou VB CALCULE DUREE

Re
tu vas constaté que la formule a ete effacer????

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Octobre 2014

• #33

Re : FORMULE ou VB CALCULE DUREE

La formule n'est pas exactement "effacée". 😉
En fait, lorsque tu ajoutes une FSE, il y a insertion d'une ligne dans le tableau. C'est pourquoi tu n'as aucune formule sur la ligne insérée.
Ce n'est plus le même problème qu'au départ.

Sinon, je constate que tu n'as plus d'erreur dans la formule. Fini le #VALEUR. 😉

 

Dernière édition: 2 Octobre 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Octobre 2014

• #34

Re : FORMULE ou VB CALCULE DUREE

Re
donc c'est le code dans USF qui pose le pblm peut etre j'ai deja poser ce pblm avec MAITRE JOB ( ok je vais l'adapter)

Code:

Range("A2:Y2").Select 
  Selection.Insert Shift:=xlDown
  ActiveWindow.ScrollColumn = 1

ou bien je change le code au lieu d'inseret la ligne au debut je le ferai a la fin ( je pense que c'est possible??)
A+

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Octobre 2014

• #35

Re : FORMULE ou VB CALCULE DUREE

Tu peux essayer de modifier la procédure du UserForm4 :

Code:

Private Sub CommandButton1_Valider_Click()
Dim Arrivee As String, Sortie As String
Dim dArrivee As Date, dSortie As Date
Dim Tempo As Integer
Dim Duree As Long
Dim Lgn&

  Lgn = ComboBox1.ListIndex + 1
  If Lgn = 0 Then Exit Sub

  With Tableau
   .Cells(Lgn, 3) = ComboBox3
   .Cells(Lgn, 4) = TextBox1
   .Cells(Lgn, 5) = TextBox2
   .Cells(Lgn, 6) = ComboBox6
   .Cells(Lgn, 7) = ComboBox4
   .Cells(Lgn, 8) = ComboBox5
   .Cells(Lgn, 9) = TextBox3
   .Cells(Lgn, 10) = TextBox4
   .Cells(Lgn, 11) = TextBox6
   .Cells(Lgn, 25) = TextBox5
   .Cells(Lgn, 12) = ComboBox7
   .Cells(Lgn, 13) = TextBox7

   Arrivee = .Cells(Lgn, 10)
   Tempo = InStr(1, Arrivee, ".")
   Arrivee = Right(Arrivee, Len(Arrivee) - Tempo - 1)
   dArrivee = DateValue(Arrivee)
   Sortie = .Cells(Lgn, 13)
   Tempo = InStr(1, Sortie, ".")
   Sortie = Right(Sortie, Len(Sortie) - Tempo - 1)
   dSortie = DateValue(Sortie)
   Duree = dSortie - dArrivee
   .Cells(Lgn, 15) = "Durée de traitement " & Duree & " jour(s)"

   .Cells(Lgn, 17) = ComboBox8
   .Cells(Lgn, 14) = TextBox9
  End With

  Sheets("Accueil").Select
  Range("T10").Select
  Unload Me

End Sub

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Octobre 2014

• #36

Re : FORMULE ou VB CALCULE DUREE

Re marcel
super comme ça c'est tres parfait😀
grazie😎

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Octobre 2014

• #37

Re : FORMULE ou VB CALCULE DUREE

Le classeur est assez complexe. J'espère que cette modification ne gênera pas pour le reste. 😉


Bonne nuit et @+

 

Dernière édition: 3 Octobre 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Octobre 2014

• #38

Re : FORMULE ou VB CALCULE DUREE

Re
non non tous vas bien , un grand GRAZIE Marcel
Problem RESOLUTO
GRAZIE

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 3 Octobre 2014

• #39

Re : FORMULE ou VB CALCULE DUREE

Ce fut un plaisir. 😉

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Octobre 2014

• #40

Re : FORMULE ou VB CALCULE DUREE

RE
Merci, mais si tu permet , comment faire pour afficher cette durée dans mon USF4 TextBox10,
Esperant c'est ma derniere question😱
A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Octobre 2014

• #41

Re : FORMULE ou VB CALCULE DUREE

Re
est ce que c 'est juste ,,,,????

Range("O2").Value = TextBox10.Value

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 3 Octobre 2014

• #42

Re : FORMULE ou VB CALCULE DUREE

Si tu veux afficher dans la TextBox, c'est plutôt l'inverse 😉 :
TextBox10.Value = Range("O2").Value

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Octobre 2014

• #43

Re : FORMULE ou VB CALCULE DUREE

Re
merci mais j'ai pas pu arrivé a mettre ce code

If TextBox7.Value <> "" Then TextBox10.Value = Range("O2").Value

Cliquez pour agrandir...

si le TextBox de la date sortie est non vide alors afficher la durée
GRAZIE

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 3 Octobre 2014

• #44

Re : FORMULE ou VB CALCULE DUREE

C'est dans Private Sub ComboBox1_Change() du UserForm4 qu'il faut ajouter ta ligne de code, par exemple après TextBox7.Value = .Cells(Lgn, 13).


[edit]
En fait ta ligne de code devrait plutôt être :
If TextBox7.Value <> "" Then TextBox10.Value = .Cells(Lgn, 15)
[/edit]

 

Dernière édition: 3 Octobre 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Octobre 2014

• #45

Re : FORMULE ou VB CALCULE DUREE

OK MERCI, mais est ce que il y a une possibilité d'afficher la durée dans TextBox10 une fois la date est saisie dans TextBox7 avant de quiter USF?
grazie

 

Vote positif 0 Vote négatif