comment faire un offset dans une fonction ?

Bonjour;

J'ai une function (code plus bas), qui extrait les ";" entre deux valeur dans une cellule excel.
Cette function travail a partir de plages nommées et fait la moyenne des valeurs (dans une autre colonne) en splitant les ";".
Toute fois, il faut que la/les plages nommées soit dans la colonne contenant les valeurs.
En considérant l'exemple suivant, plages nommées en colonne A et valeurs en colonne E, ne serait-il pas possible de créer un offset dans la function?
du style:
dim plage as name
for each plage in ActiveWorkBook
plage.offset(plage,4)

Voilà c'est une idée mais ça me marche pas et je suis débutant en VBA.
Si quelqu'un à une idée!

Merci par avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function MoyenneChamp(champ As Range) As Double Dim temp As Double, nb As Integer temp = 0 nb = 0 For Each c In champ If c <> Empty Then If IsNumeric(Left(c.Value, 1)) Then a = Split(c.Value, ";") For i = LBound(a) To UBound(a) temp = temp + Val(a(i)) nb = nb + 1 Next i End If End If MoyenneChamp = temp / nb Next c End Function

---

PS: je peux joindre éventuellement un exemple pour plus de clarté.

Sans filet, si ta plage comporte plusieurs lignes, je ne vois pas comment tu peux faire un offset. Pas vérifié
Mais si ta plage ne concerne qu'une cellule, pas de problème pour avoir

Code:

---

1 2 3

dim plage as name for each plage in ActiveWorkBook Range(plage.Address).offset(NbLigne, 4) = .....

---

Maintenant, si tu dois prendre le nombre de lignes dans une plage comportant plusieurs cellules pour l'avoir dans ton offset, tu dois extraire les première et dernière ligne de cette plage

Code:

---

Adres = split(Plage.address,":") ' donne le tableau des deux bornes de la plage

---

Il te reste à extraire le N° de ligne de chacune d'elles

Code:

---

1 2 3

NoLigne1 = Range(Adres(0)).row NoLigne2 = Range(Adres(1)).row TonOffset = NoLigne2 - NoLigne1

---

Mais arrivé là, je ne crois pas que ce soit ce que tu cherches :(
A+

Merci de m'avoir répondu.

En effet, mes plages contient plusieurs lignes. En plus mes plages sont dynamique mais adjacentes.

Me serait-il pas possible de selectionner une plage nommées (en tant que Range) et décaler depuis cette la selection?
Je pense que c'est faisable!

Bonsoir,
Dans Excel, une plage nommée n'est pas dynamique, il faut que tu change ses données manuellement. (du moins à ma connaissance) :mrgreen:

A+

si , si, on peut rendre une plage nomée dynamique, avec une formule décaler. et je pense meme qu'on peut décaler sur une plage entiere. mais primo, là j'ai plus le temps, secondo, je parle par rapport a excel, et retranscrire sur vba ne m'a pas l'air évident. je regarderai ce soir

Si c'est faisable. Un exemple de fourmule qui fait une plage nommée dynamique dans un de mes classeur.
J'en n'ais une 100 eme comme ça dans le même classeur.

Code:

---

=DECALER($A$1;EQUIV("truc";$A$1:$A$9998;0)-1;0;NB.SI($A$1:$A$9998;"truc");1)

---

Un exemple sans WorksheetFunction
Dans ce code, je nomme une plage de la colonne 2 puis lis la colonne 1 de cette plage

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Decaler() Dim FL1 As Worksheet Set FL1 = Worksheets("feuil1") ActiveWorkbook.Names.Add Name:="PlageAdresse", RefersToR1C1:= _ "=Feuil1!R2C2:R13C2" Set Plage = Range("PlageAdresse").Offset(0, -1) For Each Cell In Plage MsgBox Cell Next End

---

Tu dis
A+