XL 2010 Valider selon le tableau choisie par combobox

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

Appo1985

XLDnaute Occasionnel
Bonsoir à tous.
Je voudrais pouvoir actualiser les contrôles de mon userform en fonction des 5 feuilles choisies dans le combobox3 (choix de la matière) mais j'arrive seulement a afficher les données du tableau de "BD" qui ne devrait pas faire partie.
Merci d'avance pour votre aide.
Ci-joint le fichier
 

Pièces jointes

Bonsoir Appo,
Un essai en PJ avec :
VB:
Private Sub CommandButton1_Click()
    Cod = ComboBox2: Note = Val(TextBox1): NoPV = Val(ComboBox1)    ' Récupération des valeurs
    Ligne = ActiveSheet.Application.Match(NoPV, [A:A], 0)           ' Recherche de la ligne concernée
    Cells(Ligne, "B") = Cod: Cells(Ligne, "C") = Note               ' Remplissage de la ligne
    ComboBox1 = "": ComboBox2 = "": ComboBox3 = "": TextBox1 = ""   ' Effacement des valeurs
End Sub
 

Pièces jointes

Bonsoir Appo,
Un essai en PJ avec :
VB:
Private Sub CommandButton1_Click()
    Cod = ComboBox2: Note = Val(TextBox1): NoPV = Val(ComboBox1)    ' Récupération des valeurs
    Ligne = ActiveSheet.Application.Match(NoPV, [A:A], 0)           ' Recherche de la ligne concernée
    Cells(Ligne, "B") = Cod: Cells(Ligne, "C") = Note               ' Remplissage de la ligne
    ComboBox1 = "": ComboBox2 = "": ComboBox3 = "": TextBox1 = ""   ' Effacement des valeurs
End Sub
Bonsoir. Merci beaucoup
Effectivement c'est validé au lieu voulu mai il ya un message d'erreur qui survient que je ne comprends pas. Voici captures d'écran
 

Pièces jointes

  • Cap1.JPG
    Cap1.JPG
    18.3 KB · Affichages: 7
  • cap2.JPG
    cap2.JPG
    24 KB · Affichages: 8
Oups !
Exact, pas vue celle là. 😱
Lorsqu'on valide, à la fin je vide les combobox, donc à ce moment i="" d'où erreur.
En PJ corrigé avec :
VB:
If i <> "" Then Sheets(i).Activate
Oups !
Exact, pas vue celle là. 😱
Lorsqu'on valide, à la fin je vide les combobox, donc à ce moment i="" d'où erreur.
En PJ corrigé avec :
VB:
If i <> "" Then Sheets(i).Activate
Merci beaucoup !
 
- 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

Réponses
2
Affichages
355
Réponses
6
Affichages
87
Retour