VBA - Insérer une formule dans une cellule Résolu

Question

Bien le bonjour, 

Je réussi généralement à trouver réponses à mes questions les plus complexes en naviguant mais là je suis dans une impasse.

Je tente d'insérer dans une cellule une formule qui valide si deux autres cellules ne sont pas vide avant d'effectuer un calcul de différence.

Voici la formule:

=SI(estvide(DAPB!B16);"";SI(estvide(Structurel!B16);"";Structurel!B16-DAPB!B16))


Voici le code:

'Identifier les feuilles de données
Set source1 = Sheets(Worksheets.Count).Range("B15")
Set source2 = Sheets(Worksheets.Count).Range("B15:H33")
        
'insérer la formule dans le tableau
Sheets(Worksheets.Count).Cells("B15").Value = "Formule a insérer"
source1.Copy Destination:=source2

Après plusieurs test, j'ai trouvé que c'est dans la ligne d'insertion de formule que ca plante
J'ai vraiment essayé plusieurs façons d'écrire la formule sans succes:

Doubler les guillemets:
=SI(estvide(DAPB!B16);"""";SI(estvide(Structurel!B16);"""";Structurel!B16-DAPB!B16))

Remplacer le estvide() par un égal:
=SI(DAPB!B16="""";"""";SI(Structurel!B16="""";"""";Structurel!B16-DAPB!B16))

J'ai également testé avec le code ascii des guillemets.

Merci de votre temps

Zefirin · Answer

J'ai oublié de préciser que DAPB et Structurel sont les feuilles de référence pour la validation et le calcul.
On est jamais trop clair en prog...

Paf · Answer

bonjour, 
il suffit de remplacer les points virgules par des virgules !!! 

bonne suite

Mike-31 · Answer

Salut,

regarde comme cela

=SI(ET(DAPB!B16<>"";Structurel!B16<>"");Structurel!B16-DAPB!B16;"")

ou encore

=SI(OU(ESTVIDE(DAPB!B16);ESTVIDE(Structurel!B16));"";Structurel!B16-DAPB!B16)

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Zefirin · Answer

Paf 25 mai 2012 à 19:15 
bonjour, 
il suffit de remplacer les points virgules par des virgules !!! 

Les fonctions SI() dans excel prennent des points-virgules pour séparer ses arguments. Il n'acceptent pas les simples virgules.

Mike-31, j'apprécie ta réponse car en effet ma formule n'était pas optimale.

Cependant, je pense que je me suis mal exprimé. 
Je sais que la formule fonctionne car je peux la copier/coller tel quel dans mon fichier excel et tout fonctionne. 
Je sais également que mon code fonctionne car je peux remplacer le string de la formule par un mot test tel que "Test" et il va afficher "Test" dans les bonnes cellules.
Ce qui ne fonctionne pas, c'est que VBA n'est pas en mesure de lire avec succès le string: 
"=SI(estvide(DAPB!B16);"";SI(estvide(Structurel!B16);"";Structurel!B16-DAPB!B16))"

L'erreur suivante m'est affiché sur la lecture de cette ligne:
Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet

Utilisateur anonyme · Answer

Bonjour,

Suggestion :

<code>
Dim Formule As String
    
'"=SI(estvide(DAPB!B16);"";SI(estvide(Structurel!B16);"";Structurel!B16-DAPB!B16))"

Formule = "=SI(estvide(DAPB!B16);"
Formule = Formule & """" & """"
Formule = Formule & ";SI(estvide(Structurel!B16);"
Formule = Formule & """" & """"
Formule = Formule & ";Structurel!B16-DAPB!B16))"
    
MsgBox Formule

Cdt

Lupin

eriiic · Answer

Bonjour tout le monde,  

en plus du remplacement des ; par la , je mettrai plutôt :  
Sheets(Worksheets.Count).Cells("B15").formulalocal= "Formule a insérer"   
au lieu de .Value   

Pourquoi , au lieu de ; ?  
En français la , sert de séparateur décimal et n'est pas disponible comme séparateur de liste et d'arguments.  
Les fonctions des feuilles ont été adaptées (d'ailleurs c'est un paramètre modifiable dans le panneau de configuration), vba n'a pas été localisé français et conserve sa ,  
eric

Utilisateur anonyme · Answer

Bonjour,

Je comprends ton point de vue, mais la pratique m'a convaincu
d'utiliser Value pour recevoir la formule car lorsque je construit
une formule par VBA, si je tente d'affecter une formule erroné
à l'une des propriétés Formula, FormulaLocal, FormulaR1C1,
il y aura Erreur de Typage alors que Value le prend même avec
l'erreur, puisqu'elle n'existe plus il s'agit simplement d'une
string.

Lupin

Utilisateur anonyme · Answer

re:

Voici les essais que j'ai fait sous Excel XP (2002)

    
Option Explicit

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2012-05-26 par Lupin
'

'
'    ActiveCell.FormulaR1C1 = "=IF(RC[3] > 2,RC[1] * RC[2],2)"
'    Range("B3").Select
    
    ' Erreur 1004
'    Range("B4").FormulaLocal = "=IF(E2 > 2,C2 * D2,2)"
    
    ' Erreur 1004
'    Range("B4").FormulaLocal = "=SI(E2 > 2,C2 * D2,2)"

    Range("B4").Value = "=IF(E2 > 2,C2 * D2,2)"
    
    Dim Expression As String
    
    Expression = Range("B4").Formula
    MsgBox Expression
    
End Sub


La première instruction placé en commentaire est
fait par l'enregistreur de macro, ce qui est une
position relative,pas très efficace à mon avis ...

il suffit de fonctionner comme la première instruction
qui n'est pas en commentaire. La chaine Expression
est plus malléable que celle de l'enregistreur. :-)

Enfin, je n'ai pas tout compris moi non plus, mais sous
VBA j'ai toujours travaillé avec une affectation sur Value
et une récupération sur Formula, FormulaLocal, FormulaR1C1


Cdt

Lupin

Utilisateur anonyme · Answer

Bonjour,

étrange, c'est à moi d'apprendre quelque chose :-)

j'utilise l'enregistreur pour connaitre la traduction
français anglais, mais je construit ainsi à partir
de l'instruction en ajoutant un adressage relatif ou
absolue pour créer la formule sous forme de String.

je vais essayer ta technique, je suis curieux de savoir
ce qu'il donneras en lecture sur la propriété FormulaLocal :-)

Cdt

Lupin

ccm81 · Answer

bonjour à tous

est ce que ce ne serait pas un problème de guillemets, chez moi (je ne sais pas si c'est dû à excel 2003), je dois remplacer les guillemets encadrant une chaine vide par deux chr(34)

pour obtenir ceci sur la feuille
=SI(ESTVIDE(Feuil2!A1);"";Feuil2!A1)

f = "=SI(ESTVIDE(Feuil2!A1);" & Chr(34) & "" & Chr(34) & ";Feuil2!A1)"
fonctionne 

 f = "=SI(ESTVIDE(Feuil2!A1);" & """" & ";Feuil2!A1)"
ne fonctionne pas

bonne suite

Zefirin · Answer

Merci à tous pour votre aide.

Je ne serais dire qui règla mon problème car je me suis inspiré de toutes vos réponses et maintenant ça fonctionne.

L'instruction FormulaLocal m'a permis de règler d'autres petites problèmes.

Bonne journée à tous.

VBA - Insérer une formule dans une cellule

11 réponses

Discussions similaires

Newsletters