Discussion :

[souhilaSAP]

Bonjour à tous,

J'ai un tableau sous excel regroupant l'ensemble de mes clients (des cabinets)

J'ai créer un formulaire pour aouter, supprimer, ou modifier un client.

J'ai créer une listbox qui reprend mon tableau excel

Lorsque je clique sur une ligne de la listbox, toutes les informations du client apparaissent dans des labelbox visible+ textbox non visible
Lorsque je clique sur MODIFIER, les labelbox deviennent non visible et les txtbox deviennent visible pour y apporter des modifications.

Lorsque je modifie une info client apparaissant dans une txtbox, je souhaiterai , en validant, mettre à jour mon tableau.

Mais ma modification n'est pas prise en compte. Seule le nom client peut être modifié !

Pour info :
Tableau trés simple :
colonne A :Num client
colonne B :Nom client
colonne C :Forme juridique (FJ)
colonne D :Siret
colonne E :Siren

Aucune erreur n'apparait.
Mais la modification ne s'effectue que si je change le nom du client.

Je m'arrache les cheveux depuis 2 heures sur cela, j'ai d'autres programmes qui utilisent ce code et ça fonctionne !

Merci à tout ceux qui pourraient m'aider !!! Et aux autres aussi ,)

Voici le code :

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
Private Sub CMD_VALIDER_Click()
Call parametrage
 
Dim C As Range
 
With ong_cab.Range("A1:E" & fin_ong_cab)    ' ong_cab et fin_ong_cab sont déterminés dans le paramétrage
    Set C = .Find(USER_CAB.TXT_NUM.Value, LookIn:=xlValues)
    If Not C Is Nothing Then
        Do
 
 
C.Offset(0, 1).Value = USER_CAB.TXT_NOM.Text            
C.Offset(0, 2).Value = USER_CAB.TXT_FC.Text
C.Offset(0, 3).Value = USER_CAB.TXT_SIRET.Text
C.Offset(0, 4).Value = USER_CAB.TXT_SIREN.Text
 
            Set C = .FindNext(C)
        Loop While C.Row = fin_ong_cab
 
    End If
 
 
    End With

[unparia]

Bonjour
Impossible de te répondre avec assurance sans :
- savoir par quel code est abondée ta listbox
- connaître le nom de ta listbox
- savoir ce que tu fais au click sur la listbox
En l'état actuel (sans plus de précisions) de ce que tu exposes, j'aurais tendance à dire qu'aucune méthode Find ne serait nécessaire si ta listbox était liée à ta plage de données.

[souhilaSAP]

Je viens de faire un autre test, et celui ci ne fonctionne pas non plus .

Le nom du client change mais les autres informations ne changent pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CMD_VALIDER_Click()
Call parametrage
 
ligne = USER_CAB.LIST_CABINET.ListIndex + 3
 
Sheets("CAB").Cells((ligne), 2).Value = USER_CAB.TXT_NOM.Value
Sheets("CAB").Cells((ligne), 3).Value = USER_CAB.TXT_FC.Value
Sheets("CAB").Cells((ligne), 4).Value = USER_CAB.TXT_SIRET.Value
Sheets("CAB").Cells((ligne), 5).Value = USER_CAB.TXT_SIREN.Value
 
end sub

Bref c'est vraiment bizarre, il s'agit surement d'une erreur toute bête que je ne vois pas mais c'est trés étrange....

[souhilaSAP]

Bonjour
Impossible de te répondre avec assurance sans :
- savoir par quel code est abondée ta listbox
- connaître le nom de ta listbox
- savoir ce que tu fais au click sur la listbox
En l'état actuel (sans plus de précisions) de ce que tu exposes, j'aurais tendance à dire qu'aucune méthode Find ne serait nécessaire si ta listbox était liée à ta plage de données.

Merci pour ta réponse !

Alors :

La listbox reprenant la liste de mes clients est alimenté par
USER_initialize : LIST_CAB.rowsource = "=LISTE_CABINET" --> "Liste cabinet" est le nom attribué en gestionnaire de nom de ma liste de client de A à E avec fonction décalé.
Le nom de ma listbox est : LIST_CABINET

Au click sur la list box :

Je rends visible les labels et non visibles les txtbox

les labels et les txtbox sont alimentés par la listbox :

Code :

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

1
2
3
4
5
TXT_NUM.Value = LIST_CABINET.List(LIST_CABINET.ListIndex, 0)
TXT_NOM.Value = LIST_CABINET.List(LIST_CABINET.ListIndex, 1)
TXT_FC.Value = LIST_CABINET.List(LIST_CABINET.ListIndex, 2)
TXT_SIRET.Value = LIST_CABINET.List(LIST_CABINET.ListIndex, 3)
TXT_SIREN.Value = LIST_CABINET.List(LIST_CABINET.ListIndex, 4)

idem pour les labels :

