XL 2019 Equivalence à listindex pour un textbox

[SPGoder]

Bonjour
Dans le code suivant, on recherche la valeur de combox1 (de sa liste initialement chargé ) dans une base de donnée sur une feuille pour en extraire le numéro de ligne associé, pour ensuite copier tous les autres valeurs. Si j'ai bien compris. (et oui, novice.....)

Dim ligne As Long, i As Integer
   
    With Ws

    If MsgBox("Confirmez-vous la modification du bailleur?", vbYesNo, "Demande de confirmation de modification") = vbYes Then

        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
       
            ligne = Me.ComboBox1.ListIndex + 2    
            Ws.Cells(ligne, "c") = ComboBox2      
            Ws.Cells(ligne, "B") = ComboBox2      
            Ws.Cells(ligne, "A") = ComboBox1      'inutile
            Ws.Cells(ligne, "O") = ComboBox4  
            If OptionButton1.Value = True Then    
                Ws.Cells(ligne, "L") = TextBox9    
                Ws.Cells(ligne, "M") = TextBox10  
            End If
                For i = 1 To 9
                    If Me.Controls("TextBox" & i).Visible = True Then          
                    Ws.Cells(ligne, i + 3) = Me.Controls("TextBox" & i)    
                Next i
        End If
  End With

Ma Question est : je souhaite remplacer le combobox1 par un textbox. La fonction listindex n'étant pas disponible pour un textbox,je rame pour trouver une solution.
merci par avance

 

[jmfmarques]

Bonjour
cet "équivalent" n'existe pas, une textbox étant un contrôle de saisie d'une seule donnée (du texte)
On peut toujours "s'amuser" à construire une petite usine à gaz avec une textbox multiligne, les propriétés seltext et selstart, le caractère vbcrlf etc... etc ... , mais avec pour seul "bénéfice" celui d'alourdir indûment le code, ralentir l'exécution des instructions, etc... (ce sera sans mon aide).

 

[SPGoder]

Je ne suis pas étonné de votre réponse, ayant beaucoup recherché sur internet, et n'ayant pas trouvé de réponse....
Je vais prendre mon mon problème sous un autre angle.
Merci

 

[jmfmarques]

Je ne suis pas étonné de votre réponse, ayant beaucoup recherché sur internet, et n'ayant pas trouvé de réponse....

pour les mêmes raisons que celles qui font que tu ne trouverais pas de réponse à une demande d'utilisation d'une poêle pour cuire sous pression, même si des interventions techniques et des rajouts sur la poële pourraient permettre d'atteindre un résultat similaire. 😎

 

[SPGoder]

J'aime bien la comparaison,🙂

 

[Dranreb]

Bonjour.
Il est possible de mettre à une ComboBox sa propriété ShowDropButtonWhen à 0 — fmShowDropButtonWhenNever pour d'avantage inciter l'utilisateur à l'employer correctement. Elle a alors toute l'apparence d'une TextBox.

 

[SPGoder]

Cela peut être une bonne chose, merci de l'astuce

 

[Dranreb]

En cas de panne de mémoire pour la frappe d'une suite, il reste Alt+flèche bas pour afficher quand même la liste.