Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 [Résolu]Problème formule dans vba

david38550

XLDnaute Nouveau
Bonjour à tous,

Je n'arrive pas à trouver la syntaxe correcte pour ma formule.
Lorsque je lance ma macro j'ai un message d'erreur " '1004' Erreur définie par l'application ou par l'objet" lorsque j'arrive sur la ligne suivante:
.Formula = "=if(" & maValeur2 & " ="""", """", " & maValeur2 & ") "

Quand je lance la macro en pas à pas, maValeur2=""

Sub plastic_amb_inter()

Dim maplage As Range

Dim maValeur2 As Variant


i = 1
j = 67
'------------------------------------------------------------------------
'on récupère le nombre de condition pour copier autant de fois le tableau
'------------------------------------------------------------------------
nOmbre_condition = UserForm1.TextBox1.Value
'------------------------------------------------------------------------------------------
'on sélectionne le tableau plastique avec condition intermédiaire dans la feuille "Modèle"
'------------------------------------------------------------------------------------------
Set maplage = Sheets("Modèle").Range("plastique_inter")

'------------------------------------------------------------------------------------------
'On déverrouille la feuille "Summary" et on y colle autant de tableaux que de conditions
'------------------------------------------------------------------------------------------
Sheets("Summary").Unprotect Password:=""
For i = 1 To nOmbre_condition
maplage.Copy Destination:=Sheets("Summary").Range("A1").Offset(j, 0)
Sheets("Summary").Range("a6").Offset(0, i) = i
Sheets("Summary").Range("a1").Offset(j, 3) = i


With Sheets("Summary").Range("a1").Offset(j + 2, 2)
.FormulaR1C1 = "=if(R8C[" & i - 2 & "]="""" , """" , R8C[" & i - 2 & "])"
End With
With Sheets("Summary").Range("a1").Offset(j + 2, 5)
.FormulaR1C1 = "=if(R7C[" & i - 5 & "]="""","""",R7C[" & i - 5 & "])"
.Name = "SampleName" & i
End With

maValeur2 = Sheets("Tests Forces").Range("Active_T0_cond" & i).Value
With Sheets("Summary").Range("a" & j).Offset(11, 3)
.Formula = "=if(" & maValeur2 & " ="""", """", " & maValeur2 & ") "

End With
j = j + 55


Next i


Est ce que c'est un problème de syntaxe?

Si quelqu'un peut m'aider sur ce problème...

Merci
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
Re : Problème formule dans vba

Bonsoir.
À première vue, pas de problème de syntaxe. Voir la valeur de i et le contenu de la cellule nommée "Active_T0_cond" suivi de ce nombre. Si elle est vide c'est normal que ça plante puisque "=if( ="", "", ) " ne constitue pas une formule valide.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…