erreure d'execution 13

V

vpaglialunga

Guest

• 25 Octobre 2010

• #2

Re : erreure d'execution 13

Savez vous à quoi cela peut être du?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 25 Octobre 2010

• #3

Re : erreure d'execution 13

Bonjour vpaglialunga,
Peut être avec :

Code:

[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

 

Vote positif 0 Vote négatif

V

vpaglialunga

Guest

• 25 Octobre 2010

• #4

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 25 Octobre 2010

• #5

Re : erreure d'execution 13

Re
Essai:

Code:

ActiveSheet.Cells(numLigne, numColonne).Select

Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 25 Octobre 2010

• #6

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:

Code:

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

 

Vote positif 0 Vote négatif

V

vpaglialunga

Guest

• 25 Octobre 2010

• #7

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...

 

Vote positif 0 Vote négatif

V

vpaglialunga

Guest

• 25 Octobre 2010

• #8

Re : erreure d'execution 13

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

 

Vote positif 0 Vote négatif

V

vpaglialunga

Guest

• 25 Octobre 2010

• #9

Re : erreure d'execution 13

Tout fonctionne comme il faut,

Un grand merci pour ton aide Efgé.

 

Vote positif 0 Vote négatif