XL 2016 Message d'erreur macro

J

JM27

XLDnaute Barbatruc

• 28 Mai 2020

• #2

Bonjour
Ta combo box ne renvoie pas une date mais du texte

If fq.Cells(i, col) = CDate(ComboBox10) Then

 

Vote positif 0 Vote négatif

Y

yann lucien

XLDnaute Nouveau

• 28 Mai 2020

• #3

Merci pour l'aide,
Mais sa me renvoi sur une autre erreur dans commandbutton4 :
ListBox1.List = Application.Transpose(titresP)
Cordialement
Yann

 

Dernière édition: 28 Mai 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mai 2020

• #4

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+

 

Vote positif 0 Vote négatif

Y

yann lucien

XLDnaute Nouveau

• 28 Mai 2020

• #5

Bonsoir,
ben, je reviens au même point, ou alors je me suis trompé.
Cdt
Yann

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mai 2020

• #6

Je vous ai dit ce qu'il faut faire.

 

Vote positif 0 Vote négatif

Y

yann lucien

XLDnaute Nouveau

• 28 Mai 2020

• #7

Je suis une jeune padawan dans le domaine VBA et macro

 

Vote positif 0 Vote négatif

Y

yann lucien

XLDnaute Nouveau

• 28 Mai 2020

• #8

Je vais reprendre a tête reposer demain

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mai 2020

• #9

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

Vote positif 0 Vote négatif

Y

yann lucien

XLDnaute Nouveau

• 29 Mai 2020

• #10

Merci de ton aide cela marche très bien

Merci encore
Cordialement
Yann

 

Vote positif 0 Vote négatif