Fonction Excel ou macro?

Question

Bonjour, J'ai un classeur excel avec plusieurs feuilles. Seule la première est utilisée par l'utilisateur. Dans la cellule K4 je souhaiterais mettre une fonction type RechercheV ou Sommeprod qui donnerait le résultat tel que pour toutes les cellules remplies dans ma feuille2( 4400 lignes) si feuil1.B4 = feuil2.A ET feuil2.H < feuil1.C4 < feuil2.I alors ma fonction retournerait la valeur de la cellule feuil2.G correspondant à ces conditions. J'ai tenté de créer une fonction mais elle n'est pas fiable à 100%, dans certains cas que je n'arrive pas à identifier le programme rentre dans ma seconde boucle if même si les conditions ne semblent pas réunies!! Dim PRd, PRf, PRdtest, PRftest As VariantDim RDtest, RD As IntegerPRd = Cell1.ValuePRf = Cell2.ValueRD = Sheets("fiche recensement").Range("B4").ValueFor i = 2 To 4424PRdtest = Sheets("RD_par_Communes").Range("H" & i).ValuePRftest = Sheets("RD_par_Communes").Range("I" & i).ValueRDtest = Sheets("RD_par_Communes").Range("F" & i).ValueIf RD = RDtest Then'MsgBox RDtest If PRd <= PRftest And PRd >= PRdtest Then 'PRd > PRdtest And PRd < PRftest Then COMMUNE1 = Sheets("RD_par_Communes").Range("G" & i).Value End IfEnd IfNextEnd Function Si quelqu'un peut me lancer sur une piste??? Merci d'avance --

Lameche15 · Answer

Petite précision.
En faisant du pas à pas je m'aperçois que le programme fonctionne pour les valeurs de 0.0000 à 9.9999. Au-delà le test reste négatif sur la 2nde boucle If!!!!!!
Je crois que j'ai besoin de vacances!! 
 
--

vb95 · Answer

Bonjour 
1) Pourquoi mettre un type Variant alors que les valeurs sont des nombres décimaux avec 4 chiffres après la virgule . Le type Single serait plus approprié .
2) Dans ton dernier message tu parles d'une seconde boucle ! Moi je n'en vois qu"une
3) Quand à la concaténation des 2 cellules au format texte pour former le nombre à 4 chiffres après la virgule je ne vois pas le souci . La solution donnée par Whismeril est correcte
4) Dans le texte d'explication tu mets des signes < alors que dans le code tu mets des signes <=  . Cela aurait-il une incidence ?

Lameche15 · Answer

Je ne comprends pas ce qu'il se passe, j'ai tenté plusieurs format de données et je ne comprends pas pourquoi cela ne fonctionne pas à 100%.
Est-il possible de joindre mon tableau? Peut-être que quelqu'un voudra bien y jeter un coup d'oeil?

 
--

vb95 · Answer

Bonjour
tu écris : En faisant du pas à pas je m'aperçois que le programme fonctionne pour les valeurs de 0.0000 à 9.9999. Au-delà le test reste négatif sur la 2nde boucle If!!!!!!  

1) Pour les valeurs 0.0000 à 9.9999 de quelle variable ?
2) Lorsque tu passes à 10.0000 tu dis que cela ne fonctionne plus ( le test reste négatif ) . Quelles sont les valeurs de PRdtest, PRftest, PRd lorsque tu passes à 10.0000
3) A quoi sert PRf dans ton code ?  Il vaut Cell2.Value mais tu ne t'en sers pas ensuite

Fonction Excel ou macro?

4 réponses

Votre réponse

Discussions similaires