textbox à données variables

Bonsoir,

J'ai un tableau excel.
J'ai également un bouton qui me permet de créer une nouvelle ligne dans le tableau.
La dernière colonne du tableau un USF s'affiche après un double clic dans la cellule.

Ce que j'aimerais faire :
1° Quand on double clique, l'USF s'affiche (je sais faire)
2° L'utilisateur remplit le textbox
3° quand le textbox se ferme, les données saisies sont renvoyées faire les cellules H, I et J de la ligne où l'utilisateur a double cliqué (c'est ce que je ne sais pas faire).

Alors, comment faire ?

Merci

Bonsoir

1. Dans un module standard, déclare cette variable en public

Code:

---

1 2	Option Explicit Public LaLigne As Long

---

2.Dans le module de ta feuille (évènement BeforDoubleClick)

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   Cancel = True LaLigne = Target.Row UserForm1.Show End Sub

---

3. Dans le bouton de validation des données de ton userform

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click()   If LaLigne > 0 Then Range("H" & LaLigne) = Me.TextBox1 Range("I" & LaLigne) = Me.TextBox2 LaLigne = 0 Unload Me End If End Sub

---

Bonsoir,

ça fonctionne nikel.
Par contre j'ai oublié de préciser que j'aimerais également que quand on double clique sur la cellule le USF s'affiche et récupère les valeurs de la ligne.

J'ai tout bêtement fait ça mais ça ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Userform1_Initialize() If LaLigne > 0 Then Me.TextBox1 = Range("H" & LaLigne) Me.TextBox2 = Range("I" & LaLigne) LaLigne = 0 Unload Me End If End Sub

---

Attention à ce que tu écris
d'abord

Code:

---

Private Sub Userform1_Initialize()

---

Le 1 ne veut rien dire.

Ensuite le code est à mettre dans le module de ton userform:

Code:

---

1 2 3 4 5 6 7

Private Sub Userform_Initialize()   If LaLigne > 0 Then Me.TextBox1 = Range("H" & LaLigne) Me.TextBox2 = Range("I" & LaLigne) End If End Sub

---