Discussion :

[tempo-lyon]

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 :

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

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

[ouskel'n'or]

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 :

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

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 :

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

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 :

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

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+

[tempo-lyon]

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!

[LeForestier]

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

A+

[alsimbad]

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

[tempo-lyon]

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 :

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

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

[ouskel'n'or]

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

Code :

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

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+