OVH Cloud OVH Cloud

VBA replacer les 0

2 réponses
Avatar
Anne
Bonjour,
J'ai une macro qui me permet de faire une mise à jour de prix chaque semaine
à partir d'un fichier txt.
Lorsque certains prix manquent dans ce fichier txt, ma macro renvoie la
valeur 0. Je voudrais que la case reste vide. Je voudrais donc:
-soit que la macro laisse une case vide
- soit, à la fin de la mise à jour, remplacer les cases où il y a 0 par
rien. J'ai essayé la fonction Remplacer, mais du coup, j'enlève tous les 0 de
la série (ex: 1.09 devient 1.9).
Quelle serait la fonction à utiliser pour ma macro?

Merci d'avance,

Anne.

2 réponses

Avatar
Daniel
Bonjour.
Dans l'exemple qui suit, si la cellule A1 est égale à 0, elle est
réinitialisée :

Dim Var As String
If [A1] = 0 Then [A1] = Var

Cordialement.
Daniel
"Anne" a écrit dans le message de news:

Bonjour,
J'ai une macro qui me permet de faire une mise à jour de prix chaque
semaine
à partir d'un fichier txt.
Lorsque certains prix manquent dans ce fichier txt, ma macro renvoie la
valeur 0. Je voudrais que la case reste vide. Je voudrais donc:
-soit que la macro laisse une case vide
- soit, à la fin de la mise à jour, remplacer les cases où il y a 0 par
rien. J'ai essayé la fonction Remplacer, mais du coup, j'enlève tous les 0
de
la série (ex: 1.09 devient 1.9).
Quelle serait la fonction à utiliser pour ma macro?

Merci d'avance,

Anne.


Avatar
Elliac
Bonjour Anne,

Soit prévoir dans ta macro s'il n'y a pas de prix de ne pas faire le calcul
ou ne rien mettre dans la cellule, soit effectivement remplacer les 0 après
coup. Ton problème est de mentionner le remplacement des 0 comme cellule
entière :

Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:úlse

Camille

"Anne" wrote:

Bonjour,
J'ai une macro qui me permet de faire une mise à jour de prix chaque semaine
à partir d'un fichier txt.
Lorsque certains prix manquent dans ce fichier txt, ma macro renvoie la
valeur 0. Je voudrais que la case reste vide. Je voudrais donc:
-soit que la macro laisse une case vide
- soit, à la fin de la mise à jour, remplacer les cases où il y a 0 par
rien. J'ai essayé la fonction Remplacer, mais du coup, j'enlève tous les 0 de
la série (ex: 1.09 devient 1.9).
Quelle serait la fonction à utiliser pour ma macro?

Merci d'avance,

Anne.