VBA - Problème de formuleRésolu

Question

Bonjour,

Je chercher à inserer une formule dans une cellule car je veux qu'elle reste dans la cellule.

J'ai mis 
calc = "(Y" & no_ligne & "*AK" & no_ligne & "+AG" & no_ligne & "*AC" & no_ligne & ")/AS" & no_ligne & ")"
Sheets("2").Cells(no_ligne, 49).Value = "=IF(" & calc & "<100 , 100, " & calc & ")"

Merci d'avance pour votre aide !

vince

ucfoutu · Accepted Answer

Voici en tout état de cause le résultat en cellule cells(3,49) pour no_ligne = 3 =IF((Y3*AK3+AG3*AC3)/AS3)<100 , 100, (Y3*AK3+AG3*AC3)/AS3)) ce qui, transformé pour excel (formulalocal en français) donne: =SI((Y3*AK3+AG3*AC3)/AS3)<100; 100; (Y3*AK3+AG3*AC3)/AS3)) qui est en erreur, y compris entré manuellement. ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Genildf · Answer

J'ai aps trou compris mais je pense que ton erreur est la : 


calc =  "(Y" & no_ligne & "*AK" & no_ligne & "+AG" & no_ligne & "*AC" & no_ligne & ")/AS" & no_ligne & ")" &
Sheets("2").Cells(no_ligne, 49).Value & "=IF(" & calc & "<100 , 100, " & calc & ")"


les  &  autour de Sheets("2").Cells(no_ligne, 49).Value et le signe  = qui n'a rien a faire la

cs_Vincb9 · Answer

Non ca ne marche toujour pas 

Je pense que ça vient de ma formule car j'en ai une autre qui a bien fonctionnée

vince

ucfoutu · Answer

Bonjour,
Pas vraiment clair, mais je crois deviner que tu souhaites que la valeur de la cellule où tu mets cette formule change en fonction d'un changement dans d'autres cellules ?
Si oui : le plus simple est probablement de faire une fonction personnalisée (à mettre dans un module en public). Tu pourras ensuite te servir de cette fonction, dans une formule de cellule, exactement comme tu te sers des fonctions de Excel

Ceci étant dit, ta variable calc, telle qu'écrite, retourne une chaîne littérale de caractères et non une valeur numérique ! Bizarre ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Voilà ce que contient la variable calc : pour no_ligne = 3 ===>> la chaîne de caractères (pas une valeur, mais bel et bien une chaôine de caractères) :
(Y3*AK3+AG3*AC3)/AS3)


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_Vincb9 · Answer

Désolé je débute c'est pour ça que c'est pas vraiment propre mes code mais ça ça m'embete.

Pour que tu t'imagine mieux la chose, je souhaite faire un userform où je vais choisir les différent article que je souhaite avoir dans ma cotation mais je vaus avoir des formules dans les cellules car je peut modifier une valeur et cela me changera tout...



vince

cs_JLuc01 · Answer

Bonjour,

Pas sur d'avoir tout compris non plus.
Mais, je pense qu'il manque une parenthese au debut (premiere ligne).

JLuc01

cs_Vincb9 · Answer

Pourquoi c'est en erreur ucfoutu ?

vince

ucfoutu · Answer

Pourquoi c'est en erreur ucfoutu ?


Par constat ! Je ne suis même pas allé plus loin, car là, c'est du Excel et plus du VBA
Entre cela manuellement et tu le constateras également (y compris si valeur dans AS3 pour éviter une division par 0)

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_Vincb9 · Answer

D'accord très bien je peut te poser une autre question que tu arrivera à repondre vite ?

vince

cs_Vincb9 · Answer

Je peut poser une derniere question avant de fermer cette discussion  ?

vince

ucfoutu · Answer

Tu peux surtout faire des tests simple de formules, hein, pour constater. Et une autre fois : ce n'est là que la connaissance de Excel et non de VBA ! Tu as comme moi deux mains, un clavier et des neurones ? Regarde donc (en deux minuscules tests) : ceci : =SI((A1+A2) /A1< 100; 100; 50) ne provoquerait pas d'erreur et ceci =SI((A1+A2) /A1)< 100; 100; 50) planterait, bien évidemment OK ? ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

et donc : =SI((Y3*AK3+AG3*AC3)/AS3<100; 100; (Y3*AK3+AG3*AC3)/AS3) au lieu de =SI((Y3*AK3+AG3*AC3)/AS3)<100; 100; (Y3*AK3+AG3*AC3)/AS3)) Et donc : changer ta chaîne à la base en conséquence. ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

VBA - Problème de formule

13 réponses

Votre réponse

Discussions similaires