XL 2016 dépendance des ComboBox

[melltel]

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??

 

[melltel]

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]

Bonjour
Un seul cas (si Tribord = 2 alors Babord doit être 3 et inversement) ne permet pas de déduire ce qu'il faut pour les autre cas, notammlent si Tribord = 1.

 

[melltel]

Bonjour
Un seul cas (si Tribord = 2 alors Babord doit être 3 et inversement) ne permet pas de déduire ce qu'il faut pour les autre cas, notammlent si Tribord = 1.

c'etait juste un exemple. je souhaite qu'a la selection d'une valeur a tribord, babord se remplisse de la valeur qui suit automatiquement.

 

[Dranreb]

Peut être :

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]

Peut être :

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

merci Dranreb !