Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 dépendance des ComboBox

  • Initiateur de la discussion Initiateur de la discussion melltel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

melltel

XLDnaute Occasionnel
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

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
Please à L'aide !
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…