Boucle For Each avec Offset variable suivant Application.thiscell.column

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

Pièce jointe 182661

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!

Pièce jointe 182695

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.

Bonjour,

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

la fonction possède un nouvel argument : ColCherche

Code:

---

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:

---

=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"

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

Code:

---

Dim Col as long

---

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

Merci pour votre aide

Très bonne adaptation

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

On a tous ses défauts ;) Merci dans tous les cas, je bloquais depuis un moment sur cette formule, les deux choses que j'avais oublié, c'est le -1 dans offset et c'est le as Long, j'ai encore beaucoup de chose à apprendre, merci encore