Discussion :

[ckrikri]

Bonjour,

je souhaite effectuer la recherche d'un élément dans une colonne en utilisant la fonction

Code :

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

application.match(elt,sheets(nomfeuille).columns(numerocolonne),0)

cela fonctionne bien sauf qu'en plus j'aimerais commencer à une certaine ligne.
Quand la colonne est déclaré en lettre je fais ceci:

Code :

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

application.match(elt,sheets(nomfeuille).range(col & ligne & ":" & col & derniereligne),0)

Cependant j'ai la contrainte: colonne en chiffre. j'ai essayé:

Code :

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

application.match(elt,sheets(nomfeuille).range(cells(ligne,col),cells(derniereligne,col)),0)

le problème est que pour que cette ligne de code marche la feuille où s'effectue la recherche doit être active(je doit faire un sheets(nomfeuille).select à chaque fois).
cela ne m'arrange pas car je fais cette opération plusieur dans une fonction et dans des feuilles différentes et mon classeur a 50 feuilles.

J'ai une autre solution qui consiste à créer une fonction qui donne l'équivalence de la colonne chiffre en lettre et dans ce cas j'applique ma fonction et j'utilise la méthode qui marche avec la colonne en lettre.
Cette solution étant aussi couteuse j'aimerais savoir s'il en existe une autre

Merci d'avance

[pgz]

Bonjour.

Tu peux essayer

Code :

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

1
2
3
With Application.thisworkbook.sheets(nomfeuille)
    application.match(elt,.range(.cells(ligne,col),.cells(derniereligne,col)),0)
end with

Cordialement,

PGZ

[ckrikri]

j'ai essayé la syntaxe elle marche mais le problème que j'ai avec c'est le "with...end with" qui va avec car je suis sur un projet où j'avais déjà tout codé et les colonnes étaient en lettre.
Cette nouvelle contrainte s'étant ajouté je dois faire des modifications au code que j'ai déjà et la fonction application.match je l'ai à plusieurs endroit par exemple:

Code :

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

if not iserror(application.match(elt, sheets(feuille).range(col & ligne & ":" & col & derniereligne),0)

ou encore

Code :

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

sheets(feuille2).cells(application.match(elt,sheets(feuille).range(col & ligne & ":" & col & derniereligne),0), colonne)

c'est pourquoi je dis que la solution que tu me propose ne m'arrange pas trop.
Mais s'il n'y a pas d'autre solution devrais je mettre mes deux exemples dans "with"?

[Godzestla]

Bonjour,

le with n'est pas impératif, mais il allège le code et améliore la lisibilité.

Cordialement.
G@dz.

[ckrikri]

Merci pour vos réponses