Optimisation de mon programme

Question

Je suis novice sur VBA et j'ai du mal pour un programme qui commence à me prendre la tête... J'ai fouillé sur le forum et ne trouve pas les solutions à mes problèmes. Je suis entrain de faire un configurateur de voiture et je vous ai créer un exemple qui ressemble presque à l'original pour que vous compreniez mes problèmes. Le fichier fonction de cette façon : il y a une interface où l'on vient mettre les choix que l'on veut ( Quantité, masquer ou cacher le prix) des options et lorsque l'on appuie sur le bouton "calculate and adjust" l'offre s'adapte directement aux choix que nous avons fait. Il y a des options et des sous-options. Quand un client ne sélectionne pas une option dans l'offre finale nous allons la masquer ou cacher le prix. Mon programme de cacher les prix fonctionne bien, mais j'ai cependant un problème avec celui du masquage. Pour masquer il faut mettre un "H" dans la colonne choice de l'interface. - Dans la capture 1 et dans la 2 vous pouvez voir que je voulais masquer seulement la sous-option 1, mais je ne comprend pas pourquoi la sous-option 2 se masque aussi. Il faut savoir que dans le configurateur il y a par moment des descriptions sous les sous-options ou des lignes vides ou même rien ( une autre sous-option viens directement se mettre à la liste) - Dans la capture 3, vous pouvez voir que si on masque plusieurs options entière le bandeau de la page suivante remonte. Je voudrai que cela ne vienne pas. Si on masque plusieurs options le bandeau ( mais du même chapitre, car il y a 15 chapitre d'options, la je vous montre que 2) de la page suivante se masque. - Dans la capture 4, vous pouvez voir que l'option 2.10 ne se masque pas. J'ai tout défini mes variables et tableaux en variant et quand j'essaye de mettre en string plus rien ne fonctionne.. comment faire pour qu'il garde le .10 et pas le reconnaitre en .1? Si vous arrivez juste à même m'aider pour quelques points cela serait très aimable et j'en serais très reconnaissant. Meilleures salutations, Maurer...

eriiic · Answer

Très jolies photos. C'est tes vacances ? Ah, je n'avais pas vu ton fichier eric...

eriiic · Answer

Re,

une fonction qui te retourne les lignes d'une Ref.

Dans l'exemple test je me contente de sélectionner la plage résultante pour faciliter les tests. Fais-en l'usage que tu veux.

Sub test()
    Dim pl As Range
    Set pl = ligOpt("2.10.3")
    If Not pl Is Nothing Then pl.Select
End Sub

Function ligOpt(Ref As String) As Range
    Dim datas, c As Range, lig As Long
    datas = [A1:C1].Resize(Cells(Rows.Count, 3).End(xlUp).Row)
    Set c = Columns(1).Find(Ref, , xlValues, xlWhole)
    If c Is Nothing Then GoTo fin
    lig = c.Row
    If lig <> UBound(datas) Then
        Do While datas(lig + 1, 1) = ""
            lig = lig + 1
            If lig = UBound(datas) Then Exit Do
        Loop
    End If
    Set ligOpt = Range(c, Cells(lig, 1)).EntireRow
    '**********************************************
    ' si tu veux garder affichées les lignes vides du bas sauf une :
    Do While datas(lig - 1, 3) = ""
        lig = lig - 1
    Loop
    '**********************************************
    Set ligOpt = Range(c, Cells(lig, 1)).EntireRow
fin:
End Function

Edit 23:50 : modif code

eric

eriiic · Answer

Commence déjà par tester ce que je t'ai proposé sur différents cas . Est-ce que ce qui se trouve sélectionné correspond à ce que tu dois masquer ? eric...

eriiic · Answer

Avec une capture de l'option 2.3, non je ne peux pas voir la 2.5... A tester : Sub test() Dim pl As Range Set pl = ligOpt("2.10") If Not pl Is Nothing Then pl.Select End Sub Function ligOpt(Ref As String) As Range Dim datas, c As Range, lig As Long datas = &#91;A1:C1&#93;.Resize(Cells(Rows.Count, 3).End(xlUp).Row) Set c = Columns(1).Find(Ref, , xlValues, xlWhole) If c Is Nothing Then GoTo fin lig = c.Row If lig &lt;&gt; UBound(datas) Then Do While datas(lig + 1, 1) = "" Or Left(datas(lig + 1, 1), Len(Ref)) = Ref lig = lig + 1 If lig = UBound(datas) Then Exit Do Loop End If Set ligOpt = Range(c, Cells(lig, 1)).EntireRow '********************************************** ' si tu veux garder affichées les lignes vides du bas sauf une : Do While datas(lig - 1, 3) = "" lig = lig - 1 Loop '********************************************** Set ligOpt = Range(c, Cells(lig, 1)).EntireRow fin: End Function eric...

eriiic · Answer

Main se lance bien sur le bouton Go.

Par contre tu travailles avec la feuille Interface active. Il faudrait peut-être indiquer à ligOpt() avec quelle feuille elle doit travailler, par défaut c'est l'active.

Et puis :

ligOpt.Hidden = True 'on masque

non. Il faut tester le range qui peut être vide :

if not ligOpt is nothing  then ligOpt.Hidden = True 'on masque

eric