Problème de code

Salut le forum,

dû à un oubli majeur, j'ai eu à refaire un programme que j'avais commencé et qui progressait bien grâce, notamment, à l'aide de felix.

Cependant, dans la 2e version de ce programme, j'ai un problème de code que je n'arrive pas à résoudre.

Rien de mieux pour le constater que d'essayer.

Appuyez sur "Enregistrer un résultat" et sélectionnez dans le combobox une partie et voilà, le problème surgit.

https://www.excel-pratique.com/~files/doc/Book12.zip

Le label 1 devrait contenir le nom de la première équipe et le label 2, celui de la 2e.

Le label 4 devrait contenir le nom de la division.

Merci pour votre aide.

Bonsoir,

il faut toujours regarder dans quel onglet, on travaille.....

essaie en remplaçant avec ceci :

Private Sub ComboBox1_Change()
With Sheets("Calendrier")
    Derlig = .[H65000].End(xlUp).Row
    x = InStr(1, Me.ComboBox1, " vs ", 1)
    Division = Application.Index(.Range("A1:A" & Derlig), _
            Application.Match(Left(Me.ComboBox1, x - 1), .Range("B1:B" & Derlig), 0))
    Me.Label2.Caption = Left(Me.ComboBox1, x - 1)
    Me.Label3.Caption = Right(Me.ComboBox1, Len(Me.ComboBox1) - x - 3)
    Me.Label4.Caption = Division
End With
End Sub

Salut felix!

Encore une fois, impeccable.

Merci beaucoup!