envoyer des valeur à leurs remplacement (2 variables)

[yoker]

Bonjour le Forum,

j'ai une petite question comme d'habitude

sur une feuil j'ai un formulaire à remplir qui contien quelque champs, ID, Mois, et le nombre de vente.

La demande est de cliquer sur le bouton valider pour envoyer le nombre de vente sur la page correspendante au mois et devant la personne concernée (ID).

j'espère que j'ai bien expliquer ma demande

en PJ le mon fichier

 

[Caillou]

Re : envoyer des valeur à leurs remplacement (2 variables)

Bonjour,

essayes ce code derrière ton bouton

  Dim feu As String, id As String, vent As Integer
  feu = Range("B4")
  id = Range("B2")
  vent = Range("B6")
  
  Sheets(feu).Cells.Find(What:=id, After:=Range("A1")).Offset(O, 1) = vent

Caillou

 

[yoker]

Re : envoyer des valeur à leurs remplacement (2 variables)

Merci bcp Caillou