combobox tri Résolu

Question

Bonjour, 
Je me permets de vous soliciter car je suis de nouveau bloqué…
Lorsque vous cliquez sur recherche, il y a UsF_Modification qui se charge, 
J’ai 5 Combobox de tri.
Voici le fichier : http://www.cijoint.fr/cjlink.php?file=cj200903/cijT1OKLdw.xls
Lorsque  je fait une recherche avec une seule combobox , il n’y a pas de soucis, ça fonctionne, par contre lorsque je veux faire une recherche avec plusieurs combobox, si la valeur n’existe pas ça plante…. Il faut faire l’essai pour comprendre..
Y aurait-il possibilité de me donné un petit coup de main de nouveau…
Encore merci

lermite222 · Answer

Bonjour,
Je ne comprend pas ton problème, ça a l'air de fonctionner convenablement !!
A+

tchulio · Answer

Par exemple si dans la Combobox RNC N° tu choisi "2", et que dans la Combobox délai de réponse tu choisi "16", ça plante.
C'est normal car ça n'existe pas dans la base de donnée, tu vois ce que je veux dire?

L'essentiel serait que je puisse limiter les  choix dans les textbox en fonction des filtres précédents...

lermite222 · Answer

Je ne pense pas qu'il soit nécessaire que je te fasse la macros, tu semble déjà maitriser pas mal excel.
Pour que les autres combo soit réinitialiser...
Faire une fonction qui les vide et les réinitialise en testant..

If not rows(x).hide then
    Mettre la cellule dans le combo
end if
Et si tu t'étais inspiré de cet exemple tu pourrais économiser 200 à 300 lignes de code
A+

tchulio · Answer

:) Si seulement j’avais fait cette macro tout seul..Je ne suis hélas pas aussi bon que cela, vous m’aviez déjà bien aidé lors de l’élaboration de celle-ci !

Pour ce qui est de la ligne de code que tu me donne, où dois-je la mettre ?
Dans l’USF ou dans le module ?

Merci à toi

tchulio · Answer

&#61514;
Si seulement j’avais fait cette macro tout seul..Je ne suis hélas pas aussi bon que cela, vous m’aviez déjà bien aidé lors de l’élaboration de celle-ci !

Pour ce qui est de la ligne de code que tu me donne, où dois-je la mettre ?
Dans l’USF ou dans le module ?

Merci à toi

lermite222 · Answer

Dans "Mes interventions" je vois que tu a poster un message à 10h19 mais dans le topic je ne le trouve pas, probablement dù au bug de ce matin.
Veux-tu le remettre
A+

tchulio · Answer

Mmmm... je ne vois pas où tu dis.............
Dans "MES INTERVENTIONS"? la feuille?

Désolé..

tchulio · Answer

OUI,OUI POURQUOI?

Je n'arrive toujours pas là--- Je ne vois pas ou mettre cette ligne de code...

lermite222 · Answer

OK, laisse tomber pour le poste de 10h19, maintenant il est visible.
Vu ta réponse j'ai regarder ton code d'un peu plus près et ma 1ère constatation...
Tu t'évertue à recréer la roue, le filrage ne devrait pas être fait par des routines ni le remplissage des combo, tout est disponnible sur la feuille excel, sur la feuille "Interventions" il y a bien sûr beaucoup de colonnes, serait alors préférable de recopier les colonnes nécessaires sur une autre feuille et d'y mettre les filtres, et de travailler à partir de cette feuille et pas d'un UF qui ne sert à rien.
Et 2èm constatation, si tu sélectionne par N° le mieux serait de mettre les autre combo enabled à false, puisqu'il n'y aurait rien d'autre à filtrer.
3èm constatation, ton code est beaucoup trop "tarabiscoté" pour que je puisse le debuggé valablement, il faudrait tout reprendre à zéro.
En résumé : Je supprimerais l'UF Modification, je créerais une feuille du même nom en laissant quelque lignes disponnible sur le haut de la feuille pour éventuellement y mettre quelque boutons si nécessaire.
A+

tchulio · Answer

