utilisation de nom plage dans function

Bonjour,

Je travaille avec des noms de colonne pour les différents magasins dont je m'occupe; Par exemple NiceN_1 correspond à la colonne nommée $F:$F de la feuille N-1 et MartiguesN_1 correspond à la colonne $G:$G de la feuille N-1.
Ainsi je peux appeler dans d'autres feuilles équivalentes la cellule correspondant à N-1 en tapant =niceN_1 et avec une recopie cela fonctionne très bien.

Je souhaiterai à l'intérieur d'une macro (une fonction) effectuer la même chose mais en testant auparavant le nom magasin qui est en AA2
Voici mon travail

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function transfert(magasin As String) Select Case magasin   Case "NICE" transfert = niceN_1     Case "MARTIGUES" transfert = martigues_1   End Select End Function

---

hélas, les cellules dans lesquelles je tente d'appeler la fonction transfert($AA2), AA2 correspond au nom du magasin ne me retournent rien.
j'ai essayé dans la macro d'écrire transfert.value ou bien transfert.formula ou bien d'insérer la formule avec le signe "=".
Je plante complétement !
Merci à ceux qui voudrons bien m'aider.
Cordialement
Doli

Bonjour,
Que dois te renvoyer la fonction transfert une chaîne de caractères ou un Range ?
Je pense que tu mélanges variable string et objet range
Si ta plage est nommée "niceN_1", au même titre que tu utilises une plage par Range("$G$1:$G$10") tu pourras utiliser Range("nice_1")

Bonjour et merci pour cette réponse.
Magasin as string est parce que la valeur envoyée est un texte (le nom du magasin). J'ai essayé sans définir magasin en enlevant as string mais cela ne change rien.
de plus je viens d'essayer :
Case "NICE"
transfert = Range("niceN_1")

je n'obtiens plus d'erreur #valeur mais un résultat égal à zéro ce qui n'est pas la valeur que je souhaite hélas.

pourtant lorsque dans la cellule sans passer par la fonction j'insère =niceN_1 cela fonctionne parfaitement.

Merci de votre aide!

Bonjour,

Admettons que la plage Nice_1 fasse référence à la plage $G$2:$G$10
Si dans une cellule, tu tapes =Nice_1 tu obtiens effectivement la valeur de la première cellule de la plage Nice_1 soit G2, parce-que par défaut Excel renvoie la valeur de la première cellule d'une plage nommée.
En VBA, si l'on demande la valeur de la plage Nice_1 par l'instruction debug.print Range("Nice_1") l'on obtient un message d'erreur alors que si l'on tape Debug.Print Range("Nice_1").Cells(1)
, on obtiendra également la valeur de la première cellule de cette plage.
En excel, on peut obtenir aussi la valeur de la Xème cellule d'une plage vectorielle, sur une ligne ou sur une colonne, en tapant =INDEX(Nice_1;X). Où X représente le Xème élément du vecteur.

A nouveau merci de ton aide.

Je ne parviens pas à récupérer le résultat de debug.Print Range("Nice_1").Cells(4) dans ma function transfert.
Je ne suis pas assez calée pour ça.
pourtant le index() est intéressant aussi mais passe pas dans la macro.

:oops:

Bonjour,

Citation:

---

Je ne parviens pas à récupérer le résultat de debug.Print Range("Nice_1").Cells(4) dans ma function transfert.

---

Pour visualiser l'affichage d'un Debug.Print, la fenêtre d'exécution de l'éditeur de VBA doit être présente. Pour l'activer Affichage/Fenêtre d'exécution ou Ctrl+G

Citation:

---

pourtant le index() est intéressant aussi mais passe pas dans la macro.

---

La formule =INDEX(Nice_1;2) est une fonction d'Excel. En VBA, tu peux obtenir la même chose par Debug.Print Range("Nice_1").Cells(2) ou maVariable = Range("Nice_1").Cells(2)

Merci pour votre aide.
J'ai trouvé avancé dans mon programme.
Cordialement.Doli