erreur 424 programmation userform

Bonjour,

Actuellement en création d'un userform afin de trouver une valeur une valeur exacte dans un tableau, j'ai une erreur 424 qui apparait. Est-ce qui a quelqu'un qui peut me dire la cause de ce problème?

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandRecherche_Click()   Dim valeur As String   valeur = Application.Index(Table!Range("d4:aa303"), Application.Match(Me.TextEpaisseur.Value, Table!Range("c4:c303", 0), Application.Match(Me.ComboBox1.Value, Table!Range("d1:y1"), 0) + 1))   MsgBox ("Le couple Optimal est :" & valeur)   End Sub

---

Je vous remercie

Bonjour, bonjour,

l'usage est d'indiquer clairement le message d'erreur et la ligne la déclenchant !
Du reste souvent le message met sur la voie ou sinon via son bouton d'aide associé …

Là en l'occurence ce n° d'erreur avertit d'une grosse boulette d'écriture de code ‼

A la louche, dans la ligne n°5 : Table! ne veut rien dire en VBA !

Pour préciser une feuille de calculs nommée "Table" : Worksheets("Table"). …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

en revanche ça c'est possible:

Code:

---

Range("Table!d4:aa303")

---

Je vous remercie de votre réponse rapide.

en essayant la methode de Marc-L et de rdurupt, j'obtiens l'erreur 1004.

Quelle est le nouveau problème?

Ce n'est toujours pas bon mais sans voir de code à jour … Et s'il y a la possibilité de mettre le classeur en pièce jointe.

Bonjour,

As-tu vraiment changé tous les

Code:

---

Table!Range(...)

---

par

Code:

---

Sheets("Table").Range(...)

---

?

Je viens de voir mon erreur pour l'erreur 1004, j'avais oublié de remplacer à un endroit.

Voici mon code modifié:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandRecherche_Click()   Dim valeur As String   valeur = Application.Index(Sheets("Table").Range("d4:aa303"), Application.Match(Me.TextEpaisseur, Sheets("Table").Range("c4:c303"), 0), Application.Match(Me.ComboBox1, Sheets("Table").Range("d1:y1"), 0) + 1)   MsgBox ("Le couple Optimal est :" & valeur)   End Sub

---

En executant,j'ai maintenant le code erreur 13: Incompatibilité de type

L'erreur 13 survient lors d'un mélange de torchons & serviettes : le type utilisé de donnée n'est pas celui attendu !

Qui plus est la logique est à revoir entre Index et Match ! Exemple ici ligne n°10 …

Je te remercie Marc- L pour ta réponse rapide

Même en essayant de ranger correctement les torchons & serviettes en prenant exemple sur ton lien, j'ai toujours l'erreur 13 sur ma ligne:

Code:

---

valeur = Application.Index(Sheets("Table").Range("d4:aa303"), Application.Match(Me.TextEpaisseur, Sheets("Table").Range("c4:c303"), 0), Application.Match(Me.ComboBox1, Sheets("Table").Range("d1:y1"), 0) + 1)

---

Je commmence à desesperer.:calim2:

Dans ce cas il suffit de scinder la ligne par instruction pour voir laquelle déclenche l'erreur …

Et comme ce sont des fonctions de formules de feuilles de calculs, c'est donc directement testable
depuis une cellule sans code et, une fois la formule au point, ce n'est pas difficile de la traduire en VBA …

A mon avis, la logique n'est toujours pas bonne car rien n'a changé dans la ligne !
Traduire la ligne en langage courant pour voir ce qu'elle fait et comparer par rapport à ce qu'elle est censé effectuer,
cela doit pouvoir t'aider à comprendre …

Je te remercie. Je vais re-essayer comme ça.

Pourtant,j'avais fait comme ça au début pour avoir la formule de base que j'ai modifié par la suite

Marc-L,

en suivant ton conseil, j'ai fait ma formule dans une cellule qui fonctionne, j'ai enregistré la macro. La ligne de code est la suivante:

Code:

---

'valeur=INDEX(Table!R[-6]C[-3]:R[293]C[20],MATCH(Feuil1!R[-2]C[-3],Table!R[-6]C[-4]:R[293]C[-4],0),MATCH(Feuil1!R[-2]C[-2],Table!R[-9]C[-3]:R[-9]C[20],0)+1)"

---

j'ai modifié le code en applicant mes valeurs :

Code:

---

valeur = Application.Index(Table!Range("d4:aa303"), Application.Match(Me.TextEpaisseur, Table!Range("c4:c303")), Application.Match(Me.ComboBox1, Table!Range("d1:y1"), 0) + 1)

---

et toujours l'erreur 424 mais j'ai remarqué quand faisant "Application.",il ya pas "index" ou "match" dans la liste. Est ce que l'erreur est là? si oui , quelqu'un peut-il me donner la solution?

Je vous remercie

Citation:

---

Me.TextEpaisseur

---

Ça, c'est du texte

Essaie en changeant pour

Code:

---

CLng(Me.TextEpaisseur)

---

Idem pour les autres numériques

Merci pour ton aide mais en mettant "CLng" j'obtiens un "incompatible du type"

en mettant mon curseur sur la ligne de code, j'aperçois ceci:

On en reviens au début...
Sheets("Table").Range(...)

merci mais comme ça on reviens au début erreur 13: incompatible de type

Je ne sais pas ce que doit retourner ta formule, mais si tu essayais avec
Dim Valeur As Variant ?

ma formule doit renvoyer une valeur "chiffre" par rapport 2critères tableau, une ligne et une colonne.

A savoir que mon tableau est composer de 2 colonne et 2ligne pour trouver la valeur.

En mettant "Variant" au lieu de " String", j'obtiens une erreur 424 "Objet Requis"

Objet requis ?
Est-ce que tu as changé pour Sheets("Table").Range(...) ?

Tu peux essayer avec
Dim valeur as Long (entier) ou As Double (réel)

merci parmi pour ton aide.

Voici ma ligne de code :

Code:

---

valeur = Application.Index(Sheets("Table").Range("d4:aa303"), Application.Match(Me.TextEpaisseur.Value, Sheets("Table").Range("c4:c303")), Application.Match(Me.ComboBox1.Value, Sheets("Table").Range("d1:y1"), 0))

---

en mettant "Long" ou "Double", j'obtiens erreur 13