remplacer le contenu d'une cellule par un autre avec une macro

bonjour à tous,

je souhaite créer une macro pour modifier le contenu d'une cellule par un autre dans une autre feuille.

c'est un fichier de gestion de stock, ce qui me permettrais d'effectuer une recherche (RechercheV) rapide sur la position d'un de mes matériels et d'ensuite de changer sa position suite à un mouvement ou une mise en rep ...

La macro serait pour "valider la position" dans la feuille "MENU",
je vous joint mon xls,

Merci d'avance de votre aide,

yohann

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ChangerPosition() Dim NumSer As String, Pos As String Dim c As Range   With Worksheets("MENU") NumSer = .Range("F5").Value Pos = .Range("F11").Value End With   If NumSer <> "" Then Set c = Worksheets("GOBAL").Range("BD").Find(NumSer, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then c.Offset(0, 5) = Pos Set c = Nothing End If End If End Sub

---

Que dire :mrgreen:

Un grand merci a toi Mercatog pour cette macro qui fonctionne à merveille.:ccool:

bonne journée à tous