Transfert de la formule

bonjour j'ai ceci dans un userform

Code:

---

TextBox2.Value = Sheets("Cotisations").Range("S5").Value

---

très bien! mais si je valide je souhaiterai avoir la formule dans la cellule

Code:

---

.Cells(Lg + 1, 7) = TextBox2.Value ''' montant

---

es ce possible ?

Bonjour,

Tu parles de formule mais c'est les valeurs que tu utilise ! Tu veux quoi plus précisément ? Récupérer la valeur dans le TextBox puis la transférer dans une autre cellule ? Si c'est le cas, c'est très simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click()   TextBox2.Value = Sheets("Cotisations").Range("S5").Value   Cells(lg + 1, 7) = TextBox2.Value   'mais plus rapide : Cells(lg + 1, 7) = Sheets("Cotisations").Range("S5").Value   End Sub

---

Reviens avec plus de précisions si je suis dans le faux

Hervé.

je souhaite tout simplement mettre la formule dans

Code:

---

Cells(lg + 1, 7)

---

et non la valeur
ceci et a modifier!si c'est possible quand je valide
.Cells(Lg + 1, 7) = TextBox2.Value

Citation:

---

Envoyé par pilounet54

je souhaite tout simplement mettre la formule dans

Code:

---

Cells(lg + 1, 7)

---

et non la valeur

---

Bonjour,

Si j'ai compris ton problème, essaies :

Code:

---

Cells(lg + 1, 7) = Sheets("Cotisations").Range("S5").Formula

---

Bertrand

efficace et rapide cela fonctionne
merci beaucoup:ccool: