XL 2010 Valider selon le tableau choisie par combobox

Appo1985 · 9 Juillet 2023

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

sylvanu · 9 Juillet 2023

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

sylvanu · 9 Juillet 2023

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

Appo1985 · 9 Juillet 2023

sylvanu à dit:

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

sylvanu · 9 Juillet 2023

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

Appo1985 · 9 Juillet 2023

sylvanu à dit:
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 !

XL 2010 Valider selon le tableau choisie par combobox

Appo1985

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

Discussions similaires