OVH Cloud OVH Cloud

Recherche

2 réponses
Avatar
Beabou
Bonjour,
j'ai besoin d'une formule qui parcoure une plage de cellules jusqu'à ce
qu'elle trouve une cellule remplie et qu'elle me renvoie sa valeur.
Merci de votre aide.

2 réponses

Avatar
Elliac
Salut,

quelque chose comme :
For each c in range("a1:a50")
if c <>"" then
msgbox c.value
exit sub
end if
next

Camille

"Beabou" wrote:

Bonjour,
j'ai besoin d'une formule qui parcoure une plage de cellules jusqu'à ce
qu'elle trouve une cellule remplie et qu'elle me renvoie sa valeur.
Merci de votre aide.


Avatar
AV
Dans un module ordinaire :

Function PREM_VAL(plg As Range)
For Each c In plg
If c <> "" Then PREM_VAL = c: Exit For
Next
End Function

Exemple dans la feuille de calcul :
=PREM_VAL(A1:C10)

AV