XL 2013 Fonction PAIR mais dans l'autre sens

sylvanu à dit:

Bonjour Be_R2D2,
Solution moche en PJ qui utilise un tableau. ( mais qui marche )
En attendant une solution plus élégante.

Cliquez pour agrandir...

BER2D2 à dit:

Bonjour à tous,

J'ai une question a poser aux spécialistes Excel, car je suis en ce moment bloquer sur un truc ......

Je cherche désespérément une fonction qui me permette de trouver un chiffre inférieur a un autre chiffre qui divisé par un 3ème donnerait un chiffre rond

Cliquez pour agrandir...

Function PlusPetit(chiffre, diviseur)
    Dim i&
    Application.Volatile
    For i = diviseur To 1 Step -1
        If chiffre / i = Int(chiffre / i) Then
            PlusPetit = i
            Exit Function
        End If
    Next
End Function

Jacky67 à dit:

Bonjour à tous
Une piste avec une fonction perso

VB:

Function PlusPetit(chiffre, diviseur)
    Dim i&
    Application.Volatile
    For i = diviseur To 1 Step -1
        If chiffre / i = Int(chiffre / i) Then
            PlusPetit = i
            Exit Function
        End If
    Next
End Function

Cliquez pour agrandir...

mapomme à dit:

Bonjour @BER2D2,
Salut à @sylvanu , @Jacky67 ,

Un essai avec une formule matricielle en C1 à recopier vers le bas :

VB:

=MAX(SI(MOD(A1/LIGNE(INDIRECT("1:" & B1));1)=0;LIGNE(INDIRECT("1:" & B1));""))

Formule Matricielle: à valider par la combinaison des trois touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée ne pas entourer la formule d'accolade au clavier. C'est la validation par Ctrl+Maj+Entrée qui ajoute les accolades une fois saisie et validée, une formule matricielle peut être copiée et collée à chaque édition/modification de la formule matricielle, penser à la valider à nouveau par Ctrl+Maj+Entrée

Cliquez pour agrandir...