Aide fonction en VBA
m
Bonjour à toutes et à tous.
Etant novice en vba, j'aurai besoin de votre aide. Je cherche à réaliser une fonction qui me permet de trouver la date minimum dans la colonne A si dans ma colonne B la cellule = 1.
J'ai déjà commencé à écrire quelque chose mais cela ne fonctionne pas.
Quelqu'un pourrait-il m'aider ?
bonjour,
une solution possible
Function minimum() As Date
Dim rng As Range
dl = Cells(Rows.Count, 1).End(xlUp).Row 'dernière ligne de la colonne A
For i = 1 To dl ' on parcourt toutes les lignes
'si cellule en colonne B contient 1, on ajoute la cellule en colonne A dans le range qui sera utilisé pour la recherche du minimum
If Cells(i, 2) = 1 Then If rng Is Nothing Then Set rng = Cells(i, 2) Else Set rng = Union(rng, Cells(i, 2))
Next i
minimum = Application.min(rng) 'on recherche le minimum dans le range créé
End Function
Sub Renvoyer()
MsgBox Format(minimum, "hh:mm:ss") 'on affiche le résultat au format heure.
End Subm
Merci beaucoup cela fonctionne parfaitement
Je vais essayer de comprendre votre code maintenant !