Pb avec formule SI

[head_tatty]

Bonsoir,

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 :

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

Cordialement,

 

[Calvus]

Re : Pb avec formule SI

Bonsoir,

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

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

A+

 

[Gorfael]

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.

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+

 

[head_tatty]

Re : Pb avec formule SI

Bonjour,

Voici ma macro :

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,

 

[head_tatty]

Re : Pb avec formule SI

Bonjour à tous,

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

Cordialement,

 

[Fred0o]

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 :

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

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

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

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

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+

 

[head_tatty]

Re : Pb avec formule SI

Bonjour,

Et si je veux que la formule soit:

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

?

Cordialement,

 

[Fred0o]

Re : Pb avec formule SI

Re-bonsoir,

Et si je veux que la formule soit:

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

?

Alors tu ne changes rien.

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

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 :

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

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+

 

[head_tatty]

Re : Pb avec formule SI

Bonsoir,

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

Cordialement,

 

[Fred0o]

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+

 

[head_tatty]

Re : Pb avec formule SI

Bonsoir,

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

Cordialement,

 

[head_tatty]

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 :

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

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

Cordialement,

 

[Tibo]

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

@+

 

[head_tatty]

Re : Pb avec formule SI

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

 

[Gorfael]

Re : Pb avec formule SI

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

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+