RechercheV Index Equiv

[jorisphi]

Bonjour à tous

Je n’arrive pas à appliquer Recherche V avec Index Equiv pour ma recherche sur plusieurs onglets
Quelqu’un pourrait-il m’aider ?
Merci d’avance pour votre aide

Jorisphi

 

[mromain]

Re : RechercheV Index Equiv

Bonjour jorisphi, bonjour le fil,


Voici une modification qui permet d'éviter l'erreur.
MAIS, ne connaissant pas tout le code qu'il y a derière, je ne peux pas t'assurer que le formulaire fonctionne normalement suite à cette modification. Une chose est sure, l'erreur n'apparait plus et le formulaire s'affiche.

La modification à apporter se situe dans le code du formulaire "UsfRechInt", à la fin de la procédure "Private Sub UserForm_Initialize()"

voici la modification à apporter :

  For b = 1 To nbcol[COLOR=Red][B] - 1[/B][/COLOR]: Set Lbl(b).GrLabel = Me("Label" & b): Next b

a+

 

[jorisphi]

Re : RechercheV Index Equiv

Cher mromain, bonjour

Merci pour ta réponse rapide
Je n'ai plus d'erreur
Par contre, ma recherche intuitive ne d-fonctionne plus correctement
Encode par exemple "7" et tu verras ce que cela donne comme réponse



Aurais-tu une soultion pour que le résutat soit correct ?

Merci d'avance
Cordialement
Jorisphi

 

[mromain]

Re : RechercheV Index Equiv

re,

Toujours sur le même formulaire, modifier la procédure suivante :

Private Sub Textmot_Change()
 Me.ListBox1.Clear
 i = 0
 Set Plage = f.[Intuitive].CurrentRegion
 Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1)
 Set c = Plage.Find(Me.Textmot, , , xlPart)
[B] ReDim tabTmp(1 To 1)
 tabTmp(1) = ""[/B]
 If Not c Is Nothing Then
      premier = c.Address
      Do
[B]          test = True
          For iTmp = LBound(tabTmp) To UBound(tabTmp)
            If tabTmp(iTmp) = c.Row Then test = False
          Next iTmp
          
          If test Then
            cpt = cpt + 1
            ReDim Preserve tabTmp(1 To cpt)
            tabTmp(cpt) = c.Row[/B]
            Me.ListBox1.AddItem
            Lig = c.Row - Plage.Row + 1
            For col = 1 To nbcol
              Me.ListBox1.List(i, col - 1) = Plage.Cells(Lig, col)
            Next col
            i = i + 1
          [B]End If[/B]
        Set c = Plage.FindNext(c)
      Loop While Not c Is Nothing And c.Address <> premier
  End If
End Sub

a+

 

[jorisphi]

Re : RechercheV Index Equiv

Très Cher mromain,
Je ne n'ai qu'un seul mot : "F.O.R.M.I.D.A.B.L.E !........."

Ca marche à merveille !.....
Je désespérais depuis longtemps malgré mes différents posts, car personne ne trouvait. Mais toi, tu as trouvé "LA SOLUTION"

Tu es un "AS" !.....

Moi qui suis débutant, j'ai encore appris grâce à toi.

Encore un Tout Tout grand MERCI !...
Très Très cordialement

Jorisphi

 

[jorisphi]

USF Selection plus de 2 critères : Données incorrectes

Cher Mromain,

J’ai longtemps hésité à vous contacter
Vous m’aviez aidé il y a peu, et vous étiez le seul à trouver LA Solution à mon problème, et ce, malgré mes différents posts

Puis-je solliciter une nouvelle fois votre aide ?....
Car, aucune solution ne m’a encore été proposée à mon nouveau problème, et je coince dans mon projet. Il me faut donc un PRO, et j’ai pensé à vous

Voici en résumé ma demande :
J’ai un combobox qui ne m’affiche correctement mes données (venant de ma BD) que lorsque j’ai 2 critères (Si plus de 2 critères, données incorrectes)
Je donne plus de détails dans mon fichier joint.

J’espère que vous accepterez de m’aider.
Très Cordialement
Jorisphi

 

[mromain]

Re : RechercheV Index Equiv

bonjour,

voici la macro à modifier :

Private Sub ComboBox1_Change()
Dim c As Range, plage As Range, x As Long, firstAddress, Tb() As Variant
If ComboBox1.ListIndex = -1 Then Exit Sub
ListBox1.Clear
With Sheets("Création")
    Set plage = .Range("A[B][COLOR=Red]3[/COLOR][/B]:A" & .Range("A65000").End(xlUp).Row)
    Set c = plage.Find(ComboBox1.Text)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            x = x + 1
            ReDim Preserve Tb(1 To 2, 1 To x)
            Tb(1, x) = .Cells(c.Row, 2)
            Tb(2, x) = c.Row
            Set c = plage.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
[COLOR=Red][B]If UBound(Tb, 2) = 1 Then
    Me.ListBox1.AddItem Tb(1, 1)
    Me.ListBox1.List(0, 1) = Tb(2, 1)
Else
    ListBox1.List = Application.Transpose(Tb)
End If[/B][/COLOR]
Set c = Nothing
Erase Tb

End Sub

a+

 

[jorisphi]

Re : RechercheV Index Equiv

Cher Mromain,

Vous voyez que j’avais raison : Vous êtes un PRO !.....
« Une question, une réponse, et je précise une seule, et c’est JUSTE !.......
C’est Magnifique !.....

Puis-je vous demander une dernière chose, Juste me mettre sur la voie et je continuerai le code. J’espère ne pas vous faire perdre trop de temps précieux

J’aimerai que mes 5 combos « Déroulement Leçons » m’affichent les 10 Etapes de ma Leçon
Je donne plus de détails dans mon fichier en annexe


Encore un TOUT TOUT grand Merci

Très Cordialement
Jorisphi

 

[mromain]

Re : RechercheV Index Equiv

re bonjour,

Premièrement, je suis loin d'être un pro, je n'ai fais que du débogage.
Ensuite, pour la dernière demande, il s'agit plus d'un "nouveau développement" qu'un problème (a moins que j'ai mal compris). Ouvrir un nouveau fil en expliquant bien ton problème (je t'avoue que je n'ai pas bien compris tes explications) serait sûrement plus efficace pour avoir des réponses de l'ensemble du forum.

a+