L'indice n'appartient pas à la sélection...

[natorp]

Bjr à toutes et tous

J'ai adapté un code de JB et j'ai une erreur "l'indice n'appartient à la sélection" à la ligne :
ref = a((gauc + droi) \ 2)

après avoir validé le USF de saisie

Merci de votre aide, cordialement

Gérard

 

[Banzai64]

Re : L'indice n'appartient pas à la sélection...

Bonsoir

Remplace la procédure existante par celle-ci

Private Sub ComboBox1_Change()
    Set f = Sheets("Feuil2")
Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range(f.[A2], f.[A65000].End(xlUp))
    If c = Me.ComboBox1 Then mondico(c.Offset(, 1).Value) = c.Offset(, 1).Value
  Next c
  
  If mondico.Count > 0 Then
    temp = mondico.items
    Call Tri(temp, LBound(temp), UBound(temp))
    Me.ComboBox2.List = temp
    Me.ComboBox2.ListIndex = -1
    'Me.ComboBox3.ListIndex = -1
  End If
End Sub

 

[natorp]

Re : L'indice n'appartient pas à la sélection...

Désolé Banzai pour le retard

merci pour ta réponse, c'est nickel

bon WE, Gérard