Salut,
En fait Usf_Modification est très utile ! Là on ne le voit pas trop car le fichier n’est pas complet, mais en fait cet Usf permet de récupérer les données de la feuille « BDD » très rapidement via les différents filtres que l’on peut appliquer via les combobox (car tous sont utilisés, et non pas juste celui avec le N° de Rnc), puis lorsque l’on double clique sur une ligne de la listbox, il y a l’Usf_Creation qui s’affiche, là il y a toutes les informations de la feuille BDD qui sont visibles et modifiables si on a le mot de passe…. A savoir que toutes ses données qui se trouvent dans beaucoup de colonnes doivent être insérées dans un rapport qui se trouve sur une feuille nommée « Formulaire » juste en cliquant sur un bouton de l’Usf_Creation.
Je récapitule juste mon problème car je ne sais pas si c’était bien clair…
Lorsque je veux mettre plusieurs filtres avec les combobox dans l’usf modification, je voudrais qu’à chaque nouveau filtre mis, le choix dans les combobox se réduise,  afin que la macro ne plante du fait que le choix ne corresponde a rien… faire l’essai..
J’aimerais vraiment pouvoir rester dans cette configuration et que la macro ne plante pas…. Ce serait génial... Merci encore

lermite222 · Answer

J'ai "un tout petit peu" remanier ton code :-)
Plus d'erreur..
https://www.cjoint.com/?eilKIXXVQO
Tu dis...
Edit: faut supprimer la ligne...
Tabtemp = .Range(.Cells(2, 1), .Cells(Derligne, 10))
Tu devras réadapter un peu les contrôles, je n'ai pas un écran suffisament large et j'ai du modifier l'affichage pour tout voir.

tchulio · Answer

Ok je viens d'essayer, ça plante au démarage me met Variable non définie :

Dans l'USF_Modification:

Sub RemplirListeTout()
Dim lig As Long
Dim col As Integer
Dim FL1 As Worksheet
    Set FL1 = Sheets("INTERVENTIONS")
  With FL1
    Derligne = .Range("C" & Rows.Count).End(xlUp).Row
    Tabtemp = .Range(.Cells(2, 1), .Cells(Derligne, 10))
  End With
  ListBox1.Clear
    For lig = 2 To Derligne
        With ListBox1
            .AddItem
            For col = 1 To 10
                .List(lig - 2, col - 1) = FL1.Cells(lig, col)
            Next col
        End With
    Next lig
    remplirCombo
End Sub

tchulio · Answer

pour Tabtemp

lermite222 · Answer

voir edit de poste précédant..

tchulio · Answer

ralalala...

Excuse moi suis au boulot et j'avais juste jeter un oeil.. désolé.

Je regarde tout ça!

Je te remercie pour ton aide!

tchulio · Answer

C’est parfait tout ça ! ça fonctionne exactement comme je le souhaitait ! Avec beaucoup moins de lignes de codes…. !!
Tu as vraiment fait un excellent boulot !
Par contre juste une question, crois tu qu’il y aurait possibilité de supprimer les doublons dans les combo de tri ? J’ai essayé un code que j’avais pour de simple cbbx mais pas moyen avec ce prog là…
Encore merci !

lermite222 · Answer

J'y avais pensé mais comme tu n'en parlais pas je me suis dit que ça ne t'intéressais pas.
Je revois ça..

lermite222 · Answer

Remplace cette sub...
Sub remplirCombo()
Dim CB As Control
Dim Index As Integer, lig As Long, Buff As String
Dim LigCb As Long, B As Boolean
    Pas = True
    For Each CB In Me.Controls
        If TypeOf CB Is MSForms.ComboBox Then
            Index = CB.Tag
            CB.Clear
            For lig = 0 To ListBox1.ListCount - 1
                Buff = ListBox1.List(lig, Index)
                If CB.ListCount > 0 Then
                    For LigCb = 0 To CB.ListCount - 1
                        If CB.List(LigCb) = Buff Then B = True: Exit For
                    Next LigCb
                End If
                If Not B Then CB.AddItem Buff
                B = False
            Next lig
        End If
    Next CB
    Pas = False
End Sub
Tu dis...

tchulio · Answer

…. Respect…. C’est au top…
Je vais en profiter pour poser ma dernière question…

