redupdevils
XLDnaute Nouveau
Salut à tous,
J'ai soucis avec une formule de recherche, je m'explique :
- dans la feuil1 j'ai des noms sur chaque ligne, avec des valeurs en face. Au bout de chaque ligne un TOTAL.
- dans la feuil8 je récupère la liste des noms avec une macro, puis je lance une recherche qui est censée m'afficher le TOTAL en face de chaque nom correspondant...
Problème : si les noms ne sont pas classés par ordre alphabétique dans la feuil1, les totaux qui s'affichent en feuil8 ne sont pas les bons. Existe t-il une solution qui ne tient pas compte de l'ordre alphabétique ???
Voici ma formule actuelle :
Public Sub ESSAI()
Dim ncolonne As Integer, nligne As Integer, ncol As Integer, nlig As Integer
ncolonne = 1
nligne = 2
z = trouvefincoltotal(nligne, ncolonne)
ncol = 2
nlig = 14
i = feuil1.trouvefincol(nlig, ncol)
For j = 2 To z - 1
Cells(j, 2).FormulaLocal = "=RECHERCHE(A" & j & ";Lundi!$B$14:$B" & i & ";Lundi!$AD$14:$AD" & i - 1 & ")"
Next j
End Sub
J'ai soucis avec une formule de recherche, je m'explique :
- dans la feuil1 j'ai des noms sur chaque ligne, avec des valeurs en face. Au bout de chaque ligne un TOTAL.
- dans la feuil8 je récupère la liste des noms avec une macro, puis je lance une recherche qui est censée m'afficher le TOTAL en face de chaque nom correspondant...
Problème : si les noms ne sont pas classés par ordre alphabétique dans la feuil1, les totaux qui s'affichent en feuil8 ne sont pas les bons. Existe t-il une solution qui ne tient pas compte de l'ordre alphabétique ???
Voici ma formule actuelle :
Code:
Dim ncolonne As Integer, nligne As Integer, ncol As Integer, nlig As Integer
ncolonne = 1
nligne = 2
z = trouvefincoltotal(nligne, ncolonne)
ncol = 2
nlig = 14
i = feuil1.trouvefincol(nlig, ncol)
For j = 2 To z - 1
Cells(j, 2).FormulaLocal = "=RECHERCHE(A" & j & ";Lundi!$B$14:$B" & i & ";Lundi!$AD$14:$AD" & i - 1 & ")"
Next j
End Sub