Microsoft 365 UserForm souci de paramètre n° de ligne pour atteindre la bonne ligne

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une beau WE 🙂

Avec le fichier joint, je fais mes recherches de communes (recherche intuitive).
J'ai un souci avec mon UF "trouve". Je ne parviens pas à trouver le bon n° de ligne.
Je joins une photo qui sera plus parlante que mes écrits :

Pourriez-vous m'aider ?
Je joins également le fichier,
Un grand merci comme d'habitude,
Amicalement,
lionel,

 

[Usine à gaz]

Re-Bonjour,

J'ai fini par trouver et la solution est toute simple.

Après avoir parcouru et tenté de modifier les propriétés de tous les éléments de l'UserForm sans succès ..
J'ai "tout bêtement" ajouté cette ligne en fin du code :
ActiveCell.Offset(3, 0).Select

Private Sub ComboBox1_Change()
 [a3] = ""
 If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, Choix1, 0)) Then
    If Me.ChoixFiltre1 Then
        Dim Val_Test, Filtre_Txt$
        For Each Val_Test In Choix1
            If UCase(Val_Test) Like UCase(ComboBox1.Value) & "*" Then
                Filtre_Txt = IIf(Filtre_Txt = "", Val_Test, Filtre_Txt & "_" & Val_Test)
            End If
        Next Val_Test
        Me.ComboBox1.List = Split(Filtre_Txt, "_")
    Else
        Me.ComboBox1.List = Filter(Choix1, Me.ComboBox1.Text, True, vbTextCompare)
    End If
    Me.ComboBox1.DropDown
    Me.TextBox2 = ""
  Else
    Position = Application.Match(Me.ComboBox1, Choix1, 0)
    Me.TextBox2 = rng.Cells(Position, 1)
    F.Cells(Position, 1).Select
  End If
    ActiveCell.Offset(3, 0).Select
End Sub

Problème résolu mais j'aurais bien aimé savoir où modifier dans les éléments de l'UserForm.
Un grand merci à "ceussssss" qui ont bien voulu regarder 🙂
Amicalement,
lionel,

 

[Lolote83]

Bonjour Usine à Gaz,
Peut être est-ce du au fait que ta liste commence en ligne 4 donc le 1er élement de ta liste sera décalé de 3.
1er élément = ligne 4
2eme élément = ligne 5
3eme élément = ligne 6 donc décalage de 3
@+ Lolote83

 

[Usine à gaz]

Bonjour Lolote83,
Merci pour ton message 🙂
Oui, ça provient de ça et c'est pourquoi j'aimerais savoir comment résoudre ce souci en modifiant un paramètre dans l'un des éléments de l'UserForm ... même si j'ai trouvé une solution cf #post2.
Bon WE 🙂

 

[Lolote83]

Re bonjour,
Dans ce cas, rajoute peut être simplement 3 à la ligne

Cela devrait donc le faire
@+ Lolote83

 

[Usine à gaz]

Merci lolote83,

J'en avais tenté un "tas" mais celui-là, je n'avais pas du le voir.
En effet ... ça marche !
lionel 🙂