Je ne sais pas si tu à vu, mais lorsque l’on double clique sur la listbox, (et qu’il n’y a pas de filtre de sélectionné) il y a le Usf_Creation qui s’affiche avec toute les données de la ligne.
Ça fonctionne nickel, par contre dès qu’il y a un filtre, ça me prend automatiquement la RNC N°1… faire l’essai pour mieux comprendre. Le problème vient de cette sub :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  ' Masquer le formulaire Modification
 'UsF_Modification.Hide
Unload Me

  LigInt = 1 + Me.ListBox1.ListIndex + 1
   UsF_Creation.Show
  End Sub

Je ne savais pas quoi mettre pour que ça prenne la ligne filtrée… Tu comprend mon dernier pb ? Merci encore….

lermite222 · Answer

J'ai pas tester mais je pense que la modif ci-dessous devrait résoudre le problème
remplacer la ligne...
LigInt = 1 + Me.ListBox1.ListIndex + 1
par
LigInt = ListBox1.list(ListBox1.ListIndex ,0) 'éventuellement ajouter 1
sinon tu dis, je verrais avec le classeur.

lermite222 · Answer

après contrôle, ta ligne...
LigInt = 1 + Me.ListBox1.ListIndex + 1 
n'es pas juste, si tu sélectionne le 4 affiche le 3 !!!!
faut ajouter 2 à la modif
LigInt = ListBox1.list(ListBox1.ListIndex ,0) + 1

tchulio · Answer

Bon écoute, j’ai tout analysé… Tout est nickel… Encore merci a toi pour aide précieuse !!
Bonne fin de journée-

lermite222 · Answer

J'ai encore fait quelque simplfications dans ton UF Création... pas tester vu qu'il n'y a pas la feuille formulaire.
Je n'ai modifié que 2 sub pour l'exemple.
Tu peu t'en inspirer pour les autres.
https://www.cjoint.com/?eiqArC06gv
A+

tchulio · Answer

Salut excuse moi de t'ennuyer après tant de temps!

Ta macro fonctionne parfaitement. J'aurais juste une petite question.

Lorsque je clique sur un ligne de la listbox, pas de soucis tout fonctionne, mais lorsque je clique où il n'y a rien sur la listbox, là ça plante.

Il n'y aurait pas possibilité de mettre un code pour que lorsque l'on double clique, ça ne bug pas ?

Encore merci pour tout.

lermite222 · Answer

Désolé mais les classeurs ne sont plus dispo sur Cjoint, tu peu remettre ?
A+

tchulio · Answer

Ok pas de souci, le voici:

http://www.cijoint.fr/cjlink.php?file=cj200905/cijTMrYZ6N.xls

Merci a toi!

lermite222 · Answer

Re,
Comprend pas, que l'ont clic ou double clic sur la partie vide ça donne les valeurs de la dernière ligne de la listBox ?
Ou alors explique plus en détails.
A+

tchulio · Answer

non en fait quand on clique sur la partie vide (blanche) en dessous des données la macro plante .
Je ne sait pas si tu vois ce que je veux dire?
Par exemple mets un filtre, et tu verra que si tu clique a peine plus bas que sur la ligne de donnée ça plante. rien de bien méchant a mon avis.

Sinon juste une autre question, est ce quelqu'un peut me dire si c'est possible que dans une textbox, lorsque j'appuie sur la touche "entrer" de mon clavier; le curseur se mette a la ligne (avec multiline=yes) comme dans word quoi... merci a vous

lermite222 · Answer

Explique EXACTEMENT quel UF et les manip que tu fait pour que ça plante parce que je ne parvient pas à le faire planter.
2°)
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        TextBox1.Text = TextBox1.Text & Chr(13)
    End If
End Sub
A+

tchulio · Answer

OK , 

Alors regarde sur le lien ci-joint, tout y est expliqué.

Merci

http://www.cijoint.fr/cjlink.php?file=cj200905/cijIEEV3Dm.bmp

tchulio · Answer

Comment tu dis inverser les 2 lignes, comme cela?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)



 LigInt = ListBox1.List(ListBox1.ListIndex, 0) + 1
 

 UsF_Modification.Hide
 
 UsF_Creation.Show
  End Sub


Car ça plante aussi comme cela...

tchulio · Answer

