XL 2016 dépendance des ComboBox

melltel

XLDnaute Junior
Bonjour, svp besoin d'aide (un peu banale😞 mais que j'arrive pas a faire malgrés les solutions déja proposées ici)
je ne parviens pas a rendre mes deux combobox liées (dépendantes) de telle sorte que:
en sélectionnant une valeur(2) dans Tribord automatiquement Babord prend 3 et inversement.
la valeur devrait s’incrémentée ou se décrémentée automatiquement .

Voici mon fichier avec des codes d'essaie qui ne marchent pas. svp quelqu'un peut m'aider??
 

Pièces jointes

  • Comparaisson.xlsm
    21.5 KB · Affichages: 10
Solution
Peut être :
VB:
Private Sub ComboBox8_Change()
   Dim V As Byte
   If ComboBox8.MatchFound Then
      V = CByte(ComboBox8.Text)
      ComboBox9.Text = V Mod 5 + 1
      End If
   End Sub
Private Sub ComboBox9_Change()
   Dim V As Byte
   If ComboBox9.MatchFound Then
      V = CByte(ComboBox9.Text)
      ComboBox8.Text = (V + 3) Mod 5 + 1
      End If
   End Sub

melltel

XLDnaute Junior
Bonjour, svp besoin d'aide (un peu banale😞 mais que j'arrive pas a faire malgrés les solutions déja proposées ici)
je ne parviens pas a rendre mes deux combobox liées (dépendantes) de telle sorte que:
en sélectionnant une valeur(2) dans Tribord automatiquement Babord prend 3 et inversement.
la valeur devrait s’incrémentée ou se décrémentée automatiquement .

Voici mon fichier avec des codes d'essaie qui ne marchent pas. svp quelqu'un peut m'aider??
Please à L'aide !
 

Dranreb

XLDnaute Barbatruc
Peut être :
VB:
Private Sub ComboBox8_Change()
   Dim V As Byte
   If ComboBox8.MatchFound Then
      V = CByte(ComboBox8.Text)
      ComboBox9.Text = V Mod 5 + 1
      End If
   End Sub
Private Sub ComboBox9_Change()
   Dim V As Byte
   If ComboBox9.MatchFound Then
      V = CByte(ComboBox9.Text)
      ComboBox8.Text = (V + 3) Mod 5 + 1
      End If
   End Sub
 

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG