macro excel : affectation d'une formule à une cellule

Bonjour,

Je souhaiterai, à l'aide d'une macro, affecter une formule à ma cellule, j'utilise le code (tout simple) suivant :
Code:

1 2 3 4 5 6 7 8 9 colonne = 16 For i = 1 To 5 If Cells(i, colonne) <> "" Then Cells(i, colonne).Value = "PDD" End If Next
à la place de "PDD", je souhaiterai mettre la formule suivante :
=SI($E14="PDD";"PDD";"A")

Si je mets directement ma formule à la place de PDD, j'ai un pb de syntaxe à cause des ".

comment dois-je l'intégrer dans mon code ?

Merci pour votre aide

Titoune

Citation:
Envoyé par titouneee
Bonjour,

Je souhaiterai, à l'aide d'une macro, affecter une formule à ma cellule, j'utilise le code (tout simple) suivant :
Code:

1 2 3 4 5 6 7 8 9 10 colonne = 16 For i = 1 To 5 If Cells(i, colonne) <> "" Then Cells(i, colonne).select ActiveCell.FormulaR1C1 = "SI($E14=""PDD"";""PDD"";""A"")" End If Next
à la place de "PDD", je souhaiterai mettre la formule suivante :
=SI($E14="PDD";"PDD";"A")

Si je mets directement ma formule à la place de PDD, j'ai un pb de syntaxe à cause des ".

comment dois-je l'intégrer dans mon code ?

Merci pour votre aide

Titoune

Bonjour,

pour répondre à ton problème de syntaxe, je pense qu'en doublant simplement les guillemets (") à l'intérieur de la chaine cela devrait passer.

Code:

Cells(i, colonne).Value = "=SI($E14=""PDD"";""PDD"";""A"")"

Si toutefois un problème persiste, utilise en plus la propriété Formula de l'objet Range (ici ta cellule) sans le égal (=) au début de ton argument.

Voilà, en espérant que cela résolve ton soucis ;)

Erreur de manip de ma part :oops:
Désolé

Code:

1
2
3
4
5
6
7
8
9
10
11
 
colonne = 16
 
For i = 1 To 5
 
    If Cells(i, colonne) <> "" Then
        Range(Cells(i, colonne)).Select
        ActiveCell.FormulaR1C1= "=IF($E14=""PDD"",""PDD"",""A"")"
    End If
 
Next

:salut:

Code:

1
2
3
4
5
6
colonne = 16
For i = 1 To 5
    If Cells(i, colonne) <> "" Then
        Cells(i, colonne).FormulaLocal = "=SI($E14=""PDD"";""PDD"";""A"")"
    End If    
Next

Devrait mieux fonctionner ;)

Citation:

Envoyé par agueffier

Bonjour,

pour répondre à ton problème de syntaxe, je pense qu'en doublant simplement les guillemets (") à l'intérieur de la chaine cela devrait passer.

Code:

Cells(i, colonne).Value = "=SI($E14=""PDD"";""PDD"";""A"")"

Si toutefois un problème persiste, utilise en plus la propriété Formula de l'objet Range (ici ta cellule) sans le égal (=) au début de ton argument.

Voilà, en espérant que cela résolve ton soucis ;)

Merci pour ton aide :-)

J'ai l'erreur suivante : "Erreur definie par l'application ou l'objet"

Citation:
Envoyé par marsupilami34
Erreur de manip de ma part :oops:
Désolé
Code:

1 2 3 4 5 6 7 8 9 10 11 colonne = 16 For i = 1 To 5 If Cells(i, colonne) <> "" Then Range(Cells(i, colonne)).Select ActiveCell.FormulaR1C1= "=IF($E14=""PDD"",""PDD"",""A"")" End If Next
Merci pour ton aide également mais j'obtiens l'erreur suivante en exécutant ce code : "La méthode 'Range' de l'objet '_Global' a échouée"

Citation:

Envoyé par BrunoM45

:salut:

Code:

1
2
3
4
5
6
colonne = 16
For i = 1 To 5
    If Cells(i, colonne) <> "" Then
        Cells(i, colonne).FormulaLocal = "=SI($E14=""PDD"";""PDD"";""A"")"
    End If    
Next

Devrait mieux fonctionner ;)

Ca fonctionne bien, merci !!

Hello,

dans

Code:

FormulaR1C1 = .... E14 ....

d'emblée, il y a comme qui dirait incohérence.

Suivant le mode de saisie de la formule ...

FormulaLocal = "SI(..;...E14;..)"
FormulaR1C1 = "IF(..,...R14C5,..)"
Formula = "IF(..,...E14,..)"