Génial, merci pour cet outil qui rend l'IDE un peu moins irritant ;-)

Très bon exemple pour crypter et compresser ses données avant de les envoyer,le tout en étant sur qu'elles arrivent à bon port :) Merci!

Ca m'a bien dépanné mais il doit exister des controles qui le font directement , non?
En tous cas deux petites modifs sont necessaires :
celle citée ci dessus pour ne pas prendre en compte la touche shift et un petit test pour eviter que ça déconne quond on tape très vite (et que plusieurs occurence de la fonction sont lancées en même temps). Au final :

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
   'Saisie semie-automatique
  
   If KeyCode = vbKeyShift Then Exit Sub
   If KeyCode = vbKeyBack Then Exit Sub
   If Combo1.Text = "" Then Exit Sub
  
    Dim inc1 As Integer
  
   Wcount = Len(Combo1.Text)
    For inc1 = 0 To Combo1.ListCount - 1
    If LCase(Combo1.Text) = LCase(Left(Combo1.List(inc1), Wcount)) Then
        'Combo1.Text = Combo1.Text & Mid(Combo1.List(inc1), Combo1.SelStart + 1)
         Combo1.Text = Combo1.List(inc1)
        If Wcount <> Len(Combo1.Text) Then
            Combo1.SelStart = Wcount
            Combo1.SelLength = Len(Combo1.Text)
            Exit For
        End If
    End If
    Next inc1

End Sub