Message d'erreur macro
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
Bonjour,
L'arrêt sur l'erreur provient que UBound(titresP, 2) est vide.
Si tu essaies avec HEURE ou Fréquence > ça fonctionne.
C'est dans la boucle For i = qu'il y a une coquille, car No ou Date > ça ne passe pas.
Si tu mets un "Point d'arrêt" (touche F9) sur
titresP(j, 1 + k) = Format(fq.Cells(i, j), "hh:mm")
Avec No ou Date, le traitement ne s'arrête pas sur cette ligne de remplissage de titresP ... qui reste donc vide et donne l'erreur plus loin.
Je regarde de mon bord ... le premier qui trouver gagne du PopCorn.
ric
Bonjour,
Essai comme ceci et dis-moi si ça te convient ...
On Error Resume Next
If (UBound(titresP, 2)) = 1 Then
ReDim Preserve titresP(1 To 17, 1 To 2)
End If
On Error GoTo 0ric
Bonsoir,
ben, je reviens au même point, ou alors je me suis trompé.
Cdt
Yann
Bonjour,
... je reviens au même point, ou alors je me suis trompé. ...
Je ne comprends pas bien ce propos ... est-ce que ça ne fonctionne pas avec ma proposition ?
Ici, si les conditions s'avèrent, l'affichage se fait ... sinon, le listbox1 reste vide.
N'est-ce pas ce qui est recherché ?
Ou je n'ai pas bien saisi le souci ....
ric
bonsoir,
Des que j'utilise la partie recherche cela bug un coup avec les dates une fois résolut c'est autre chose et en plus je comprend pas tous dans le VBA
Encore trop jeune dans le domaine.
Merci de ton aide.
Cdt
Yann
Bonjour,
Essai avec le fichier que tu as soumis et que j'ai adapté et joint au bas.
Est-ce que ce fichier fonctionne bien chez-toi.
Remarque qu'il n'y a plus besoin de cliquer sur le bouton, le code s'exécute dès qu'il y a un changement dans le combobox10.
ric
Bonsoir,
le fichier marche pour une partir des recherches.
Les recherches ne fonctionne par pour les thèmes suivant : par Numéro, par Date à partie de la 2ème ligne, pour les heures, les Fréquences, et la durée,
Cdt
Yann
Bonjour,
Je viens de comprendre une bonne partie du problème.
Les heures sont maintenant en heure.
Je reviens demain ...
ric
Bonjour,
J'ai un grand bout de dépanné.
Il reste 2 coquilles que je ne trouve pas le souci.
1- colonne Heure (3) > lignes 5 et 8 refusent d'avérer la condition > la listbox reste vide pour ces deux lignes ... même si j'ai saisi à nouveau les valeurs.
2- colonne Durée (15) > lignes 3,4 et 5 refusent d'avérer la condition > la lisbox reste vide pour ces trois lignes ... même si j'ai saisi à nouveau les valeurs.
Tout le reste semble bien fonctionner ... ici je parle des combobox 9 et 10 ... rien d'autres.
Je te laisse regarder si ces avancements te conviennent (moins les 2 coquilles)
ric