XL 2013 Fonction PAIR mais dans l'autre sens

[BER2D2]

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 🙂
Pour être plus clair :
Imaginons que j'ai un chiffre donner : 21
et un autre chiffre calculer indiquant une valeur : 5
Je cherche a trouver le chiffre inférieur le plus proche de 5 qui divisé par 21 donnerai un chiffre rond ....
en l’occurrence ici, le résultat devrait être 3, car 21/3 = 7 (chiffre rond)

Si mon chiffre donner était :25
et mon chiffre calculé : 8
Je dois trouver 5, car 25/5 = 5 (chiffre rond)

et ça bien sur juste avec des fonction Excel et sans VBA 🙂

Une idée ?

 

[sylvanu]

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

 

[BER2D2]

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

Bonjour sylvanu,
Oui effectivement, ça fonctionne et merci beaucoup, mais il me faudrait pas avoir de tableau en plus .... juste des formules ...... en tout cas merci pour l'idée 🙂

 

[Jacky67]

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 🙂

Bonjour à tous
Une piste avec une fonction perso

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

Dans une cellule
=PlusPetit(Cellule avec le chiffre; Cellule avec le diviseur)

 

[BER2D2]

Bonjour à tous
Une piste avec une fonction perso

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

Bonjour Jacky67, et merci, mais je ne peux pas utiliser de code ...... juste des fonctions Excel ....

 

[mapomme]

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

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

=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

 

[BER2D2]

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

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

=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

Wouaw !!!!! Merci beaucoup, ça fonctionne super bien !!!! je comprend pas du tout ce que tu as fait, mais c'est impeccable 🙂
Merci beaucoup