Discussion :

[Ganeshiva]

Bonjour tout le monde

Dans Feuille excel, j'ai crée une fonction pour compter les cellules qui correspondent en fonction des croix en face des cellules à prendre en compte.Je voudrais faire varier la ligne Et.Offset(0, 3) en Et.Offset(0, i) ou i = le numéro de la colonne ou la formule est inscrite.

Comment puis je faire cela ? il me retourne une erreur.
En vous remerciant pour votre aide

Test.xlsm

[Invité]

Bonjour,
ce que appréciée dans ton tableau c'est qu'il est compréhensible au premier regard!

Function AEP(Etage As Range, Logement As Range)

Test			1	4
			2	2
			3	3
Test	TOTAL		6	9
Test1			2	2
			1	1
			2	2
Test1	TOTAL		3	3
Test2			3	3
Test2	TOTAL		3	3
Test			x	x
Test1				x
Test2			x	x
		TOTAL	#VALEUR!	#VALEUR!

Cheval			1	4
			2	2
			3	3
Cheval	TOTAL		6	9
Cheval1			2	2
			1	1
			2	2
Chevalt1	TOTAL		3	3
Cheval2			3	3
Cheval2	TOTAL		3	3
Cheval			x	x
Cheval1				x
Cheval2			x	x
		TOTAL	#VALEUR!	#VALEUR!

[Ganeshiva]

Test.xlsm

J'espère que cela sera plus clair en fait dans mon tableau précedent Dim i et J mettais un peu le bazar autant pour moi, j'ai essayer d’éclaircir le tableau.

[joe.levrai]

Bonjour,

une solution un peu radicale mais te permettant d'étirer ta formule :

la fonction possède un nouvel argument : ColCherche

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 AEP(Etage As Range, Logement As Range, ColCherche As Long)
Application.Volatile
Dim Lgt As Range
Dim Et As Range
Dim EF As Single
Dim i As Integer
 
For Each Lgt In Logement
    For Each Et In Etage
        If Et = Lgt And Lgt.Offset(0, 1) = "TOTAL" And Et.Offset(0, ColCherche - 1) = "x" Then
            EF = EF + Lgt.Offset(0, 3)
        End If
    Next Et
Next Lgt
 
AEP = EF
End Function

Formule en D19 :

Code :

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

=aep($A$15:$A$17;$A$3:$A$12;COLONNE(D1))

En étirant ta formule en E19, COLONNE(D1) va devenir COLONNE(E1), ce qui permet de générer le décalage de ton Et.Offset(0, ColCherche - 1) = "x"

[Ganeshiva]

Du coup pour la solution pas forcement besoin de rajouter un argument :

Code :

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

Dim Col as long

Col = application.thiscell.column marche très bien avec Et.offset(0, col -1).

Merci pour votre aide

[joe.levrai]

Très bonne adaptation

je n'utilise pas (à tort) la propriété ThisCell ... voici un excellent contre exemple de ma mauvaise habitude