Fct : Range accès à une cellule par son "index"

Bonjour à tous,

Voila je cherche à faire quelque chose de relativement simple je pense. Seulement n'ayant aucune notion en VBA, j'ai du mal à faire proprement ce que je veux.

Je dis proprement car j'ai réussi à faire ce que je voulais ... mais pas élégamment ... D'où mon message.

J'ai deux variables RANGE ressources et durees
Je parcours ressources grâce à une boucle For Each ... Next
A chaque itération j'ai un compteur qui me tient informé de combien d'itération j'ai fait : compteur

Ma question est la suivante :
Comment, à un instant t, accéder directement à la cellule compteur de ma variable durees ? (dans le but ensuite de récupérer la valeur de cette cellule).

Comme parfois un bout de code vaut mieux qu'un long discours, en gros voila ce que j'ai mais que je voudrais plus élégant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Function CalculTempsRessource(CodeReference As Integer, CodeRessource As Range, Duree As Range) As Variant ' On pourrait nettement mieux faire ' mais je ne sais pas comment faire ' pour accéder directement à un élement ' de Range ' ' Je continue à chercher ! Dim i As Integer Dim temps() As Double ReDim temps(0 To Duree.Count - 1) CalculTempsRessource = 0 i = 0 For Each Cell In Duree temps(i) = Cell.Value i = i + 1 Next Cell i = 0 For Each Code In CodeRessource If Code.Value = CodeReference Then CalculTempsRessource = CalculTempsRessource + temps(i) End If i = i + 1 Next Code End Function

---

En gros j'aimerais ne pas avoir à construire ce premier tableau ...


Merci d'avance à quiconque m'aidera !

Si tu as un numéro de colonne et un numéro de ligne tu peux accéder à ta cellule comme ça :

Un exemple =>

Code:

---

1 2 3 4

Dim Macellule as range,Lig as double, Col as integer Lig = 1 Col = 1 Set Macellule = Cells(Lig,Col)

---

Bonjour,

Malheureusement non je n'ai pas de numéro de colonne et de ligne.

Un exemple d'appel à cette fonction est le suivant :

Code:

---

1 2	=CalculTempsRessource(A4;D2:D45;B2:B45)

---

A la rigueur, est-ce que quelqu'un serait capable de me dire quels fonctions sont appelées dans l'utilisation de For Each ?

Merci quand même d'avoir essayé !

Ce n'est pas la fonction SOMME.SI par hasard?

Quand même, j'ai regroupé tes 2 boucles (en ayant supposé que les 2 plages ont la même taille)

Code:

---

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

Function CalculTempsRessource(ByVal CodeReference As Integer, CodeRessource As Range, Duree As Range) Dim Cel As Range Dim coldif As Integer, ligdif As Integer   coldif = Duree.Cells(1, 1).Column - CodeRessource.Cells(1, 1).Column ligdif = Duree.Cells(1, 1).Row - CodeRessource.Cells(1, 1).Row   For Each Cel In CodeRessource If Cel.Value = CodeReference Then CalculTempsRessource = CalculTempsRessource + Cel.Offset(ligdif, coldif).Value End If Next Cel End Function

---

Bonjour,

Si effectivement c'était exactement cette fonction que je cherchais (SOMME.SI) ... Mais je ne la connaissais pas ... :(
Merci pour l'info,


Par contre pour des raisons plus personnelles, si quelqu'un à la réponse à ma question initiale je suis toujours preneur :)


Merci

Le bout de code, ne répondait pas à la question?

Bonjour,

Si tu as une plage continue, tu peux utiliser effectivement l’index de la collection de cellules que représente ta plage, mais il faut bien tout border car ce n’est pas sans danger.

A partir du moment où tu précises ta plage, le système de référence est identique à une feuille de base => Row,Colonne.
L’indexation de la collection de ton Range/Plage se fait dans l’ordre de base de gauche à droite, puis ligne suivante etc…

Cf code ci-dessous et snapshot.

Code:

---

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

Sub Indexation() Dim objcible As Range   Set objcible = [B5:E19] Call toto(objcible)   End Sub   Sub toto(objcible As Range) Dim I As Byte   For I = 7 To 14 objcible.Item(I).Interior.ColorIndex = 6 Next I End Sub

---

http://stock.dg-solutions.fr//images/IndexRange.jpg
Pas sans danger car : En fait tu établis ta cellule d’origine en haut à gauche de ta plage, mais rien ne t’empêche de faire objcible.Item(84).Interior.ColorIndex = 3… la logique est là, le but recherché pas forcément, tu te trouves alors en E23 soit résultat = 76 / objcible.columns.count = 19 lignes + bas que mon origine (si résultat non entier => int( résultat )+1).
L'emploi d'un : If objcible.Areas.Count <> 1 …. Peut s’avérer utile.

cordialement,

Didier

Bonsoir,

Citation:

---

Envoyé par mercatog

Le bout de code, ne répondait pas à la question?

---

Pour être franc je ne l'ai pas encore testé, mais je comprends sa logique. Effectivement je pense que ça marcherait, mais cela ne répond pas vraiment à la question en soit (bien que ta solution fonctionne ... mais là encore c'est une sorte de ruse comme je l'avais fait en créant un tableau ... plus jolie l tienne peut-être).
Quoiqu'il en soit merci pour ton intervention :D

@Ormonth > Merci pour ta réponse, c'est effectivement ce que je cherchais. Après ... il faut évidemment se méfier des données transmises.


Merci pour vos interventions ;)