Discussion :

[chrisl46]

Bien le bonjour

Alors voila je vous explique mon problème. Je tien a préciser que je suis un très grand débutant dans excel et vb avant toute chose .
Une personne ma beaucoup aider jusque là mais pour le moment elle ne peux plus alors je me tourne vers vous pour avoir un peu de vôtre aide .

Bon je rentre de le vif du sujet. Alors je suis entrain de faire une facturation avec une base de donnée client pour un camping. Alors j'ai réussi à faire

• ajouter dans la bd les clients via un UserForm
• récupérer c'est infos pour en faire une facture
• imprimer cet facture avec double impression et auto incrémentation de numéro de facture".

Mon problème que je n'arrive pas à résoudre est comment récupérer la ligne du client pour pouvoir modifier les infos dans un UserForm en cliquant sur une des cellule de la ligne et ensuite sur un bouton pour ouvrir l'UserForm de modification.

Je sais pas si j'ai été asser clair.

Merci pour d'avance pour vôtre aide

Ps: je peux joindre la classeur si besoin

[Invité]

Bonjour,

Un exemple dans ce fichier récupéré dans une discussion précédente et proche de votre cas.

Sur clic droit dans une cellule de la colonne A, le Userform s'ouvre en chargeant les données du produit sélectionné. Le bouton "Valider" du Userform remet à jour les valeurs.
Un clic sur le ListBox sélectionne le client et la cellule du client est sélectionnée également dans l'onglet.

Pièce jointe 235097

Code dans le module de l'onglet "Produits" :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub BoutonUserform_Click()
            VisualiserLesProduits Sheets("Produits"), 10, Cells(ActiveCell.Row, 1)
End Sub
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("A10:A" & Rows.Count)) Is Nothing Then
        VisualiserLesProduits Sheets("Produits"), 10, ActiveCell
        Cancel = True
    End If
 
End Sub

Code dans le module standard :

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
27
28
29
30
31
32
33
34
35
36
Option Explicit
Public Continuer As Boolean
Public AireProduits As Range
Public CelluleProduits As Range
 
Sub VisualiserLesProduits(ByVal FeuilleProduit As Worksheet, ByVal TitreProduit As Long, ByVal CodeProduit As String)
 
Dim I As Long
Dim DerniereLigneProduit As Long
 
     With FeuilleProduit
 
          DerniereLigneProduit = .Cells(.Rows.Count, 1).End(xlUp).Row
          If DerniereLigneProduit <= TitreProduit Then Exit Sub
 
          Set AireProduits = .Range(.Cells(TitreProduit + 1, 1), .Cells(DerniereLigneProduit, 1))
 
     With Form_Produit
 
        For Each CelluleProduits In AireProduits
            .List_Produits.AddItem CelluleProduits
        Next CelluleProduits
 
        If CodeProduit <> "" Then
           .List_Produits = CodeProduit
        End If
 
        .Show
 
     End With
 
     Set AireProduits = Nothing
 
     End With
 
End Sub

Code dans le Userform :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
 
Private Sub BoutonRetour_Click()
 
     Continuer = False
     Unload Form_Produit
 
End Sub
 
Private Sub BoutonValider_Click()
 
Dim CtrI As Long
 
    If List_Produits.ListCount > 0 Then
        For CtrI = 0 To List_Produits.ListCount - 1
            If List_Produits.Selected(CtrI) = True Then
               For Each CelluleProduits In AireProduits
                     If CelluleProduits = List_Produits.List(CtrI) Then
                        CelluleProduits.Select
                        CelluleProduits.Offset(0, 1) = TextBoxLibelle
                        CelluleProduits.Offset(0, 2) = CLng(TextBoxDisplay)
                        CelluleProduits.Offset(0, 3) = CLng(TextBoxBarres)
                        CelluleProduits.Offset(0, 4) = CLng(TextBoxShipper)
                     End If
               Next CelluleProduits
            End If
        Next CtrI
     End If
 
End Sub
 
 
Private Sub List_Produits_Click()
 
Dim CtrI As Long
 
    If List_Produits.ListCount > 0 Then
        For CtrI = 0 To List_Produits.ListCount - 1
            If List_Produits.Selected(CtrI) = True Then
 
                 For Each CelluleProduits In AireProduits
                     If CelluleProduits = List_Produits.List(CtrI) Then
                        CelluleProduits.Select
                        TextBoxLibelle = CelluleProduits.Offset(0, 1)
                        TextBoxDisplay = CelluleProduits.Offset(0, 2)
                        TextBoxBarres = CelluleProduits.Offset(0, 3)
                        TextBoxShipper = CelluleProduits.Offset(0, 4)
 
                     End If
 
                 Next CelluleProduits
 
            End If
        Next CtrI
 
     End If
 
End Sub

Pièce jointe 235094

Cordialement.

[boisgontierjacques]

Bonjour,

Recherche & maj BD
-choix de la colonne de recherche
-maj

Boisgontier
http://boisgontierjacques.free.fr

[chrisl46]

Beh deja merci a vous deux pour votre aide. J'aime bien vos deux proposition toutes les deux différentes mais sympas.

boisgontierjacques

J'ai été voir vôtre site vraiment bien ont trouve de tout et sa aide vraiment. Et surtout le petit truc quand tu modifis les colones sa te modifis ton UserForm

Mon seul problème Jacques est que j'ai des optionButon et je comprend pas trop comment selectionner le boutton par rapport a la valeur de la bd qui est 1 (elecOui) ou 0 (elecNon)

Un grand merci a vous deux pour votre aide

[EBRAG]

Bonjour,

Tu pourrais également avoir une autre vision de la façon de procéder ici...
http://garbe.joel.free.fr/automatisa...tomatisation15

après, faut voir !

[boisgontierjacques]

Bonjour,

Pgm simple recherche/modif/ajout camping

Boisgontier

[chrisl46]

merci encore pour vos proposition.

Alors la super Jacque merci. juste une dernière question comment faire sur la case électricité mettre 1 pour vrai et 0 pour faux ??