VBA - Formulaire de recherche en cascade

Version imprimable

Voir 40 message(s) de cette discussion en une page

17/03/2017, 11h18
horusbk

Oui en effet,
Du coup j'ai lié mes 2 combobox respectivement à Cbx_jour et à Cbx_mois. Lorsque je lance mon formulaire je n'ai rien qui s'affiche dans les listes.
De plus pour la plage "liste_dates", j'ai pris toutes les dates entre "$D$2:$NE$2".

Tu verrais où je me suis trompé ?

Cordialement
Baptiste Kerdraon
17/03/2017, 11h32
MarcelG

Encore une fois, lis ce que j'ai écrit!

Malgré tout, je vais être plus explicite

Chaque item d'une zone de liste modifiable (Combobox) peut être alimenté de 2 façons
- "manuellement" par la méthode Additem
- faire partie d'une liste de feuille de travail

J'ai choisi la 2ème solution.
Pour ce faire,
1 -Tu nommes dans une feuille de travail annexe les 2 listes (liste_jours : 1,2,3..31 et liste_mois : janvier, février,...décembre
2 - Pour chacune de tes Combobox, tu informes la propriété RowSource par le nom correspondant (Cbx_mois: liste_mois, Cbx_jour : liste_jours)

Je te recommande vivement d'étudier les 2 tutoriels de Silkyroad à ce sujet
Espace SilkyRoad
17/03/2017, 12h46
horusbk

1 pièce(s) jointe(s)

Merci Marcel,
De ce fait, j'ai réussi à mettre dans mes deux listes les jours et les mois. Du coup, mon formulaire m'affiche bien toutes les valeurs dans toutes les listes souhaitées.
Maintenant, lorsque je clique sur VALIDER, il m'envoie une erreur à cette ligne :

Code:

If .Range("A" & lalign).Value + 0 = Cbx_version.Value + 0 And .Range("B" & lalign).Value = Cbx_note.Value Then

Pièce jointe 255229

Bien cordialement
Baptiste K
17/03/2017, 13h27
MarcelG

As-tu essayé de savoir pourquoi?
Je dis cela car l'éditeur VBE n'est pas souvent utilisé (pas à pas, ? dans la fenêtre Exécution...)
Tu aurais pu écrire par exemple dans la fenêtre Exécution

Code:

?laligne

et activer la touche "Enter" pour détecter, en pas à pas avec point d'arrêt, la cellule où l'erreur se produit
(Reviens si nécessaire)
De mémoire, la gestion des erreurs est une contribution de Silkyroad dans l'espace que je t'ai cité.

J'ajoute souvent 0 pour transformer si c'est possible une valeur alphanumérique (exemple '1) en une valeur numérique (1)
Seulement, à la ligne 8, est inscrit "1a" d'où l'erreur.

3 remarques :
1 - Dans ta colonne, se trouve parfois un espace avant, et peut-être derrière, devant la valeur.
2 - Dans le code, l'année n'st pas gérée. Tu peux la forcer à 2016, sinon adapter le code.
3 - Pour inscrire la note dans la cellule trouvée, tu peux créer une Combobox basée sur une liste de notes possibles. Je te laisse faire

Pour ce qui nous concerne ici,
Remplace la ligne en erreur par

Code:

If Trim(.Range("A" & lalign).Value) = Cbx_version.Value And Trim(.Range("B" & lalign).Value) = Cbx_note.Value Then

Regarde l'aide en ligne de la méthode "Trim" et reviens si nécessaire pour les points 2 et 3 ci-dessus, après avoir cherché.

Bonsoir MarcelG, le Forum,

J'ai réussi à me débrouiller et à enfin, faire marcher le code sur mon fichier test. J'ai modifier une partie de ton code, notamment pour mettre en surbrillance la ligne et la colonne trouvée par le VBA et non, comme tu l'avais codé, en affichant l'adresse de la cellule en msgBox.

Ce soir, je viens de le transférer sur mon fichier de travail pour le tester et j'ai eu un petit problème.
La plage "liste-dates" inclus toutes les dates présentent du mon fichier excel. Dans l'exemple, elles allaient du 01/01/2016 au 31/12/2016. Cependant, dans mon fichier de travail, elles sont à cheval sur deux années : du 18/12/2016 au 30/06/2017.

Du coup, quand je lance mon calcul (en mode pas à pas ;) ), j'ai l'erreur d'exécution 6 "dépassement de capacité" qui apparaît. Comme je le sais, le problème vient que excel ne peut calculer que de -32768 à 32767. Alors qu'ici j'ai des nombres bien supérieur : le 18/12/2016 qui correspond au 42722...

J'ai détecté la ligne posant problème :

Code:

lalign = t.Row

J'ai essayé de mettre CLong comme ceci mais ça n'a pas fonctionné :

Code:

lalign = CLong(t.Row)

J'ai également essayé de mettre Long à la place de Byte pour ce code mais sans succès:

Code:

Dim lalign As Byte

Du coup, je permets de demander quelques conseils pour me dépatouiller, voici ci-dessous mon code complet.
Cordialement et merci d'avance,

Baptiste k.

Code:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Option Explicit
 
Private Sub Find1S1_Initialize()
 
Dim dico As Variant
Set dico = CreateObject("Scripting.Dictionary")
 
'Initialisation de la Combobox
Cbx_version.Clear
 
Dim c As Range
 
'Remplir nom de la page + nom de la liste 
For Each c In Worksheets("Commande 2017 DECEMBRE A JUIN").Range("Marche_S1")
        With c
                If Not dico.Exists(.Value) Then
                        dico.Add .Value, .Value
                        Cbx_version.AddItem .Value
                End If
        End With
Next c
 
'dictionnaire réinitialisé
dico.RemoveAll
'libération de la variable
Set dico = Nothing
 
End Sub
Private Sub Cbx_version_Change()
 
Call alim_combo_note(Cbx_version.Value)
 
End Sub
Public Sub alim_combo_note(maversion As String)
 
If maversion = "" Then Exit Sub
 
Dim c As Range
Dim firstAddress As Variant
 
'Vider la Combobox des items précédents
Cbx_note.Clear
'Recherche de la version pour alimenter les items de la note
 
'Remplir nom de la page + nom de la liste des trains
With Worksheets("SA 2017 DECEMBRE A JUIN").Range("Marche_S1")
        Set c = .Find(maversion, LookIn:=xlValues, Lookat:=xlWhole)
        'Alimentation des items
        firstAddress = c.Address
        Do
                Cbx_note.AddItem c.Offset(0, 1).Value
                Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
End With
 
'Libération de la variable
Set c = Nothing
 
'Facultatif : Tri le contenu de la ComboBox par ordre alphabétique
 
Dim i As Integer, j As Integer, strtemp As String
 
With Cbx_note
        For i = 0 To .ListCount - 1
                For j = 0 To .ListCount - 1
                        If .List(i) < .List(j) Then
                                strtemp = .List(i)
                                .List(i) = .List(j)
                                .List(j) = strtemp
                        End If
                Next j
        Next i
End With
 
End Sub
 Private Sub Btn_Recherche_Click()
 
Dim ladate As Date
 
ladate = CDate(Cbx_jour.Text & " " & Cbx_mois.Text & " " & Cbx_annee.Text)
 
Dim c As Range
Dim lacolonne As Range
Dim t As Range
Dim lalign As Byte
Dim Rang As String
 
    'Nommer la feuille utilisee
    With Worksheets("Commande 2017 DECEMBRE A JUIN")
        'Nom plage de date
        Set c = .Range("date_test").Find(ladate, LookIn:=xlFormulas)
        'Nom plage de la liste
        Set lacolonne = .Range("Marche_S1").Offset(0, c.Column - .Range("Marche_S1").Column)
        For Each t In lacolonne
            lalign = t.Row
                If Trim(.Range("A" & lalign).Value) = Cbx_version.Value And Trim(.Range("B" & lalign).Value) = Cbx_note.Value Then
                Rang = "" & Split(t.Address, "$")(1) & ":" & Split(t.Address, "$")(1) & "," & t.Row & ":" & t.Row & ""
                Range(Rang).Select
                Exit For
                End If
        Next t
    End With
        Unload Me
    End Sub

21/03/2017, 10h03
MarcelG

Bonjour Horusbk, Bonjour au Forum,

Avant de finaliser,
Il te faut déclarer chaque variable en fonction de sa valeur (Long, String,...)
Si l'instruction

Code:

lalign = t.Row

pose problème, alors écris juste au-dessus

Code:

Debug.Print t.Row

et reviens en rapportant le résultat affiché dans la fenêtre Exécution.
La déclaration de variable dépendra du résultat.

Bonjour MarcelG,
Le résultat affiché est une erreur 6 dépassement de capacité qui pointe ici :

Code:

1
2
 
                lalign = t.Row

Je te remets le bout de code concerné (bouton valider) :

Code:

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
 Private Sub Btn_Recherche_Click()
 
Dim ladate As Date
 
ladate = CDate(Cbx_jour.Text & " " & Cbx_mois.Text & " " & Cbx_annee.Text)
 
Dim c As Range
Dim lacolonne As Range
Dim t As Range
Dim lalign As Byte
Dim Rang As String
 
 
    'Nommer la feuille utilisee
    With Worksheets("SA 2017 DECEMBRE A JUIN")
        'Nom plage de date
        Set c = .Range("date_test").Find(ladate, LookIn:=xlFormulas)
        'Nom plage de la liste des trains
        Set lacolonne = .Range("Marche_S1").Offset(0, c.Column - .Range("Marche_S1").Column)
        For Each t In lacolonne
            'Proposition de MarcelG
            Debug.Print t.Row
                lalign = t.Row
                  If Trim(.Range("A" & lalign).Value) = Cbx_version.Value And Trim(.Range("B" & lalign).Value) = Cbx_note.Value Then
                  Rang = "" & Split(t.Address, "$")(1) & ":" & Split(t.Address, "$")(1) & "," & t.Row & ":" & t.Row & ""
                 Range(Rang).Select
                 Exit For
                 End If
        Next t
    End With
        Unload Me
    End Sub

Merci de ton aide,
Baptiste K.

21/03/2017, 10h24
MarcelG

Horusbk,

Désolé mais tu ne me lis pas, ou trop rapidement.
Debug.Print est une instruction qui retourne un résultat dans la fenêtre Exécution (CTRL + G)
QUEL EST CE RESULTAT?

Pardon,
J'ai toutes ces valeurs dans la fenêtre d'exécution :

Code:

21/03/2017, 10h40
MarcelG

Salut,

D'abord regarde l'adresse de la cellule à informer (et qui doit être trouvée par le code)
et fais-en part.

L'objet

Code:

Range("Marche_S1")

a quelle adresse sur ta feuille de travail.
Déclare

Code:

Dim lalign as

en fonction ce delle-ci (Byte, Integer, Long,...)
21/03/2017, 10h46
Marc-L

Bonjour, bonjour !

Citation:

Envoyé par horusbk

Le résultat affiché est une erreur 6 dépassement de capacité qui pointe ici :

Code:

lalign = t.Row

Avec un tel message pourtant clair et rien qu'en cliquant sur le bouton Aide lors du message d'erreur :
la variable telle que déclarée ne peut contenir la valeur ‼

Ce n'est vraiment pas compliqué de vérifier quel type de donnée renvoie la propriété row puis
de déclarer en conséquence la variable, à savoir avec le même type !

Un tuyau de 15 de diamètre ne passera jamais dans un trou de 5 …

Voilà, voilà !

___________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
21/03/2017, 10h49
MarcelG

Salut Marc,

C'est ce que je me tue à dire.
21/03/2017, 10h51
Marc-L

Salut Marcel !

Effectivement, je n'ai pas rafraîchi cette discussion, n'ai pas vu ton post #30 avant de répondre …

Au moins on est deux à lui indiquer la même voie, cela finira bien par rentrer !
21/03/2017, 11h13
horusbk

Bonjour

Citation:

quel type de donnée renvoie la propriété row

C'est l'adresse de la ligne d'une cellule.

Citation:

L'objet
Code : Sélectionner tout - Visualiser dans une fenêtre à part

Code:

Range("Marche_S1")

a quelle adresse sur ta feuille de travail.
Déclare
Code : Sélectionner tout - Visualiser dans une fenêtre à part

Code:

Dim lalign as

en fonction ce delle-ci (Byte, Integer, Long,...)

Il y a la fois des chiffres (56200) et du texte avec chiffres (W5800) donc : String ? je suppose...

Citation:

Au moins on est deux à lui indiquer la même voie, cela finira bien par rentrer !

Certes ;) Mais gardez à l'esprit que je n'ai pas votre niveau :D Tout me paraît pas évident.

