Discussion :

[Bleys]

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 :

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
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 !

[aalex_38]

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 :

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

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

[Bleys]

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 :

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

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

[mercatog]

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 :

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

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

[Bleys]

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

[mercatog]

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

[Didier Gonard]

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 :

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

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

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

[Bleys]

Bonsoir,

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

@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