problème avec fonction Match

[Blafi]

Bonsoir à tous,

J'ai utilisé l'exemple de base de données de Luki (Date : 28/10/07) trouvée sur le forum en l'adaptant à ce que je voulais...
Dans le fichier joint j'ai donc créé un formulaire(USF2) qui me permet d'entrer les données de mes champs dans ma base (il s'agit de la gestion de chevaux pour un club) en recopiant et en adaptant le code de Luki.

Pour entrer les données mises dans le formulaire dans la base, ce code fait appel à une fonction vba qui utilise l'instruction "Match"... et mon code refuse de fonctionner car à chaque fois il bloque sur cette fonction en me donnant un message :
"Erreur éxécution 438 - propriété ou méthode non gérée par cet objet"

Quelqu'un pourrait-il me dire quelle est la raison de ce bloquage et ce que je dois faire pour résoudre le pb..

Merci d'avance et ... à demain car il est tard et je dois aller dormir..

 

[Cousinhub]

Re : problème avec fonction Match

Bonsoir,
tu as dû mal recopier le code...

Col = Application.Worksheetsfunction.Match(Champ, TheTable.Rows(1).Cells, 0)

Remplace par :

Col = Application.WorksheetFunction.Match(Champ, TheTable.Rows(1).Cells, 0)

Efface le "s", et le F de "Function" va se mettre automatiquement en Majuscule...

Sans Tester, ne comprenant pas le fichier....

 

[Gael]

Re : problème avec fonction Match

Bonsoir Blafi, bhbh,

Même remarque que Bhbh et il faut aussi renommer le champ Cbx_TailleC dans l'USF en enlevant le "C" sinon, tu auras aussi un message d'erreur puisque la fonction match ne trouvera pas l'intitulé de colonne "TailleC".

Ou changer l'intitulé de colonne en "TailleC" ce qui résoud aussi le problème.

J'ai testé et ça marche.

@+

Gael

 

[Blafi]

Re : problème avec fonction Match

Bonjour,
Je lis ce matin les réponses de Gael et bhbh dont je les remercie..

En effet, j'ai rectifié les 2 erreurs signalées et maintenant ça marche...

Merci encore à tous les deux et à bientôt.