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

boucle ave ComboBox_Change()

  • Initiateur de la discussion Initiateur de la discussion soune26
  • 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 !

S

soune26

Guest
Bonsoir le fofo,

J'ai juste une petite question:

Pensez- vous qu'il est possible de faire une boucle avec cela:
Code:
Private Sub REFERENCE1_Change()
DESIGNATION1.Value = Sheets("PRODUIT").Cells(REFERENCE1.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE2_Change()
DESIGNATION2.Value = Sheets("PRODUIT").Cells(REFERENCE2.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE3_Change()
DESIGNATION3.Value = Sheets("PRODUIT").Cells(REFERENCE3.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE4_Change()
DESIGNATION4.Value = Sheets("PRODUIT").Cells(REFERENCE4.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE5_Change()
DESIGNATION5.Value = Sheets("PRODUIT").Cells(REFERENCE5.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE6_Change()
DESIGNATION6.Value = Sheets("PRODUIT").Cells(REFERENCE6.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE7_Change()
DESIGNATION7.Value = Sheets("PRODUIT").Cells(REFERENCE7.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE8_Change()
DESIGNATION8.Value = Sheets("PRODUIT").Cells(REFERENCE8.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE9_Change()
DESIGNATION9.Value = Sheets("PRODUIT").Cells(REFERENCE9.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE10_Change()
DESIGNATION10.Value = Sheets("PRODUIT").Cells(REFERENCE10.ListIndex + 1, 2).Value
End Sub

Si c'est possible se serait vraiment cool car j'en ai trente deux, merci d'avance à ceux qui ont jeté un yeux! et un bisou pour celui qui me donne une réponse(qui fonctionne biensur).
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
664
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
453
Réponses
4
Affichages
735
Réponses
15
Affichages
788
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
8
Affichages
782
Réponses
5
Affichages
418
Réponses
3
Affichages
923
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…