Pour voir si ça plante, tu cliques sur le bouton initialiser puis là tu essaies sur la zone blanche, là on voit que ça plante... Tu vois ce que je veux dire ?
Merci a+

lermite222 · Answer

Ok je pense que j'ai compris, mais quand tu donne des explications il faut tout dire, a savoir..
QUAND IL N'Y A PAS DE SELECTION CA PLANTE...
Private Sub ListBox1_Click() 'au clic dans la ListBox
    If ListBox1.ListIndex < 0 Then Exit Sub
    For Y = 1 To 9
      Me.Controls("TextBox" & Y).Value = ListBox1.List(ListBox1.ListIndex, Y - 1)
    Next Y
    TextBox1.SetFocus
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Value)
End Sub
et au double click, tu change le code.. maintenant tu met Hide et sur le classeur c'est Unload !!!!!
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ' Masquer le formulaire Modification
    'UsF_Modification.Hide
    Unload Me
    LigInt = ListBox1.List(ListBox1.ListIndex, 0) + 1
    UsF_Creation.Show
  End Sub
doit être
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ' Masquer le formulaire Modification
     LigInt = ListBox1.List(ListBox1.ListIndex, 0) + 1
    'UsF_Modification.Hide
    Unload Me
    UsF_Creation.Show
  End Sub
A+

tchulio · Answer

Salut !

effectivement en mettant ceci : If ListBox1.ListIndex < 0 Then Exit Sub
ça fonctionne parfaitement, désolé de ne pas avoir expliqué comme il le fallait depuis le début...

A mon avis il ne devrait plus y avoir beaucoup de problèmes , si ce n'est celui qui vient de m'arriver ce matin:
En fait dans la listbox, tant que les N° dans la colonne tout à gauche ( comme dans le fichier que sur ci -joint) sont consécutifs, 1 - 2 - 3 -4 , .... lorsque je double clic sur une ligne, pas de soucis, les valeurs se chargent comme il se doit dans le Usf_Création, par contre, j'utilise réelement ce programme depuis ce matin, et mes numéros ne sont pas consécutifs, ça commence à 96 - 99 - 101 - 105 ,... et là, lorsque je double clic sur un ligne, le Usf_Création se chargent mes sans les valeurs....

Il doit y avoir un petit paramètre à changer, mais je n'arrive pas à trouver d'où ça vient.....

Un grand merci si tu arrives à me donner ce dernier coup de main.......

lermite222 · Answer

Remplace la sub Activate de l'UF Création par
Private Sub UserForm_Activate()
Dim lig As Long

    With Sheets("INTERVENTIONS")
      For lig = 2 To .Cells(65536, 1).End(xlUp).Row
        If .Cells(lig, 1) = LigInt Then Exit For
      Next lig
      Me.Cb_rnc = .Range("A" & lig)
      Me.TB_soc = .Range("B" & lig)
      Me.TB_NumBon = .Range("E" & lig)
      Me.CB_art = .Range("D" & lig)
      Me.TB_TempsInt = .Range("F" & lig)
      Me.CB_cre = .Range("C" & lig)
      Me.TB_Probleme = .Range("G" & lig)
      Me.TB_Cause = .Range("H" & lig)
      Me.col_9 = .Range("I" & lig)
      Me.col_10 = .Range("J" & lig)
      Me.col_12 = .Range("L" & lig)
      Me.col_11 = .Range("K" & lig)
      Me.col_13 = .Range("M" & lig)
      Me.col_14 = .Range("N" & lig)
      Me.col_15 = .Range("O" & lig)
      Me.col_16 = .Range("P" & lig)
      Me.col_17 = .Range("Q" & lig)
      Me.col_18 = .Range("R" & lig)
      Me.col_19 = .Range("S" & lig)
      Me.col_20 = .Range("T" & lig)
      Me.col_24 = .Range("X" & lig)
      Me.col_25 = .Range("Y" & lig)
      Me.col_26 = .Range("Z" & lig)
      Me.col_27 = .Range("AA" & lig)
      Me.col_28 = .Range("AB" & lig)
      Me.col_29 = .Range("AC" & lig)
      Me.col_30 = .Range("AD" & lig)
      Me.col_31 = .Range("AE" & lig)
      Me.col_32 = .Range("AF" & lig)
      Me.col_33 = .Range("AG" & lig)
      Me.col_34 = .Range("AH" & lig)
      Me.col_35 = .Range("AI" & lig)
      Me.col_36 = .Range("AJ" & lig)
      Me.col_37 = .Range("AK" & lig)
      Me.col_38 = .Range("AL" & lig)
      Me.col_39 = .Range("AM" & lig)
      Me.col_40 = .Range("AN" & lig)
      Me.col_41 = .Range("AO" & lig)
      Me.col_42 = .Range("AP" & lig)
    End With
  If col_42 <> "" Then c.Visible = True
