Problème d'importation de fonction ?

pierrejean

XLDnaute Barbatruc

• 17 Mai 2010

• #2

Re : Problème d'importation de fonction ?

bonjour gimli

La fonction Minutes() (fonction personnalisée je suppose) est-elle bien dans un module standard et non dans le module de la feuille ?
Sinon l'y mettre

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 18 Mai 2010

• #3

Re : Problème d'importation de fonction ?

bonjour PierreJean, merci pour votre réponse 🙂
vous avez raison ma fonction est bien dans le module de la feuille, comment puis-je la mettre dans un module standard ? je ne connais pas bien excel 🙁

Merci à vous 🙂

EDIT: j'ai crée un module standard je crois =S (clic droit sur le classeur, insertion, module) et mis le code dedans, mais ça marche toujours pas quand je l'ouvre depuis l'autre feuille.

EDIT2: je n'avai pas compris que le module il fallait le mettre sur le classeur de la feuille Traitement, du coup ça marche mais c'est long à charger =S

 

Dernière édition: 18 Mai 2010

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Mai 2010

• #4

Re : Problème d'importation de fonction ?

Re

Peux-tu poster une copie de ton fichier avec uniquement cette Fonction Minutes() ?

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 18 Mai 2010

• #5

Re : Problème d'importation de fonction ?

re,

voici la fonction:

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

Cliquez pour agrandir...

elle calcule la durée en minutes entre deux dates en tenant compte des week end et heures ouvrées

 

Dernière édition: 18 Mai 2010

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Mai 2010

• #6

Re : Problème d'importation de fonction ?

Re

voici un exemple ou la fonction est dans le module1 (standard)
et la fonction utilisée sur 2 feuilles
Toutefois , a l'examen du code , on s'aperçois que la boucle de comptage des minutes peut etre très longue si le resultat est important (naturellement multiplié par le nombre de fois ou elle est presente)
Si c'est ceci l'explication il faudrait alors etudier une fonction differente dans son principe

 

Pièces jointes

• gimli.zip

  6.6 KB · Affichages: 25

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 18 Mai 2010

• #7

Re : Problème d'importation de fonction ?

Merci pour votre travail mais je vais laisser tel quel pour le moment 🙂

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #8

Re : Problème d'importation de fonction ?

Bonjour à tous,

comment puis-je faire pour utiliser cette fonction automatiquement ? elle doit apparaître dans la colonne K. donc dans K2 j'ai "=Minutes(F2+G2;H2+I2 )" , ce qui reenvoi un résultat exact. Mais ça c'est si on veut faire "à la main" moi je veux que la fonction se calcule automatiquement, j'ai donc commencé a écrire ceci dans ma macro :

For i = 2 To dernièreligne

range("K"&i).value = Minutes(range("F"&i).value+range("G"&i).value;range("H"&i).value+range("I"&i).value)

Next

Cliquez pour agrandir...

mais ça me surligne le ";" et m'affiche "attendu: séparateur de liste ou )"

pourquoi ?

merci d'avance

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #9

Re : Problème d'importation de fonction ?

Bonjour,
Suppression de l'espace mise en gras
range("K"&i).value = Minutes(range("F"&i).value+range("G"&i).value;rang e("H"&i).value+range("I"&i).value)

 

Dernière édition: 26 Mai 2010

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #10

Re : Problème d'importation de fonction ?

Bonjour camarchepas,

EDIT: l'espace est une faute frappe que j'ai faite en recopiant la formule, mais je n'ai pas fait l'erreur dans mon code 😉

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #11

Re : Problème d'importation de fonction ?

Le point virgule en gras est en fait une virgule

range("K"&i).value = Minutes(range("F"&i).value+range("G"&i).value;range("H"&i).value+range("I"&i).value)

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #12

Re : Problème d'importation de fonction ?

l'erreur a bien disparu, après que j'ai remplacé le";" par une virgule, mais par contre la colonne K reste vide, et ça je ne le comprend pas 🙁

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #13

Re : Problème d'importation de fonction ?

Peux-tu me donner les valeurs rencontrées dans ta feuille d'essai pour ces cellules :
donnes une ligne significative I dans la formule
range("F"&i) = ?
range("G"&i) = ?
range("H"&i)= ?
range("I"&i)= ?

Pour que je puisses tester , merci

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 26 Mai 2010

• #14

Re : Problème d'importation de fonction ?

Les colonnes F, G, H, I, J (pas importante) et K (résultat en minutes à obtenir)
ça commence à la ligne 2
31/03/2010 12:45:00 30/04/2010 13:13:00 43228 13228
26/04/2010 13:00:00 30/04/2010 10:23:00 5603 2243
27/04/2010 08:55:00 30/04/2010 14:54:00 4679 2159

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Mai 2010

• #15

Re : Problème d'importation de fonction ?

En fait,
il faut remplacer les + par & " " &

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

 

Vote positif 0 Vote négatif