Discussion :

[lps02]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public LaLig As Long

2. Dans le module de la feuille Feuil1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lps02]

Super

Un grand merci à toi.

trois questions pour comprendre
1 pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

[lps02]

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