Gestion Evenements userForm [RESOLU]

cathodique

cathodique

XLDnaute Barbatruc
Bonjour:),

Je reviens vers vous afin de me proposer une solution.

Au choix dans combobox1, la Listbox récupère les lignes correspondantes.

Au clic dans la Listbox sur une ligne, les données sont transmises aux différents contrôles (combobox et textbox).

Pour certains on peut en modifier le contenu. Ensuite au clic sur le bouton « modifier ligne », les données sont transmises à la ligne sélectionnée dans la listbox.

En suivant le déroulement au ‘’pas à pas’’, j’ai remarqué que la procédure ListBox1_Clic était sollicitée. Du coup les modifications ne se faisaient pas dans la listbox. Je n’ai pas compris pourquoi cet évènement est déclenché car je n’ai pas effectué de clic dans la listbox.

J’ai ajouté un booléen pour sortir de cet évènement. Ainsi, les données sont bien mises à jour dans la listbox. Cependant, en cliquant sur une autre ligne les données ne sont plus récupérés dans les contrôles, ce qui est normal à cause du booléen. Comment solutionner ce problème. Je tourne en rond.

Merci pour votre aide.

Edit: cette discussion est dans la continuité de cette discussion
 

Pièces jointes

  • Modifications - Copie (2).xlsm
    95.2 KB · Affichages: 27
Trier par date Trier par votes
cathodique

cathodique

XLDnaute Barbatruc
ChTi160 à dit:
Bonjour Cath
le Fil ,le Forum
j'ai constaté ceux ci
en remplacant :

par
Cliquez pour agrandir...
Bonjour Jean Marie:),

Merci beaucoup de me l'avoir signalé. En fait, je suis pas encore arrivé à ce bouton (dont le code est de Boisgontier que salue).
Le bouton auquel fait référence le code que tu me signales et pour la corrections des lignes correspondantes dans la bd.

Mon problème concerne le bouton "MODIFIER LIGNE", ce dernier transfère les données vers la ligne sélectionnée dans la listbox.
Il me semble que le fait de modifier une ligne par code est assimilé à l'évènement ListBox1_Clic.

Je ne parviens pas à résoudre ce problème. En mettant au début du code: If kit = True Then Exit Sub
La ligne est modifiée, mais quand je clique sur une autre ligne les données de cette ligne ne sont pas transmises aux différents contrôles correspondants pour pouvoir les modifier s'il y a lieu.

Merci encore d'être toujours présent.

Bonne journée;).
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
ChTi160 à dit:
Re
le fichier à tester
jean marie
Cliquez pour agrandir...
Merci beaucoup pour la célérité de ton retour. Mais c'est identique au résultat que j'ai obtenu.
Fait cette manipulation pour te rendre compte:
1- choisit une facture en combobox1 (ex: 3)
2- sélectionne une ligne (ex:1)
3-effectue des modifications des contrôles (ex: un seul, le montant)
4-valide avec le bouton "modifier ligne" (la ligne est modifiée - Contrôle montant aussi)
5-clique sur une autre ligne: là les données de la ligne sélectionnée ne sont pas transmises aux différents contrôles (comboboxs et textboxs).

C'est ça mon problème présentement.
 
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Re
tu as teste le fichier
tu dis
Le bouton auquel fait référence le code que tu me signales et pour la corrections des lignes correspondantes dans la bd.
Cliquez pour agrandir...
chez moi ça bugger donc j'ai modifié avant d'aller plus loin!
tu dis :
Il me semble que le fait de modifier une ligne par code est assimilé à l'évènement ListBox1_Clic.
Cliquez pour agrandir...
ça je ne l'ai pas constaté , désolé?????
j'espere que JB va passe par là pour régler tout ça !
je crois que j'ai encore rien compris Lol
jean marie
 
Vote positif 0 Vote négatif
BOISGONTIER

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,

Dans l'exemple simple joint, j'ai reproduit le problème

Code: 
Option Compare Text
Dim TblBD()
Private Sub UserForm_Initialize()
   Set Rng = [A2:B10]
   TblBD = Rng.Value
   Me.ComboBox1.List = Array("*", "Lyon", "Paris")
   Me.ComboBox1.ListIndex = 0        ' déclenche l'événement Click ComboBox
   'Me.ListBox1.ListIndex = 0        ' déclenche l'événement Click ListBox
End Sub

Private Sub ComboBox1_click()
  Dim Tbl(): n = 0
  For i = 1 To UBound(TblBD)
    If TblBD(i, 2) Like Me.ComboBox1 Then
      n = n + 1: ReDim Preserve Tbl(1 To 2, 1 To n)
      For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
    End If
  Next i
  Me.ListBox1.Column = Tbl
End Sub

Private Sub ListBox1_click()
   MsgBox "coucou"
End Sub

