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

**jess8931** · 21/04/2017, 12h41

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

**zoom61** · 21/04/2017, 15h04

Salut,

Avec une petite macro du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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