erreure d'execution 13

[vpaglialunga]

J'ai un soucis avec un code qui me met une erreur d'exécution type 13.
L'erreur se situe au niveau de la ligne en rouge

Sub Recherche()

Dim numColonne As Integer
Dim numLigne As Integer

Application.Volatile

Worksheets("Général Friction-Butées").Activate

numColonne = [matrice].Find(Worksheets("Consultation").Range("I10").Value, ActiveCell, xlValues, xlPart, xlByRows, xlNext, False).Row
numLigne = [matrice].Find(Worksheets("Consultation").Range("I20").Value, ActiveCell, xlValues, xlPart, xlByColumns, xlNext, False).Column

ActiveSheet.Range(numLigne, numColonne).Select

End Sub

 

[vpaglialunga]

Re : erreure d'execution 13

Savez vous à quoi cela peut être du?

 

[Efgé]

Re : erreure d'execution 13

Bonjour vpaglialunga,
Peut être avec :

[COLOR=blue]Sub[/COLOR] Recherche()
[COLOR=blue]Dim[/COLOR] numColonne [COLOR=blue]As Long[/COLOR]
[COLOR=blue]Dim[/COLOR] numLigne [COLOR=blue]As Long[/COLOR]
[COLOR=green]'Etc...[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Pour info, Lien supprimé
Cordialement

 

[vpaglialunga]

Re : erreure d'execution 13

Merci Efgé,

Grâce à toi j'ai passé cette étape, maintenant je me retrouve avec une erreur '1004' sur la ligne:
ActiveSheet.Range(numLigne, numColonne).Select

 

[Efgé]

Re : erreure d'execution 13

Re
Essai:

ActiveSheet.Cells(numLigne, numColonne).Select

Cordialement

 

[Efgé]

Re : erreure d'execution 13

Re
En plus il y a quelque chose qui m'intrigue:
Es tu certain de la définition de tes variables:

num[COLOR=red][B]Colonne[/B][/COLOR] = [matrice].Find(Worksheets("Consultation").Range("I10").Valu e, ActiveCell, xlValues, xlPart, xlByRows, xlNext, False).[COLOR=red][B]Row[/B][/COLOR]
num[COLOR=red][B]Ligne[/B][/COLOR] = [matrice].Find(Worksheets("Consultation").Range("I20").Valu e, ActiveCell, xlValues, xlPart, xlByColumns, xlNext, False).[COLOR=red][B]Column[/B][/COLOR]

Cordialement

 

[vpaglialunga]

Re : erreure d'execution 13

Justement,

ça me met une erreur '13' maintenant sur ces lignes maintenant...

ce que je voudrais c'est sélectionner une cellule dans un tableau par rapport à un critère dans les titres lignes et colonnes...

 

[vpaglialunga]

Re : erreure d'execution 13

J'ai inversé Ligne= et colonne= (erreur d'inattention de ma part)

 

[vpaglialunga]

Re : erreure d'execution 13

Tout fonctionne comme il faut,

Un grand merci pour ton aide Efgé.