Remplacement d'un contenu de cellule par le contenu d'une autre cellule

Bonjour,

J'ai un tableau de produits avec les stocks actuels (B) et les nouveaux stocks (C).
Cependant la colonne nouveau stock contient des #N/D car ces références ne sont pas dans le nouveau stock (nous avons plusieurs fournisseurs et donc plusieurs fichiers de nouveaux stocks).

Je souhaiterais que mettre à jour la colonne STOCK (B)
Si la colonne NOUVEAU STOCK différent de #N/D alors je souhaiterais que la colonne B soit remplacée par la valeur de la colonne C
Si la valeur de la colonne NOUVEAU STOCK = #N/D alors je souhaiterais que la valeur de la colonne B reste identique.

Je vous met en pj le fichier



J'espère avoir été claire.

Merci

Salut,

Avec une petite macro du style :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub Test() Dim monDocument As Object Dim lesFeuilles as Object Dim maFeuille As Object Dim maCellule As Object Dim maPosition As Object Dim ValCellile as string     monDocument = ThisComponent lesFeuilles = monDocument.Sheets maFeuille = lesFeuilles.getByName("Feuille1")     maPosition = maFeuille.createCursor maPosition.gotoEndOfUsedArea(False) DerniereLig = maPosition.RangeAddress.EndRow   For i = 2 to DerniereLig maCellule = maFeuille.getCellRangeByName("C" & i) ValCellule = maCellule.String if ValCellule <> "#N/D" then maCellule = maFeuille.getCellRangeByName("B" & i) maCellule.Value = ValCellule end if Next     End sub

---

Merci pour votre aide mais je ne sais pas me servir des macros.

Comment faire?

Il faut enregistrer une macro?

Je n'y arrive pas.

Merci

Bonjour,

Je joins un fichier, qui sera plus clair que des explications alambiquées

Citation:

---

Envoyé par jess8931

Merci pour votre aide mais je ne sais pas me servir des macros.

Comment faire?

Il faut enregistrer une macro?

---

Tu as une réponse ici.