fonction vba d'encadrement

[matis3854]

Bonjour à tous,

Me voici revenue aujourd'hui pour un problème de fonction créée dans vba.
En effet je voudrais créer une fonction qui permet d'encadrer la valeur d'une cellule et de lui attribuer une valeur conséquente de cette encadrement. Le problème c'est que j'effectue mon encadrement avec des variables dont je fais appel dans ma fonction et du coup ma fonction me renvoie tjs 0. Voici mon bout de code :

ublic Function fonction(cell As Range) As Integer

Dim n As Integer
Dim nb As Integer
Dim a As Integer

nb = Range("'informations générales'!c25").Value 'nbre de série de 10 de nombres me permettant d'encadrer ma valeur de cellule

If cell.Value = 0 Then
fonction = 0
End If

n = 5


a = nb * 10 (nombre totale de chiffre permettant de faire mon encadrement)


If cell.Value > 0 And cell.Value < Sheets("bilan charge partielle").Range("b5").Value Then
fonction = Sheets("bilan charge partielle").Range("c5").Value
End If

For i = 2 To a - 1

If cell.Value >= Sheets("bilan charge partielle").Range("b" & n & "").Value And cell.Value < Sheets("bilan charge partielle").Range("b" & n + 1 & "").Value Then
fonction = Sheets("bilan charge partielle").Range("c" & n + 1 & "").Value
End If

n = n + 1

Next

If cell.Value > Sheets("bilan charge partielle").Range("b" & a + 5 & "").Value Then
fonction = Sheets("bilan charge partielle").Range("c" & a + 5 & "").Value
End If


End Function

je ne vois pas ce qui ne marche pas.

 

[mromain]

Re : fonction vba d'encadrement

bonjour matis3854,

peux-tu poster un bout de fichier avec le résultat attendu, ce sera plus facile.

merki

a+

 

[matis3854]

Re : fonction vba d'encadrement

voilà un bout du programme

 

[matis3854]

Re : fonction vba d'encadrement

je relance mon post en espérant que vous pourrez m'aider!!

Merci

 

[mromain]

Re : fonction vba d'encadrement

bonjour matis3854,

désolé, mais j'ai pas compris ce que tu veux...
peux-tu être plus explicite stp?

a+

 

[matis3854]

Re : fonction vba d'encadrement

bonjour,

bon je sais pas très bien expliquer alors je vais faire de mon mieux.

Le but de mon programme est d'encadrer des valeurs ds mon classeur excel (pr mon stage je dois construire un pgr de calcul énergétique). En gros ma colonne B représente les valeurs que je vais utiliser pour mon encadrement, cela correspondant à une puissance frigorifique ds mon programme, et la colonne C représente les valeur associées à ma colonne B, c'est équivalent à une puissance électrique. En gros dans mon gros programme que je construis, je connais la puissance frigo dont j'ai besoins pour chaque heure d'une journée et il me faut la puissance électrique associée. Voilà pourquoi je construis ce programme, les colonnes B et C sont des valeurs fixes qui changeront en fonction des matériels utilisés.

La colonne E elle représente un essai pour tester ma fonction dont le résultat est donné dans la colonne G.

En espérant avoir été assez clair.

Merci

 

[mromain]

Re : fonction vba d'encadrement

re,

par exemple pour "350", faut que ça te retourne "300,1841379", "364,6005517" ou "300,1841379 - 364,6005517" ?

a+

 

[Modeste]

Re : fonction vba d'encadrement

Bonjour tout le monde,

pas encore tout décortiqué, mais pourquoi affecter 10 à la variable 'a' (Ligne 16) pour faire la boucle For ?

Modeste

 

[Modeste]

Re : fonction vba d'encadrement

re-bonjour,

pour mromain: je passe la main en vba, mais au vu des résultats attendus par matis3854, ça ressemble comme deux gouttes d'eau à une RechercheV (en décalant les valeurs d'une ligne --> voir PJ) ... sauf sauf pour le test sur 987, qui devrait donner 0 comme résultat !!??

Modeste

 

[matis3854]

Re : fonction vba d'encadrement

Bon j'affecte 10 car en fait mon programme peut comporter des valeurs d'encadrement de 10 en 10, je m'explique ces valeurs d'encadrement sont pour une sorte de machine mais si j'en rajoute une dans mon programme ça me rajoute 10 données d'encadrement. donc ce a me permet dans mon gros programme de faire varier les données utilisés pour l'encadrement. bref en fait j'ai l'impression que je ne peut pas faire d'encadrement via vba en utilisant des variables!!

 

[matis3854]

Re : fonction vba d'encadrement

re,

par exemple pour "350", faut que ça te retourne "300,1841379", "364,6005517" ou "300,1841379 - 364,6005517" ?

a+

non en fait pour 350 faut que ça retourne 88.2

 

[mromain]

Re : fonction vba d'encadrement

re, bonjour Modeste

donc la fonction qu'à écris Modeste répond bien à ton PB ?

a+

 

[matis3854]

Re : fonction vba d'encadrement

re, bonjour Modeste

donc la fonction qu'à écris Modeste répond bien à ton PB ?

a+

oui ca marche sauf que j'ai 5 feuilles excel pour lesquelles je dois appliquer cette fonction de plus mes données d'encadrement vont varier dans l'utilisation de programme , elles vont changer en valeur mais aussi en quantité, c'est à dire que je peux avoir jusqu'à 50 données dans la colonne B, nombre de données quiva varier selon les machines analysés. Voilà pourkoi je veux ke mon programme soit en vba pour gérer plus facilement tt ca , mais le prg de Modeste mache très bien mais trop limité pour l'utilisation que je veux en faire ds mon prg.

Merci modeste d'ailleurs

 

[matis3854]

Re : fonction vba d'encadrement

bon je crois que personne ne me comprends bien lol

 

[Modeste]

Re : fonction vba d'encadrement

bonjour ... une fois de plus,

Il me semble que la demande est assez claire, maintenant. Il te reste à patienter un peu pour qu'un spécialiste de vba puisse mettre ça "en musique" ou en tout cas te donner des pistes à suivre.
En ce qui me concerne, je ne suis qu'un "bricoleur" en vba, c'est pour cela que je disais que je passais la main (d'autres feront ça plus proprement et plus rapidement que moi)

Modeste