Remplacer résultat d'un calcul par autre valeur

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

re,

j'ai essayé les deux façon il n'y pas de message d'erreur mais ça ne fais
rien

voici un exemple de ma formule
=(((J1369+B1369)*('Mises à jour coûts unitaires'!$H$14+'Mises à jour coûts
unitaires'!$H$13))+(1*'Mises à jour coûts unitaires'!$H$16)+(1*'Mises à jour
coûts unitaires'!$H$18))-((J1369+B1369)*('Mises à jour coûts
unitaires'!$H$22))

titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

peut être qu'excel evalu "c" a plus de 2 décimals après le point,
essaie comme ça,

If Format(c, "0.0") = 133.6 Then Range("A1") = 0

isabelle

re,

j'ai essayé les deux façon il n'y pas de message d'erreur mais ça ne fais
rien

voici un exemple de ma formule
=(((J1369+B1369)*('Mises à jour coûts unitaires'!$H$14+'Mises à jour coûts
unitaires'!$H$13))+(1*'Mises à jour coûts unitaires'!$H$16)+(1*'Mises à jour
coûts unitaires'!$H$18))-((J1369+B1369)*('Mises à jour coûts
unitaires'!$H$22))

titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

j'essaye mais ça ne fonctionne pas, si je veux faire sur la colonne de P1à
P5000
que dois je mettre dans Range ("A1")

peut être qu'excel evalu "c" a plus de 2 décimals après le point,
essaie comme ça,

If Format(c, "0.0") = 133.6 Then Range("A1") = 0

isabelle

re,

j'ai essayé les deux façon il n'y pas de message d'erreur mais ça ne fais
rien

voici un exemple de ma formule
=(((J1369+B1369)*('Mises à jour coûts unitaires'!$H$14+'Mises à jour coûts
unitaires'!$H$13))+(1*'Mises à jour coûts unitaires'!$H$16)+(1*'Mises à jour
coûts unitaires'!$H$18))-((J1369+B1369)*('Mises à jour coûts
unitaires'!$H$22))

titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

bonjour titou,

si tu peut, dépose ton fichier ici :

http://www.cjoint.com

et reviens donner ici le lien de téléchargement que le site va donner.
je pourrai alors le télécharger et regarder de plus pret.

isabelle

j'essaye mais ça ne fonctionne pas, si je veux faire sur la colonne de P1à
P5000
que dois je mettre dans Range ("A1")

peut être qu'excel evalu "c" a plus de 2 décimals après le point,
essaie comme ça,

If Format(c, "0.0") = 133.6 Then Range("A1") = 0

isabelle

re,

j'ai essayé les deux façon il n'y pas de message d'erreur mais ça ne fais
rien

voici un exemple de ma formule
=(((J1369+B1369)*('Mises à jour coûts unitaires'!$H$14+'Mises à jour coûts
unitaires'!$H$13))+(1*'Mises à jour coûts unitaires'!$H$16)+(1*'Mises à jour
coûts unitaires'!$H$18))-((J1369+B1369)*('Mises à jour coûts
unitaires'!$H$22))

titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

voici le lien :

http://cjoint.com/?fxtyrp3WCK

Merci

Titou

bonjour titou,

si tu peut, dépose ton fichier ici :

http://www.cjoint.com

et reviens donner ici le lien de téléchargement que le site va donner.
je pourrai alors le télécharger et regarder de plus pret.

isabelle

j'essaye mais ça ne fonctionne pas, si je veux faire sur la colonne de P1à
P5000
que dois je mettre dans Range ("A1")

peut être qu'excel evalu "c" a plus de 2 décimals après le point,
essaie comme ça,

If Format(c, "0.0") = 133.6 Then Range("A1") = 0

isabelle

re,

j'ai essayé les deux façon il n'y pas de message d'erreur mais ça ne fais
rien

voici un exemple de ma formule
=(((J1369+B1369)*('Mises à jour coûts unitaires'!$H$14+'Mises à jour coûts
unitaires'!$H$13))+(1*'Mises à jour coûts unitaires'!$H$16)+(1*'Mises à jour
coûts unitaires'!$H$18))-((J1369+B1369)*('Mises à jour coûts
unitaires'!$H$22))

titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

bonjour Titou,

tu dis,

j'aimerai remplacer toutes les valeur qui sont égale à 0 , 133,6 …etc par "rien"

est ce à dire qu'il faut effacer le contenu des cellules qui sont soit égale à 0 ou égale à 133.6
http://cjoint.com/?fxuxTVZDZc

isabelle

voici le lien :

http://cjoint.com/?fxtyrp3WCK

Merci

Titou

bonjour titou,

si tu peut, dépose ton fichier ici :

http://www.cjoint.com

et reviens donner ici le lien de téléchargement que le site va donner.
je pourrai alors le télécharger et regarder de plus pret.

isabelle

j'essaye mais ça ne fonctionne pas, si je veux faire sur la colonne de P1à
P5000
que dois je mettre dans Range ("A1")

peut être qu'excel evalu "c" a plus de 2 décimals après le point,
essaie comme ça,

If Format(c, "0.0") = 133.6 Then Range("A1") = 0

isabelle

re,

j'ai essayé les deux façon il n'y pas de message d'erreur mais ça ne fais
rien

voici un exemple de ma formule
=(((J1369+B1369)*('Mises à jour coûts unitaires'!$H$14+'Mises à jour coûts
unitaires'!$H$13))+(1*'Mises à jour coûts unitaires'!$H$16)+(1*'Mises à jour
coûts unitaires'!$H$18))-((J1369+B1369)*('Mises à jour coûts
unitaires'!$H$22))

titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou

Bonjour,

Je voudrais remplacer le résultat qui valent 0 , 133.6 ...etc par "rien"
mais je ne veux surtout pas effacer la formule qu'il y a dans les cellules.

bonjour Titou,

tu dis,

j'aimerai remplacer toutes les valeur qui sont égale à 0 , 133,6 …etc par "rien"

est ce à dire qu'il faut effacer le contenu des cellules qui sont soit égale à 0 ou égale à 133.6
http://cjoint.com/?fxuxTVZDZc

isabelle

voici le lien :

http://cjoint.com/?fxtyrp3WCK

Merci

Titou

bonjour titou,

si tu peut, dépose ton fichier ici :

http://www.cjoint.com

et reviens donner ici le lien de téléchargement que le site va donner.
je pourrai alors le télécharger et regarder de plus pret.

isabelle

j'essaye mais ça ne fonctionne pas, si je veux faire sur la colonne de P1à
P5000
que dois je mettre dans Range ("A1")

peut être qu'excel evalu "c" a plus de 2 décimals après le point,
essaie comme ça,

If Format(c, "0.0") = 133.6 Then Range("A1") = 0

isabelle

re,

j'ai essayé les deux façon il n'y pas de message d'erreur mais ça ne fais
rien

voici un exemple de ma formule
=(((J1369+B1369)*('Mises à jour coûts unitaires'!$H$14+'Mises à jour coûts
unitaires'!$H$13))+(1*'Mises à jour coûts unitaires'!$H$16)+(1*'Mises à jour
coûts unitaires'!$H$18))-((J1369+B1369)*('Mises à jour coûts
unitaires'!$H$22))

titou

bonjour titou,

soit tu mets la condition et son action sur la même ligne, on peut faire ça quand il y a une seule action àpres "Then",

Private Sub essai()
For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then Range(c.Address) = 0
Next
End Sub

soit tu déplace la commande End If,

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
End If
Next
End Sub

isabelle

Bonjour isabelle,

J'ai un souci avec le code , il me donne l'erreur de compilattion Next sans
For
voici ce que j'ai taper:

Private Sub essai()

For Each c In Range("P1:P" & Range("P5000").End(xlUp).Row)
If c = 133.6 Then
Range(c.Address) = 0
Next

End If


End Sub

bonjour titou,

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = 166.3 Then Range(c.Address) = 0
Next


isabelle

Bonjour,

J'ai dans une feuil excel 6 colonnes avec des formules différentes pour
chaque colonne.
J'aimerai mettre certain résultat à 0.

Ex : dans une colonne 1 tous les résultat donnée de la formule quisont égaux
à 133.6 je veux les mettre à 0 et idem pour cahque colonne.

pour la colonne 2 ce sera 57.2...etc

j'ai deux code différents mais cela ne fonctionne pas

Merci d'avance

Titou