XL 2013 SOS Ma ListBox plante

jeanba

XLDnaute Occasionnel

• 29 Octobre 2018

• #2

Bonjour le fil,
Quelqu'un a pu jeter un oeil sur mon truc là s'il vous plaît?
Merci

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 29 Octobre 2018

• #3

En fait, je ne comprends pas pourquoi lorsque je sélectionne autre chose que "Tous", l'affichage de l'objet sélectionné dans les textbox ne suit pas. J'ai dû faire une erreur de code pour que les index soient perturbés..

NB: Le bouton supprimer j'ai déjà réussi à le traiter..
Merci

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 29 Octobre 2018

• #4

Bonsoir le Forum,

Ma question est restée sans réponse, malgré les 52 affichages.
Dois-je comprendre qu'il n'existe pas de solution ou que les problématiques soulevées ne sont pas assez clairement exposées?

Faut-il recréer une discussion exprès pour cela?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 30 Octobre 2018

• #5

Bonjour jeanba
Bonjour le Fil ,le Forum
je pense que ton problème vient du fait que tu prends comme référence de la Ligne Source le ListIndex de ta ListBox +2

VB:

Me.ComboBox3.Value = .Cells(Me.ListBox1.ListIndex + 2, 3)  '   Compte Tiers

Ce qui fait que quand tu sélectionnes la première ligne tu auras toujours ListIndex=0 puis 1 ,2 etc etc
donc si tu as sélectionné "Tous" tu auras bien la localisation dans le Tableau .
mais si tu sélectionnes par exemple "Salarié" , la première ligne Source est la Ligne 18 dans le Tableau.
ta listBox renverra elle :

VB:

.Cells(Me.ListBox1.ListIndex + 2, 3)

soit première ligne =0+2 = 2 ---> CLIENT 1. et Non = 18 ----> SALARIE 1
Bonne journée
jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 30 Octobre 2018

• #6

Re
une approche perfectible !
jean marie

 

Pièces jointes

• SOS ListBoxt en panne fonction selection-2 -Chti160.xlsm

  3.1 MB · Affichages: 39

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 30 Octobre 2018

• #7

Bonsoir Jean Marie,
Bonsoir le Fil + Forum,

Merci Jean Marie, c'était effectivement cela le problème pour ce qui concerne la problématique N°2 sur les 6 soumis.
A cet effet, quelqu'un a-t-il une idée de comment on pourrait traduire en code vba cette formule:

Code:

'6 Je souhaite gérer par code vba la création des comptes Tiers
'Le procédé se trouve dans la formule excel en colonne 3 comme suit:
=CONCATENER(GAUCHE([@Type];1);TEXTE(NB.SI($A$2:A21;$A21);"0000"))

Merci encore par avance et pour tout!

Jeanba

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 30 Octobre 2018

• #8

Re
pour la problématique 1
j'ai ajouter

VB:

 With .ListBox1
              .ColumnCount = 12
              .ColumnWidths = "60;150;35;110;110;30;60;110;90;90;50;50"
              .List = [Tableau4].Value
              .ListIndex = 0 '------- >ici
  End With

pour la problématique 3 a tester

VB:

Sub TrierTiers()
Application.DisplayAlerts = False
 With ActiveWorkbook.Worksheets("Plan Tiers")
   With .ListObjects("Tableau4").Sort
     With .SortFields
        .Clear
        .Add Key:=Range("Tableau4[Compte]"), SortOn:=xlSortOnValues, Order:= _
         xlAscending, DataOption:=xlSortNormal
     End With
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 End With
    ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

jean marie

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 30 Octobre 2018

• #9

ChTi160 à dit:

With .ListBox1
.ColumnCount = 12
.ColumnWidths = "60;150;35;110;110;30;60;110;90;90;50;50"
.List = [Tableau4].Value
.ListIndex = 0 '------- >ici
End With

Cliquez pour agrandir...

Cette seule ligne de code génère l'erreur suivante:

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 30 Octobre 2018

• #10

ChTi160 à dit:

Sub TrierTiers()
Application.DisplayAlerts = False
With ActiveWorkbook.Worksheets("Plan Tiers")
With .ListObjects("Tableau4").Sort
With .SortFields
.Clear
.Add Key:=Range("Tableau4[Compte]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
End With
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

Cliquez pour agrandir...

Ce code s'exécute sans retour de message d'erreur!
Cependant, le programme devient très très lent, je veux dire que le code prend trop de temps pour son exécution.
Il doit être possible de faire en sorte que ce soit moins long, non?

Merci beaucoup!

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Octobre 2018

• #11

Bonjour jeanba
Bonjour le Fil ,le Forum
pour ce qui est du message d'erreur !
C'est quelle instruction ?

VB:

.ListIndex=0
'ou
.List(L,.Columns.count-1)=1 +L

si c'est la deuxième !
Voir si tu as bien 13 colonnes dans ta ListBox (car dans ton post #10 ,tu as 12 en haut et 13 ou il y a l'erreur?)
ou alors
voir la déclaration de la variable "L" la mettre en Long

VB:

Dim L as Long  'cela dépend du nombre de lignes à traiter

pour ce qui est de la lenteur , je l'ai constaté lors de l'enregistrement de ton fichier à la fin du Tri (ActiveWorkbook.Save).
je pense qu'il y a un problème avec Tes Objects Tableau (que je n'utilise pas ).
Tu utilises le fichier que j'ai joins ou un autre ?
jean marie

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 31 Octobre 2018

• #12

Bonjour Jean Marie, Bonjour le Fil,

Le message d'erreur concerne l'instruction

ChTi160 à dit:

.ListIndex=0

Cliquez pour agrandir...

Pour la lenteur, j'utilise un autre fichier dont les éléments soumis au Forum ne sont qu'un minuscule aspect (le fichier total a maintenant une taille de près de 5000Ko!!).

D'ailleurs à ce sujet, je me demandais si c'était pas mieux de loger certaines feuilles de type bases de données dans d'autres classeurs et faire des liasons avec Power Query ou autre? Peut-être que ce serait moins long...

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Octobre 2018

• #13

Re
Moi je me disais que deja , une feuille par type (Clients ,Fournisseurs etc etc)ce serait peut etre pas mal?
Jean marie

 

Dernière édition: 1 Novembre 2018

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 31 Octobre 2018

• #14

Oui, je crois.
Au début, je me suis lancé dans le tas, et au fûr et à mesure, je réalise que programmer c'est toute une méthodologie.
Faut apparemment d'abord tout penser et écrire même ce qu'on veut faire..

Merci pour tout!

Jeanba

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Novembre 2018

• #15

Bonjour
Effectivement!
Tu penses a tout ca et tu nous dis.
Jean marie

 

Vote positif 0 Vote négatif