Code :

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

1
2
3
4
5
LABEL_NUM.Caption = LIST_CABINET.List(LIST_CABINET.ListIndex, 0)
LABEL_NOM.Caption = LIST_CABINET.List(LIST_CABINET.ListIndex, 1)
LABEL_FC.Caption = LIST_CABINET.List(LIST_CABINET.ListIndex, 2)
LABEL_SIRET.Caption = LIST_CABINET.List(LIST_CABINET.ListIndex, 3)
LABEL_SIREN.Caption = Right(LIST_CABINET.List(LIST_CABINET.ListIndex, 3), 9)

Concernant ton information :

"méthode Find non nécessaire si listbox liée à plage de données"

Mon niveau VBA ne me permet pas de le comprendre.

Pour te répondre simplement, je dirais que je n’utilise pas Find sur la liste box mais sur le tableau excel.

J'utilise find pour recherche dans mon tableau excel le numéro de client en colonne A et j'utilise offset pour inscrire les informations dans les colonnes B, C, et D


Merci pour toutes infos que tu pourrais me donné !

[unparia]

Je vais te répondre ainsi : par un petit exemple :
Dans cet exemple :
- tes données en Feuil2, dans la plage a1:d11
- la listbox sur userform : nommée Listbox1
- les textboxes nommées textbox1, textbox2, textbox3 et textbox4
- ton userform avec propriété showmodal à false (pour que tu puisse y voir clair)
Ce code :

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
Dim plage As Range
 
Private Sub UserForm_Activate()
  Set plage = Worksheets("Feuil2").Range("A2:D11")
  With ListBox1
    .RowSource = "feuil2!" & plage.Address
    .ColumnCount = 4
  End With
End Sub
 
Private Sub ListBox1_Click()
   Dim toto As Long
   toto = ListBox1.ListIndex + plage.Row
   TextBox1.ControlSource = "feuil2!A" & toto
   TextBox2.ControlSource = "feuil2!B" & toto
   TextBox3.ControlSource = "feuil2!C" & toto
   TextBox4.ControlSource = "feuil2!D" & toto
End Sub

Et rien de plus

[souhilaSAP]

Suite au message d'Unparia, je viens de tester d'écrire en brut les informations à modifier et là , ça fonctionne.

Exemple :

Code :

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

1
2
3
4
5
C.Offset(0, 1).Value = USER_CAB.TXT_NOM.Text
C.Offset(0, 2).Value = USER_CAB.TXT_FC.Text
C.Offset(0, 3).Value = "TEST"
C.Offset(0, 4).Value = USER_CAB.TXT_SIREN.Text
C.Offset(0, 5).Value = USER_CAB.TXT_FJ.Text

Donc je suppose que puisque mes TXTBOX sont liée à la listbox, la valeur mémorisée reste celle de la listbox ?

Par contre je ne comprends pas pourquoi la TXTBOX NOM change quand même .

[unparia]

Essaye mon exemple au-dessus. Pas la peine de tout ce que tu fais, pour faire ce qui peut l'être en automatisme.

[souhilaSAP]

Ok alors si je comprends bien, tu suggères que, pour les txtbox, je dois récupérer les informations directement dans le tableau excel plutôt que dans la listbox ?

Ok je l'ai fait et ça fonctionne super !

Mais ça m'a fait une autre anomalie :
Quand je modifie une textbox , ça fonctionne mais par contre les label box deviennent visibles et les txtbox deviennent non visibles (provient peut être de mon code listbox_click qui rend visible les labels et non visible les txt ??? mais en quoi faire une modif relance le click sur la listbox)

Merci beaucoup !! Je vais gérer les visibles/non visible et ça devrait aller.

Par contre, sait tu pourquoi la 1er colonne fonctionnait ? Le nom changeait mais pas les autres informations alors que toutes étaient récupérer dans la listbox ??


Merci !

[souhilaSAP]

Essaye mon exemple au-dessus. Pas la peine de tout ce que tu fais, pour faire ce qui peut l'être en automatisme.

Ha oui du coup j'ai même plus besoin de mon bouton modifier ??

Le contrôle source gère deux sens ? récupère les infos sur le tableaux et les met dans les txt et fais aussi l'inverse la valeur de la txtbox devient la valeur du tableau ???

[unparia]

OUI.
Pense maintenant à libérer cette discussion, en la marquant résolue.

[souhilaSAP]

Ok merci je ne connaissais pas la fonction controlsource et elle est effectivement très pratique mais elle implique de ne pas faire d'erreur, on peux pas revenir en arrière aprés la saisie ?

Et du coup je sais toujours pas pourquoi mon code de base ne fonctionnait pas correctement.

Merci en tout cas, je peux enfin avancer sur mon tableau !

[unparia]

je ne connaissais pas la fonction controlsource

Il ne s'agit pas d'une "fonction", mais d'une propriété.