Utiliser un nom de plage défini sous Excel dans VBA

Version imprimable

25/09/2013, 23h04
clem256

Utiliser un nom de plage défini sous Excel dans VBA

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:

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

Citation:

sName

contient la chaine à rechercher dans le classeur

Citation:

"([Workbooks(iWB_MainFile).name]"

Citation:

FRance

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

Citation:

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

Bonjour,

Essaie comme cela

Code:

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

Cordialement.

26/09/2013, 09h20
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.
26/09/2013, 09h29
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 …
26/09/2013, 09h48
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
26/09/2013, 10h03
gFZT82
Citation:

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

Alors ...
Code:

1 2 isTrouve = Application.WorksheetFunction.Match(sName, _ Workbooks(iWB_MainFile).Worksheets("RessProf").Range("FRance"), 0)
Cordialement.
26/09/2013, 14h39
nibledispo

utiliser un nom de plage defini sous excel dans VBA

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.
26/09/2013, 14h43
clem256
Citation:
Envoyé par gFZT82

Alors ...

Code:

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

Cordialement.
j'ai toujours une erreur

Citation:

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:

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

puis

Code:

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.
26/09/2013, 15h16
Marc-L

Citation:

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

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

Tu peux essayer comme cela

Code:

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.

26/09/2013, 16h03
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.
26/09/2013, 16h06
clem256

Citation:

Envoyé par Marc-L

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 :roll:?
26/09/2013, 16h08
Marc-L
Citation:

Envoyé par clem256

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:

1 2 V = Application.Match({valeur cherchée}, {colonne}, 0) If IsError(V) {…}
Match équivaut à EQUIV dans la feuille de calcul, voir son aide …
26/09/2013, 16h09
nibledispo

utiliser un nom de plage defini sous excel dans VBA
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:

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
26/09/2013, 17h19
clem256

utiliser un nom de plage défini sous Excel dans VBA

@ 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?
26/09/2013, 17h27
Marc-L

Du reste dans l'exemple de l'aide d'EQUIV, point de guillemet pour chercher une valeur numérique … :roll:
26/09/2013, 17h57
gFZT82

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

Cordialement.
26/09/2013, 19h19
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
26/09/2013, 19h53
nibledispo

utiliser un nom de plage defini sous excel dans VBA

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
27/09/2013, 12h13
clem256

utiliser un nom de plage défini sous Excel dans VBA

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

Fuseau horaire GMT +2. Il est actuellement 02h23.