Cdlt. Horusbk
21/03/2017, 11h31
MarcelG

Salut,

Pas besoin de citer.

Tu confonds la ligne et la valeur de la cellule.

La ligne est un entier donc de type Byte, Integer, Long..

Ce que je te propose:
0 - Afficher la fenêtre Exécution (CTRL + G)
1 - Définir lalign comme il se doit (Byte...) en fonction de la dimension de ta colonne de recherche
2 - regarder où devrait se trouver la cellule à sélectionner par le code
3 - mettre un point d'arrêt (clic sur la marge de code donc ici à la 25 ème ligne au niveau de la ligne "Rang =" afin d'obtenir un point de couleur généralement rouge
3 - activer ton code
4 - Dès la condition remplie, le débogueur (ligne jaune) va s'y arrêter
5 - Activer le code pas à pas
6 - Dès l'instruction Rang = ... réalisée, dans la fenêtre Exécution, tu écris "?Rang" et tu actives la touche Enter de ton clavier
Un résultat doit s'afficher. Tu en fais part.

(Je reviens dans 1 heure)
21/03/2017, 13h11
Marc-L

Citation:

Envoyé par horusbk

C'est l'adresse de la ligne d'une cellule.

Ce n'est pas le type de donnée ‼

Je récapépète depuis le bébut (oui c'est le niveau :roll:) : quel est le type de donnée renvoyé par la propriété Row ?

Et la réponse est pourtant fort accessible : dans le code placer le curseur texte sur Row puis appuyer sur :f1:
et lire donc le type de donnée clairement indiqué ‼ Et c'est du niveau grand débutant …
21/03/2017, 13h30
horusbk

Salut,
J'ai définit ma variable lalign avec integer :

Code:

Dim lalign As Integer

J'ai suivi tes instructions en mettant la fenêtre d'exécution mais rien ne s'affiche après avoir lancé le code :?
21/03/2017, 13h38
Marc-L

Là avec ce type de donnée différent de celui pourtant indiqué dans l'aide de Row 8O une erreur pourrait se produire …
21/03/2017, 13h41
MarcelG

Salut,

As-tu réalisé tout ce que je t'ai proposé.
Point d'arrêt, pas à pas etc...?

A quelle ligne se trouve la cellule que doit détecter le code?
21/03/2017, 13h47
horusbk

Salut,
Alors j'ai ouvert la fenêtre d'exécution.
J'ai défini :

Code:

Dim lalign As Integer

La cellule a sélectionner par le code devrait être en Q344
J'ai mis le point d'arrêt à

Code:

Rang = "" & Split(t.Address, "$")(1) & ":" & Split(t.Address, "$")(1) & "," & t.Row & ":" & t.Row & ""

J'ai lancé le code F5

4 - Dès la condition remplie, le débogueur (ligne jaune) va s'y arrêter
Il s'est arrêté sur :

Code:

lalign = t.Row

5 - Activer le code pas à pas
Lorsque j'active le pas à pas F8, le code repart de 0

Si j'ai pu être plus clair.

Voir 40 message(s) de cette discussion en une page