Pb avec formule SI

Calvus

XLDnaute Barbatruc

• 29 Octobre 2010

• #2

Re : Pb avec formule SI

Bonsoir,

Le 0 est numérique.
Il faut donc enlever les guillemets.

=SI(A1=0;J1+1;0)

A+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 30 Octobre 2010

• #3

Re : Pb avec formule SI

Salut head_tatty

En effet, j' ai créer une macro dans laquelle j' incrémente une cellule contenant la formule SI.

Cliquez pour agrandir...

Moi, ce qui m'intéresse, c'est ta macro, pas une formule en adressage relatif qui ne veut rien dire (à Excel non plus semble-t-il) !!!
A+

 

Vote positif 0 Vote négatif

H

head_tatty

XLDnaute Nouveau

• 30 Octobre 2010

• #4

Re : Pb avec formule SI

Bonjour,

Voici ma macro :

Code:

Range("T2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-18]=""X"",RC[-5]+1,0)"
    Range("T2").Select
    Selection.AutoFill Destination:=Range("T2:AG2"), Type:=xlFillDefault
    Range("T2:AG2").Select
    Selection.AutoFill Destination:=Range("T2:AG2001")
    Range("T2:AG2001").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Cordialement,

 

Vote positif 0 Vote négatif

H

head_tatty

XLDnaute Nouveau

• 30 Octobre 2010

• #5

Re : Pb avec formule SI

Bonjour à tous,

Je rajoute que je l' ai créée grâce à l' enregistreur de macro.

Cordialement,

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 30 Octobre 2010

• #6

Re : Pb avec formule SI

Bonjour Head-Taty et tout le monde.

Si je fais exécuter ton code tel quel j'obtiens en T2 la formule :

Code:

=SI(B2="X";O2+1;0)

qu ne correspond pas à priori à ce que tu cherches suivant ton 1° post :

Code:

=SI(A1="0";J1+1;0)

Pour obtenir cela, il te faut modifier la macro comme ci-dessous :

VB:

Sub test()
    Range("T2").Select
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-19]=""0"",R[-1]C[-10],0)"
    Selection.AutoFill Destination:=Range("T2:AG2"), Type:=xlFillDefault
    Range("T2:AG2").Select
    Selection.AutoFill Destination:=Range("T2:AG2001")
    Range("T2:AG2001").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Voilà, j'espère que çe te fera progresser dans ton debuggage. A+

 

Vote positif 0 Vote négatif

H

head_tatty

XLDnaute Nouveau

• 30 Octobre 2010

• #7

Re : Pb avec formule SI

Bonjour,

Et si je veux que la formule soit:

Code:

=SI(B2="X";O2+1;0)

?

Cordialement,

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 30 Octobre 2010

• #8

Re : Pb avec formule SI

Re-bonsoir,

head_tatty à dit:

Et si je veux que la formule soit:

Code:

=SI(B2="X";O2+1;0)

?

Cliquez pour agrandir...

Alors tu ne changes rien.

Mais là, je me demande ce que tu veux vraiment car dans ta demande d'origine, tu dis :

head_tatty à dit:

J' ai un problème avec ma formule SI.
En effet, j' ai créer une macro dans laquelle j' incrémente une cellule contenant la formule SI. Mais une fois que la macro est finie, il y a des erreurs de valeurs.

Quelqu' un aurait-il une explication et une solution à ce problème ?

Voici la formule :

Code:

=SI(A1="0";J1+1;0)

Cliquez pour agrandir...

En tout cas, ton code testé sur un classeur chez moi fonctionne à la nuance près de la formule renvoyée mais il n'y a pas de valeur d'erreur. Si tu veux une réponse plus précise, iil te faut nous mettre en PJ ton fichier de travail déconfidentialisé.

A+

 

Vote positif 0 Vote négatif

H

head_tatty

XLDnaute Nouveau

• 30 Octobre 2010

• #9

Re : Pb avec formule SI

Bonsoir,

J' ai joint un fichier illustrant mon problème.

Cordialement,

 

Pièces jointes

• PbSI.xls

  26.5 KB · Affichages: 50
• PbSI.xls

  26.5 KB · Affichages: 56
• PbSI.xls

  26.5 KB · Affichages: 60

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 30 Octobre 2010

• #10

Re : Pb avec formule SI

Bonsoir head_tatty,

Franchement, t'es pas facile à suivre. On se retrouve maintenant avec un problème très différent de celui posé au départ.

D'après ce que j'ai compris de ton fichier, je te fais une proposition qui semble donner le résultat que tu escomptes.

Dis moi si c'est OK

A+

 

Pièces jointes

• PbSI.xls

  34 KB · Affichages: 57
• PbSI.xls

  34 KB · Affichages: 60
• PbSI.xls

  34 KB · Affichages: 59

Dernière édition: 30 Octobre 2010

Vote positif 0 Vote négatif

H

head_tatty

XLDnaute Nouveau

• 30 Octobre 2010

• #11

Re : Pb avec formule SI

Bonsoir,

La formule marche bien, merci, c' est bien ça.

Cordialement,

 

Vote positif 0 Vote négatif

H

head_tatty

XLDnaute Nouveau

• 31 Octobre 2010

• #12

Re : Pb avec formule SI

Bonjour,

Veuillez tous m' excuser car depuis le début je pensais avoir un problème alors que je me suis trompée dans l' insertion de ma formule :

Code:

=SI(B2="X";O2+1;0)

J' ai oublié qu' avec cette formule il fallait toujours ajouter 4 colonnes vides(qui ne sont pas à traiter) à la formule sinon il risquait d' y avoir des erreurs.

Donc ma formule corrigé est :

Code:

=SI(B2="X";[COLOR="Red"]S2[/COLOR]+1;0)

Cordialement,

 

Dernière édition: 31 Octobre 2010

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 31 Octobre 2010

• #13

Re : Pb avec formule SI

Bonjour head_tatty,

Ton fichier n'est pas passé.

Zippe le pour qu'il passe sous les 48.8 ko ou sinon, passe par le site cijoint.fr

A te (re)lire

@+

 

Vote positif 0 Vote négatif

H

head_tatty

XLDnaute Nouveau

• 31 Octobre 2010

• #14

Re : Pb avec formule SI

PS : J' ai modifié mon message ci-dessus.

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 5 Novembre 2010

• #15

Re : Pb avec formule SI

Salut head_tatty et le forum
Pas sûr de ce que tu veux...

Code:

Sub test()
    Range("T2").FormulaLocal = "=SI(B2="X";S2+1;0)"
    Range("T2").AutoFill Destination:=Range("T2:AG2") 
    Range("T2:AG2").AutoFill Destination:=Range("T2:AG2001")
    Range("T2:AG2001").Copy
    Range("T2:AG2001").PasteSpecial Paste:=xlPasteValues
End sub

A+

 

Vote positif 0 Vote négatif