XL 2016 Message d'erreur macro

yann lucien

XLDnaute Nouveau
j'ai un petit problème quand j'utilise la fonction rechercher cela ne fonctionne pas dans la commandButton 4_click () il affiche en jaune la ligne suivante : If UBound(titresP, 2) = 1 Then j'ai chercher par moi même l'erreur mais je n'y arrive pas

si besoin le fichier en pièce jointe

Merci de votre aide
Cordialement
Yann
 

Pièces jointes

  • Jounal QSO v2 (1).xlsm
    86.5 KB · Affichages: 10

job75

XLDnaute Barbatruc
Bonjour yann lucien, JM27,

De nombreuses données dans ComboBox10 ne correspondent pas à la feuille de calcul, c'est le problème que vous devez régler en priorité.

Maintenant quand il n'y a aucune correspondance on a k = 0 donc ajoutez le test :
VB:
If k = 0 Then ListBox1.Clear: Exit Sub
A+
 

job75

XLDnaute Barbatruc
Bonjour yann lucien, le forum,

Pour que la liste de ComboBox10 soit correcte modifiez dans la ComboBox9_Change :
VB:
    For i = 2 To fq.Cells(Rows.Count, col).End(xlUp).Row
        dico(fq.Cells(i, col).Text) = ""
    Next i
Et dans la CommandButton4_Click (bouton Rechercher) :
VB:
If fq.Cells(i, col).Text = ComboBox10 Then
Bonne journée.
 

Pièces jointes

  • Jounal QSO(1).xlsm
    89.2 KB · Affichages: 5

Discussions similaires

Réponses
4
Affichages
536

Statistiques des forums

Discussions
311 720
Messages
2 081 896
Membres
101 833
dernier inscrit
sandra25