Remplacer résultat d'un calcul par autre valeur

Le
titou
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.2etc

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

Merci d'avance

Titou
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4529731
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




titou
Le #4527991
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







isabelle
Le #4527971
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









titou
Le #4527931
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












isabelle
Le #4527911
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













titou
Le #4527791
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
















isabelle
Le #4527741
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

















titou
Le #4527611
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




















isabelle
Le #4527411
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





















titou
Le #4552671
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
























Publicité
Poster une réponse
Anonyme