Private Sub B_modif_Click()
  Position = Me.ListBox1.ListIndex
  'Me.ListBox1.ListIndex = -1          ' si on active cette ligne, plus de problème d'événement endogène
  Me.ListBox1.List(Position, 0) = "xx"   ' déclenche l'événement Click ListBox
End Sub

-Il faut mémoriser la position de l'élément cliqué dans la ListBox: Position=ListBox1.ListIndex
-Supprimer la sélection avec ListBox1.Listindex=-1
-Faire la modif dans la ListBox : Me.ListBox1.List(position,x)="xxxx"

Boisgontier
 

Pièces jointes

  • EvenementsEndogenes.xls
    56 KB · Affichages: 29
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
ChTi160 à dit:
Re
On peut modifier le Montant ?
jean marie
Cliquez pour agrandir...
On ne peut modifier que le montant "dépenses" ou "recettes" suivant le cas.
Dans mon précédent post#5, je t'avais informé que j'en étais seulement au codage du bouton "modifier ligne", c-à-d pour modifier la listbox.
Je ne suis pas encore arrivé au bouton "VALIDER LES MODIFCATIONS". Qui modifie les lignes de la listbox sur la feuille comptes.
Je vais refaire le débogage au pas à pas et reviens te dire ce qu'il en est.

@+
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
BOISGONTIER à dit:
Bonjour,

Dans l'exemple simple joint, j'ai reproduit le problème

Code: 
Option Compare Text
Dim TblBD()
Private Sub UserForm_Initialize()
   Set Rng = [A2:B10]
   TblBD = Rng.Value
   Me.ComboBox1.List = Array("*", "Lyon", "Paris")
   Me.ComboBox1.ListIndex = 0        ' déclenche l'événement Click ComboBox
   'Me.ListBox1.ListIndex = 0        ' déclenche l'événement Click ListBox
End Sub

Private Sub ComboBox1_click()
  Dim Tbl(): n = 0
  For i = 1 To UBound(TblBD)
    If TblBD(i, 2) Like Me.ComboBox1 Then
      n = n + 1: ReDim Preserve Tbl(1 To 2, 1 To n)
      For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
    End If
  Next i
  Me.ListBox1.Column = Tbl
End Sub

Private Sub ListBox1_click()
   MsgBox "coucou"
End Sub

Private Sub B_modif_Click()
  Position = Me.ListBox1.ListIndex
  'Me.ListBox1.ListIndex = -1          ' si on active cette ligne, plus de problème d'événement endogène
  Me.ListBox1.List(Position, 0) = "xx"   ' déclenche l'événement Click ListBox
End Sub

-Il faut mémoriser la position de l'élément cliqué dans la ListBox: Position=ListBox1.ListIndex
-Supprimer la sélection avec ListBox1.Listindex=-1
-Faire la modif dans la ListBox : Me.ListBox1.List(position,x)="xxxx"

Boisgontier
Cliquez pour agrandir...
Merci beaucoup Jacques. J'espère comprendre ton code pour l'adapter à mon cas.
Très gentil de ta part.

Bonne journée.
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
BOISGONTIER à dit:
-Il ne faut pas qu'un élément de la ListBox soit sélectionné lorqu'on modifie la ListBox (me.ListBox1.ListIndex=-1)
Boisgontier
Cliquez pour agrandir...
J'avoue ne pas comprendre. Il faut bien que je sélectionne une ligne pour la modifier. Voici, comment j'ai corrigé mon code, mais ça ne fonctionne pas, la ligne n'est pas modifiée. Merci de me dire ce qui ne va pas.
VB: 
Private Sub Cmd_Modif_Click()
   Dim lig As Byte, col As Byte, Nblig As Byte, Position As Byte
 
   If Me.ListBox1.ListCount >= 1 Then
      'Si aucune ligne sélectionnée sortir
      If Me.ListBox1.ListIndex = -1 Then
         MsgBox "Sélectionnez la ligne à modifier!", vbCritical, "CHOIX LIGNE A MODIFIER"
         Exit Sub
      Else
      Position = Me.ListBox1.ListIndex
         'modification date pour toutes les lignes
         For lig = 0 To Me.ListBox1.ListCount - 1
            Me.ListBox1.List(lig, 0) = Me.TextBox1
         Next lig

         '      Me.ListBox1.List(ListBox1.ListIndex, 1) = Me.TextBox2 'n°ecriture
         Me.ListBox1.List(Position, 2) = Me.ComboBox2  'code compte
         Me.ListBox1.List(Position, 3) = Me.TextBox3   'libellé
         Me.ListBox1.List(Position, 4) = Me.ComboBox3   'initiateur
       
         'utilisation textbox4 ou 5 suivant opération
         If Me.TextBox8 = "Dépenses" Then
            Me.ListBox1.List(Position, 5) = Me.TextBox4   'dépenses
            Me.ListBox1.List(Position, 6) = ""   'recettes
         Else
            Me.ListBox1.List(Position, 5) = ""   'dépenses
            Me.ListBox1.List(Position, 6) = Me.TextBox5   'recettes
         End If
       
         Me.ListBox1.List(Position, 7) = Me.TextBox6   'commentaires
       
         'calcul total facture
         Call TotalFacture
         Me.TxtCtrlMontant = TotalFact
       
         'report total dans listbox pour toutes les lignes
         For lig = 0 To Me.ListBox1.ListCount - 1
            Me.ListBox1.List(lig, 8) = Me.TxtCtrlMontant
         Next lig
       
         'Me.ListBox1.List(Position, 8) = TotalFact 'total ecritures
         Me.ListBox1.List(Position, 9) = Me.TextBox8   'type operations
         Me.ListBox1.List(Position, 10) = Me.TextBox9   'montant budget/previsionnel
         Me.ListBox1.List(Position, 11) = Me.TextBox10   'banque
         Me.ListBox1.List(Position, 12) = Me.NoLig   'N° de ligne dans bd

      End If
   End If

   If Me.TxtCtrlMontant = Me.TextBox7 Then
   Me.Cmd_Valider.Enabled = True
   End If

   ''   If Me.TextBox7 = Me.TxtCtrlMontant Then Me.Cmd_Valider.Enabled = True

