Discussion :

[maximilien59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

en revanche ça c'est possible:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("Table!d4:aa303")

[maximilien59]

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?

[Marc-L]

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.

[parmi]

Bonjour,

As-tu vraiment changé tous les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Table!Range(...)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?