Discussion :

[clem256]

Bonsoir le Forum

Je voudrais utiliser dans une fonction VBA un nom de plage défini par le gestionnaire de noms sous Excel. En fait sous VBA je veux rechercher si une chaine se trouve dans la plage. J'ai pensé utiliser la méthode "Match" de WorksheetFunction en essayant:

Code :

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

    isTrouve = Application.WorksheetFunction.Match(sName, Range([Workbooks(iWB_MainFile).name]!FRance), 0)

sName

contient la chaine à rechercher dans le classeur

"([Workbooks(iWB_MainFile).name]"

FRance

est le nom de la plage et sous Excel il fait référence à

=RessProf!$A$2:$A$93

ou "RessProf" est le nom de la feuille où se trouve cette plage.
Merci pour vos indications sur mon/mes erreur(s)
Cordialement
clem256.

[gFZT82]

Bonjour,

Essaie comme cela

Code :

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

1
2
isTrouve = Application.WorksheetFunction.Match(Range("sName"), _
Workbooks(iWB_MainFile).Worksheets("RessProf").Range("FRance"), 0)

Cordialement.

[clem256]

Merci pour le retour

J'ai essayé et j'ai: "Erreur d'exécution '1004', la méthode 'Range' de L'objet '_Global' a échoué.

Je dois préciser que 'sName" est un nom de variable qui contient la chaine à rechercher, tout comme "FRance" est le nom de la plage de cellules de la feuille "RessProf".
Merci.

[Marc-L]

Bonjour,

Match correspond à la fonction EQUIV de feuille de calcul et fonctionne avec une seule colonne, d'où le message d'erreur …

A moins qu'il n'y ait pas de correspondance dans la colonne, préférer alors Application.Match …

Pour rechercher sur plusieurs colonnes, voir aussi du côté de l'aide VBA de la fonction Find …

[clem256]

Bonjour Marc
avec Find j'ai la même erreur. La plage de nom "FRance", correspond bien à une seule colonne. je continue à investiguer.

Clem256

[gFZT82]

'sName" est un nom de variable qui contient la chaine à rechercher

Alors ...

Code :

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

1
2
isTrouve = Application.WorksheetFunction.Match(sName, _
Workbooks(iWB_MainFile).Worksheets("RessProf").Range("FRance"), 0)

Cordialement.

[nibledispo]

Bonjour,

la dernière proposition marche si l'on met le nom du classeur entre " " et si sname est un string (a, b ......)
si sname est une valeur numérique (même avec la plage au format texte), étrangement l'erreur 1004 est renvoyée.

avec "evaluate" le problème ne se pose pas.

cordialement.

[clem256]

Alors ...

Code :

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

1
2
isTrouve = Application.WorksheetFunction.Match(sName, _
Workbooks(iWB_MainFile).Worksheets("RessProf").Range("FRance"), 0)

Cordialement.

j'ai toujours une erreur

Impossible de lire la propriété 'Match' de la classe WorksheetFunction

Est-ce que l'appel à cette fonction 'Match' en passant par 'WorkSheetFunction' est correct? Je ne vois pas où est le problème car en testant

Code :

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

Set PlageNoms = Workbooks(iWB_MainFile).Worksheets("RessProf").Range("FRance")

puis

Code :

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

PlageNoms.Rows.count

j'affiche bien le nombre de lignes de la plage; ce qui me laisserait à penser qu'on y accède correctement.
Merci.

[Marc-L]

A moins qu'il n'y ait pas de correspondance dans la colonne, préférer alors Application.Match …

Il faut juste tester ensuite la variable de type Variant si elle est en erreur via la fonction IsError …

__________________________________________________________________________________________

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

__________________________________________________________________________________________
Les seins des femmes sont la preuve qu'un homme peut se concentrer sur deux choses à la fois !

[gFZT82]

Tu peux essayer comme cela

Code :

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

1
2
3
4
5
6
7
8
Dim Plage As Range, C As Range
Set Plage = Workbooks(iWB_MainFile).Worksheets("RessProf").Range("FRance")
Set C = Plage.Find(sName, , xlFormulas, xlPart)
If Not C Is Nothing Then
    MsgBox sName & " a été trouvé à la ligne : " & C.Row
Else
    MsgBox sName & " n'a pas été trouvé dans la plage " & Plage.Address
End If

Cordialement.

[clem256]

OK. Mais j'aimerais bien savoir si c'est la fonction "Match" qui génère une erreur par que la chaine recherchée n'est pas trouvée ou bien si c'est l'instruction qui est incorrecte et génère cette erreur "Impossible de lire la propriété 'Match' de la classe WorksheetFunction". Ce n'est pas très clair.
Merci.

[clem256]

Il faut juste tester ensuite la variable de type Variant si elle est en erreur via la fonction IsError …

Merci. Dans le cas présent comment tu écrirais le code, car je ne sais pas vraiement d'où vient l'erreur ?

[Marc-L]

si c'est la fonction "Match" qui génère une erreur par que la chaine recherchée n'est pas trouvée ou bien si c'est l'instruction qui est incorrecte et génère cette erreur

Les deux mon Capitaine !

Donc commencer par chercher une valeur présente éliminerait à terme le problème de syntaxe, non ?

Et comme déjà évoqué, il y a aussi la fonction Find sans souci, si du moins elle est respectée, voir l'exemple de l'aide …

Code :

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

1
2
    V = Application.Match({valeur cherchée}, {colonne}, 0)
    If IsError(V) {…}

Match équivaut à EQUIV dans la feuille de calcul, voir son aide …

[nibledispo]

bonjour,

la dernière proposition de gFZT82 marche très bien.

je ne comprends pas pourquoi (comme ecrit plus haut) avec une plage FRance contenant des lettres et des chiffres et le code suivant :

Code :

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

1
2
3
4
5
6
7
 
sname = " donnée choisie"
 
isTrouve = Application.WorksheetFunction.Match(sName, _
Workbooks("classeur1").Worksheets("feuil1").Range("FRance"), 0)
 
msgxbox istrouve

si ma donnée choisie est "b" VBA renvoie le bon résultat
si ma donnée choisie est "1" VBA renvoie un message d'erreur comme je l'ai indiqué plus haut.

cordialement

[clem256]

@ nibledispo

Peut-être que cette fonction ne reconnait pas "1" comme une string, mais le considère comme type nombre. Quelle est la valeur de l'argument type?

[Marc-L]

Du reste dans l'exemple de l'aide d'EQUIV, point de guillemet pour chercher une valeur numérique …

[gFZT82]

As-tu testé le code du post #10 ?

Cordialement.

[clem256]

Oui, j'ai testé et cela fonctionne. Je souhaitais juste vérifier un ou deux points avant de passer à l'état "résolu". Je le ferai certainement ce soir. Merci encore á tous pour votre aide.
Cordialement
Clem256

[nibledispo]

Bonsoir,

Les valeurs numériques de ma plage d'essai étaient au format texte. C'est pourquoi j'ai mis les guillemets.

Il est vrai toutefois (j'avais omis de le signaler) que si on ne met pas les guillemets le résultat est bien renvoyé.

Tout cela n'a aucun sens : le traitement ne peut faire un distinguo entre données numérique et données caractère d'une plage qui n'a qu'un seul format.

Peut être faut-il préciser le format de la plage FRance dans le code et nom dans Excel ? Je vais essayer.
Le mieux est de toute évidence de se passer de Worksheetfunction , formula et que sais-je encore.

Cordialement

[clem256]

Merci pour ces remarques. Je vais fermer la dicussion et passer le point à résolu.