End Sub
 
Vote positif 0 Vote négatif
S

Si...

XLDnaute Barbatruc
Salut

Jaques, tu as raison d'insister sur une non sélection d'item de la liste. :)

Cela peut aussi se faire simplement *avec la propriété .Clear avant sa ré-initialistion.
VB: 
Private Sub ComboBox1_click()
  Dim Tbl(): n = 0
  ListBox1.Clear  'pas d'item sélectionné ensuite
  For i = 1 To UBound(TblBD)
'…
End Sub
Private Sub ListBox1_click()
  MsgBox ListBox1
End Sub
donc la dernière macro
VB: 
Private Sub B_modif_Click()
  Position = Me.ListBox1.ListIndex
  'Me.ListBox1.ListIndex = -1  ' si on active cette ligne, plus de problème d'événement endogène
  Me.ListBox1.List(Position, 0) = "xx"  ' déclenche l'événement Click ListBox
End Sub
peut être supprimée
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
Si... à dit:
Salut

Jaques, tu as raison d'insister sur une non sélection d'item de la liste. :)

Cela peut aussi se faire simplement *avec la propriété .Clear avant sa ré-initialistion.
VB: 
Private Sub ComboBox1_click()
  Dim Tbl(): n = 0
  ListBox1.Clear  'pas d'item sélectionné ensuite
  For i = 1 To UBound(TblBD)
'…
End Sub
Private Sub ListBox1_click()
  MsgBox ListBox1
End Sub
donc la dernière macro
VB: 
Private Sub B_modif_Click()
  Position = Me.ListBox1.ListIndex
  'Me.ListBox1.ListIndex = -1  ' si on active cette ligne, plus de problème d'événement endogène
  Me.ListBox1.List(Position, 0) = "xx"  ' déclenche l'événement Click ListBox
End Sub
peut être supprimée
Cliquez pour agrandir...
Merci Si...
Cependant tu réponds à l'exemple de Jacques pas au mien.
J'avoue ne pas comprendre cette astuce, et surtout l'adapter à mon code.

Encore merci.
 
Vote positif 0 Vote négatif

Discussions similaires

K
  • Question
XL 2010 suppression de données en listbox
Réponses
3
Affichages
479
KRUG WOO
K
F
  • Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
548
franxy
F
D
  • Question
Microsoft 365 VBA une listbox devient inactive lors du second passage
2
Réponses
26
Affichages
642
danielco
D
E
  • Résolu(e)
Microsoft 365 ListBox vers TextBox – Impossible de lire la propriété List. Argument non valide
Réponses
10
Affichages
325
ExcLnoob
E
M
  • Question
Power Query Convertir un fichier Contacts Gmail et fichier Excel
Réponses
13
Affichages
390
nat54
nat54
L
  • Question
Microsoft 365 Comparer 2 TCD en créant un 3 ème
Réponses
4
Affichages
118
lilie91
L
Y
  • Résolu(e)
XL 2016 Pb dates inversées dans userform
2 3
Réponses
37
Affichages
1 K
YOUYOU25
Y
R
  • Question
XL 2019 Mise en forme conditionnelle
Réponses
4
Affichages
141
Nain porte quoi
N
N
  • Question
XL 2021 UserForm, ListBox et TextBox
Réponses
6
Affichages
200
nano33320
N
B
  • Question
XL 2013 Transposition de filtres multiples sur plusieurs feuilles
Réponses
11
Affichages
245
BIROULIG
B

Membres actuellement en ligne

17 membres et 327 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 173
Messages
2 085 937
Membres
103 052
dernier inscrit
nizar0007