Discussion :

[Kaytilou]

Bonjour,
J'ai créer un formulaire de saisie permettant de créer une base de données dans un tableau excel. Tous les champs ne seront pas complétés dans un premier temps. J'ai besoin de rappeler le formulaire afin de pouvoir mettre à jour les données dans un deuxième temps.

Le principe est de sélectionner doubler cliquer sur une cellule d'une ligne
Le formulaire s'ouvre en reprenant et les données de la base de donnée,
Les modifications sont apportées
Et ensuite on enregistre les modifications.

Je n'arrive pas à trouver le code pour cela ?

Voici le fichier déjà bien avancé.
Merci pour votre aide
Bonne journée

[Thautheme]

Bonjour Kaytilou, bonjour le forum,

Dans la fenêtre des propriétés, il te faut donner aux contrôles que l'utilisateur renseigne une valeur à la propriété [Tag] correspondant à la colonne ou sera renvoyée la valeur du contrôle :
- Propriété [Tag] de txtNumCom = A
- Propriété [Tag] de txtDateCommande = B
- ... etc
- Propriété [Tag] de txtCommentaire = Z

Ensuite, dans le composant Feuil1 (Fichier Client) le code ci-dessous :

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
 
'********* restrictions *************
'si le double-clic a lieu ailleurs que dans une partie éditée de l'onglet, sort de la procédure
If Application.Intersect(Target, Me.UsedRange) Is Nothing Then Exit Sub
'si le double-clic a lieu dans une ligne où la colonne A est vide, sort de la procédure
If Cells(Target.Row, "A").Value = "" Then Exit Sub
 
Cancel = True 'évite le mode [Édition] lié au double-clic
With frmSaisie 'prend en compte l'UserForm frmSaisie
    For Each CTRL In .Controls 'boucle sur tous les contrôles
        'si la propriété [Tag] du contrôle n'est pas vide, renvoie dans le contrôle la valeur de la cellule
        'ligne double-cliquée / colonne = propriété [Tag] du contrôle
        If CTRL.Tag <> "" Then CTRL.Value = Cells(Target.Row, CTRL.Tag)
    Next CTRL 'prochain contrôle de la boucle
    .Show 'affiche l'UserForm
End With 'fin de la prose en compte de l'UserForm
End Sub

[Kaytilou]

Un grand merci à toi Thauthème
Problème résolu, tout fonctionne
Très bonne journée