comment creer une fonction en VBA heur-heur x le prix

[bolton100]

j'ai realiser ca avec excel (la formule en excel est la suivante:
=SI(B5>0;HEURE(B5)*60+MINUTE(B5);0)
mais je n'arrive pas a le realise avec VBA et sur les cellule de A2:A100, B2:B100 C2:C100
et merci d'avance

 

[kiki29]

Re : comment creer une fonction en VBA heur-heur x le prix

Jour Bon

Public Function CalcMinutes(ByVal Plage As Range) As Long
Dim m As Long, c As Range
    m = 0
    For Each c In Plage
        If c.Value > 0 Then m = m + Hour(c) * 60 + Minute(c)
    Next c
    CalcMinutes = m
End Function

Création Fonction Personnalisée
-------------------------------
Le code est à placer dans un Module standard
[Alt+F11] Menu Insertion | Module

Ensuite sous Excel
Sélectionner la cellule de destination
Menu Insertion | Fonction | Catégorie : Personnalisées
Sélectionner la Fonction_Désirée
l'assistant apparait etc

Sinon par Exemple A2 =Fonction_Désirée(A1)
soit ici A2 CalcMinutes(A1) ou B2=CalcMinutes(A2:A100)

Un conseil : le multi post est à éviter

 

[fanfan38]

Re : comment creer une fonction en VBA heur-heur x le prix

Bonjour
en VBA ça fait
If Range("b5").Value > 0 Then Hour(Range("$b$5")) * 60 + Minute(Range("$b$5"))
mettre des $ pour que l'adresse reste la même en cas de copie...

Pour recopier cette valeur de a2 à a100
If Range("b5").Value > 0 Then
mamn=Hour(Range("$b$5")) * 60 + Minute(Range("$b$5"))
For i = 2 To 100
Cells(i, 1).Value = mamn '1=colonne 1 soit A
Next
End If
Bon Noël

A+ François

 

[bolton100]

Re : comment creer une fonction en VBA heur-heur x le prix

merci et bonne noel