Discussion :

[titouneee]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marsupilami34]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marsupilami34]

Erreur de manip de ma part
Désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[titouneee]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[titouneee]

Erreur de manip de ma part
Désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[cafeine]

Hello,

dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,..)"

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[titouneee]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"