Problème d'importation de fonction ?

[gimli]

Bonjour à toutes et à tous,

je vous explique mon soucis: j'ai une page excel avec une colonne ou il y a un calcul avec une fonction, appelée Minutes(). J'ai une autre page (appelée Traitement) qui, elle, peut charger d'autre pages excel grâce à un bouton.
Lorsque je charge la page excel ou il y a la formule, toutes la colonne ou il y a le calcul avec la fonction est marquée #NOM? ...alors que sur la page d'origine la fonction marche très bien =S

Sauriez-vous pourquoi ? et quelles seraient les solutions ? Merci d'avance, bonne fin d'après-midi 🙂

 

[gimli]

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 " 😉

 

[camarchepas]

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

 

[gimli]

Re : Problème d'importation de fonction ?

re,

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

 

[camarchepas]

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))

 

[gimli]

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 .

 

[camarchepas]

Re : Problème d'importation de fonction ?

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

 

[gimli]

Re : Problème d'importation de fonction ?

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

 

[camarchepas]

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

 

[camarchepas]

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

 

[gimli]

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

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

 

[gimli]

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

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

 

[gimli]

Re : Problème d'importation de fonction ?

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

 

[pierrejean]

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 !!!

 

[camarchepas]

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

 

[pierrejean]

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 !!!