End Sub
Et je t'ai pourtant déja expliquer comment remplacer tes 40 lignes par 4 lignes !!
A+

tchulio · Answer

J'ai essayé ton code, mais toujours pareil... Lorsque je dble clic sur une ligne, rien dans l'Usf_Creation....

lermite222 · Answer

ouppps, j'ai oublier..
dans l'UF Modification...
LigInt = ListBox1.List(ListBox1.ListIndex)

tchulio · Answer

Bon c'est parfait Mr lermitte222!

Un grand merci pour toute votre aide sans laquelle je n'aurais pu aboutir!

tchulio · Answer

Salut!

J'écris pour autre chose car la macro fonctionne parfaitement!

C'est juste que lorsque je veux mettre les données de mes textbox dans la feuille "Formulaire" avec le bouton éditer rapport, ça fonctionne bien mais si dans une textbox j'appuie sur "ENTER" pour aller à la ligne et que j'exporte, ben la il y a un carré qui se mets sur ma feuille (là ou j'ai appuyé sur enter...) tu vois ce que je veux dire?
Alors là quand j'imprime ma feuille ça me fait des carrés un peu partout...
Que dois je faire pour éviter celà?


Merci

lermite222 · Answer

Re,
dans ..
      .Cells(LigInt, 1) = Me.Cb_rnc.Value
      .Cells(LigInt, 2) = Me.TB_soc.Value
      .Cells(LigInt, 3) = Me.CB_cre.Value
      .Cells(LigInt, 4) = Me.CB_art.Value
     .....
     .....
Remplacer les Value par text ou par rien.
      .Cells(LigInt, 2) = TB_soc
      .Cells(LigInt, 3) = CB_cre
      .Cells(LigInt, 4) = CB_art
     .....
     .....
Comme tu est dans l'UF pas besoin du Me.
A+
Rappel.. remplacer tes 40 lignes par 4
Dans le Tag des textbox mettre sont N°, par ex: dans TB_soc  mettre Tag à 1, CB_cre mettre tag à 2
.... col_24 mettre tag à 24 (en mode édition bien sùr)
Si il y a des TextBox autre mettre le tag à 99
pour sauver..
Dim Cont as control
    For Each Cont In Me.Controls
        If TypeOf Cont Is MSForms.TextBox Then
            N = Cont.tag
            if N<99 then
                Cells(Lig, N) = Cont.Object.Text 
            end if
        End If
    Next Cont
ou bien Autre méthode

tchulio · Answer

Salut!

Donc j'ai enlevé le .Value dans tous les Usf, et que je mette rien ou que je mette .Text, toujours le petit carré :(
A savoir que pour les Textboxs où j'appuie sur enter, j'ai mis => ENTERKEYBEHAVIOR à "True". 
Je ne sais pas si ça a des incidences...
Mais il faut absolument que je trouve une solution car ça le fait vraiment pas quand j'imprime mes feuilles...

Pour ce qui est des 40 lignes :) je gardais ta méthode de côtés pour l'instant car ma base de donnée n'était pas figée, elle a pas mal évolué depuis! Mais maintenant que je sais qu'elle va rester telle quelle, je pense ça ça va être plus simple avec ta méthode!

lermite222 · Answer

Je ne parvient pas à recréer le problème (jamais eu)
Met un nouveau topic avec ta question, peut-être d'autre intervenants pourront te répondre.
A+

tchulio · Answer

ok merci.

http://www.commentcamarche.net/forum/affich 12613289 probleme insertion textbox

Combobox tri

43 réponses

Discussions similaires

Newsletters