Problème d'importation de fonction ?

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #16

Re : Problème d'importation de fonction ?

je viens d'essayer, ça me surligne cette ligne du code et ça me met "erreur 13: incompatibilité de type " 😉

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #17

Re : Problème d'importation de fonction ?

Je pense qu'il faut tester que les cellules contiennent effectivement une valeur sinon c'est sur ça marche pas :

If Range("F" & i).Value <> " " And Range("G" & i).Value <> "" And Range("H" & i).Value <> "" And Range("I" & i).Value <> "" Then
Range("K" & i) = Minutes(Range("F" & i).Value & " " & Range("G" & i).Value, Range("H" & i).Value & " " & Range("I" & i).Value)
end if

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #18

Re : Problème d'importation de fonction ?

re,

toutes ces colonnes sont remplies, il n'y a aucun blanc 😱

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #19

Re : Problème d'importation de fonction ?

plus encore une autre chose :
il faut convertir en format date soit :

Range("K" & i) = Minutes(CDate(Range("F" & i).Value) & " " & CDate(Range("G" & i).Value), CDate(Range("H" & i).Value) & " " & CDate(Range("I" & i).Value))

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #20

Re : Problème d'importation de fonction ?

Pourquoi mettre les cellules contenant des heures en format date ? je ne comprend pas. Vu que la formule (K2=Minutes(F2+G2;H2+I2 )) quand je l'entre à la main elle fonctionne .

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #21

Re : Problème d'importation de fonction ?

Essaye , car le format date englobe date heure en fait, là moi , c'est Ok maintenant

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #22

Re : Problème d'importation de fonction ?

je viens d'essayer ça me met encore la même erreur 🙁

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #23

Re : Problème d'importation de fonction ?

Sub essai()
Dim i As Integer
i = 2
If Range("F" & i).Value <> " " And Range("G" & i).Value <> "" And Range("H" & i).Value <> "" And Range("I" & i).Value <> "" Then
Range("K" & i) = Minutes(CDate(Range("F" & i).Value) & " " & CDate(Range("G" & i).Value), CDate(Range("H" & i).Value) & " " & CDate(Range("I" & i).Value))
End If
End Sub
Function Minutes(deb As Date, fin As Date) As Long
Dim t1 As Date, t2 As Date, n As Long, d As Date, t As Date
t1 = TimeValue("8:0")
t2 = TimeValue("18:0")
For n = 1 To DateDiff("n", deb, fin)
d = deb + n / 1440
t = TimeValue(d)
If Weekday(d, 2) < 6 And t > t1 And t <= t2 Then Minutes = Minutes + 1
Next
End Function
'f2 = 31/03/2010 g2=12:45:00 h2 = 30/04/2010 i2 = 13:13:00
'et je trouve 13228

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #24

Re : Problème d'importation de fonction ?

format des cellules F et h Date
format des cellules G et I personnalisée hh:mm:ss

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #25

Re : Problème d'importation de fonction ?

camarchepas à dit:

format des cellules F et h Date
format des cellules G et I personnalisée hh:mm:ss

Cliquez pour agrandir...

d'accord, mais comment puis-je gérer cela avec la macro ? je dois mettre quoi comme code ? merci 🙂

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #26

Re : Problème d'importation de fonction ?

j'ai essayé comme ça :

dernligne = ThisWorkbook.Sheets(1).Cells(65536, 3).End(xlUp).Row

For i = 2 To dernligne
'K2=Minutes(F2+G2;H2+I2) -> formule
Range("K" & i) = Minutes(CDate(Range("F" & i).Value) & " " & (Range("G" & i).Value), CDate(Range("H" & i).Value) & " " & (Range("I" & i).Value))
Next

Cliquez pour agrandir...

il n'y a plus d'erreur mais la colonne K reste vide, on dirait qu'il ne lit pas cette partie du code 🙁

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #27

Re : Problème d'importation de fonction ?

peut être que ma boucle est fausse ? je ne sais pas du tout 🙁🙁

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2010

• #28

Re : Problème d'importation de fonction ?

Re

Belle obstination a refuser de creer un fichier exemple ( Quelques lignes suffisent) a partir duquel le problème serait résolu depuis belle lurette !!!

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #29

Re : Problème d'importation de fonction ?

Et voilà Gimli,

Bonjour Pierre jean, pourrais-tu tester STP , c'est peut être un problème de portabilité

Gimli essai mon fichier stp également

 

Pièces jointes

• Essai.xls

  24.5 KB · Affichages: 40
• Essai.xls

  24.5 KB · Affichages: 39
• Essai.xls

  24.5 KB · Affichages: 41

Dernière édition: 26 Mai 2010

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2010

• #30

Re : Problème d'importation de fonction ?

Re
bien sur que cela fonctionne et dès que gimli daignera passer 2 a 3 minutes a creer et poster un fichier exemple cela fonctionnera chez lui !!!

 

Vote positif 0 Vote négatif