(VBA) Addition de deux Combobox (mois de l'année)

Bonjour à tous,

Je me permet de créer ce nouveau sujet car j'aurais besoin d'un coup de pouce.

J'ai deux combobox, toutes les deux contiennent les mois de l'année.

'******Combobox alimenter par une ligne fixe*****'
ComboBox3.ColumnCount = 1
ComboBox3.List() = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")

'******Combobox alimenter par une ligne fixe*****'
ComboBox4.ColumnCount = 1
ComboBox4.List() = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")

Je voudrais que dans mon (Textebox 4) il y est mon résultat des deux combobox, je m'explique ;

Exemple :

Si je choisi janvier (combobox1) et avril dans (combobox2) je voudrais le résultat 4 dans ma Textbox4.

(De janvier à avril, 4 mois etc...)

Si quelqu'un aurait une solution.

Merci d'avance.

Anthotho

Bonjour,

Il suffit d'utiliser les ListIndex de chaque cbx

Bonjour Patrice33740,

Je suis désolé, étant débutant en VBA je ne sais pas trop comment m'y prendre..

Bonjour,

Je me permets de relancer le sujet, pour voir si quelqu'un aurait une solution à m'apporter.

Merci à vous.

Anthotho

Re,

Il faudrait savoir si c'est ComboBox3 et 4 ou ComboBox1 et 2 !!!

J'écrirais :

Option Explicit
Private Sub UserForm_Activate()
Dim mois As Variant
  mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
  Me.ComboBox1.List = mois
  Me.ComboBox2.List = mois
  Me.TextBox4.Value = ""
End Sub
Private Sub ComboBox1_Change()
  If Me.ComboBox1.ListIndex >= 0 And Me.ComboBox2.ListIndex >= 0 Then
    Me.TextBox4.Value = Me.ComboBox2.ListIndex + 1 - Me.ComboBox1.ListIndex
  Else
    Me.TextBox4.Value = ""
  End If
End Sub
Private Sub ComboBox2_Change()
  If Me.ComboBox1.ListIndex >= 0 And Me.ComboBox2.ListIndex >= 0 Then
    Me.TextBox4.Value = Me.ComboBox2.ListIndex + 1 - Me.ComboBox1.ListIndex
  Else
    Me.TextBox4.Value = ""
  End If
End Sub