double click et userform

Bonsoir le forum

Besoin de vos lumières car je patauge...
Mon probleme : Base de données dans une feuille excel nommée "BD"
But : si il y a erreur dans données, pouvoir double cliquer sur la cellule concernée et faire apparaitre le formulaire correspondant. Qui contient les bases de la saisie (essence, n°, longueur, diametre et Reduction)
En Validant la correction, les calculs se referont pour mettre à jour le reste des donnees (volume...)
les valeurs de chaque controle du formulaire seront égale à celle des cellules de la base "BD" correspondante.
Exemple de ce que j'ai fait:

Code:

---

TxtEssence.Value=sheets("BD").Range("A"&i).value

---

(i étant la ligne sélectionnée lors du double click) mais ça ne marche pas ainsi.


Je pensais à beforedoubleclick mais avoue patauger et ne sais comment faire.

Votre avis?

Un exemple à comprendre pour adapter à ton cas.
J'ai un userform avec 2 TextBox et un Bouton.
Quand je double clique sur une cellule de la feuille Feuil1, l'userform s'affiche avec la valeur de la colonne A dans TextBox1 et celle de la colonne B dans TextBox2.
Je modifie ces valeurs et je valide à l'aide du Bouton, les valeurs seront modifiées dans la feuille Feuil1 aux endroits correspondants.

Pour cela j'utilise une variable publique LaLig qui va contenir la ligne du double clique qui est celle à modifier.

1. Dans un module public, on fait la déclaration de notre variable publique

Code:

---

Public LaLig As Long

---

2. Dans le module de la feuille Feuil1

Code:

---

1 2 3 4 5 6

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

---

3. Dans le module de l'userform

Code:

---

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

Private Sub UserForm_Initialize()   If LaLig > 0 Then With Worksheets("Feuil1") Me.TextBox1.Value = .Range("A" & LaLig) Me.TextBox2.Value = .Range("B" & LaLig) End With End If End Sub   'Bouton de validation Private Sub CommandButton1_Click()   If LaLig > 0 Then With Worksheets("Feuil1") .Range("A" & LaLig) = Me.TextBox1.Value .Range("B" & LaLig) = Me.TextBox2.Value End With End If Unload Me End Sub   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)   LaLig = 0 End Sub

---

Super

Un grand merci à toi.

trois questions pour comprendre
1 pourquoi

Code:

---

1 2 3 4

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)   LaLig = 0 End Sub

---

2 je n'arrive pas à trouver la signification de "target"

3 pourquoi faire un module public

encore un grand merci. (J'étais sur la voie mais encore loin du résultat)

Cordialement

1. C'est à la ferméture de ton userform, la variable LaLig est initialisée à 0

2. Target est de type Range, c'est la cellule où on a double cliqué

3. LaLig est déclarée comme variable publique (dans un module ) pour être accessible de partout ton projet. Dans ton cas, c'est dans le module de la feuille et dans le module de ton userform

Merci encore de ton aide. Tes réponses me seront en plus très utiles à l'avenir.(J'ai en effet d'autre projets en tête mais j'avoue que c'est très prenant.
Que faut il faire pour gagner du temps ensuite et en faire gagner aux autres!!!!

merci encore et à bientôt
Cordialement