Discussion :

[roman33]

Bonjour,
J'ai lu cette discussion.
Je bute également sur un problème identique mais ne suis pas arrivé à retranscrire la macro de rdurupt. Dans mon fichier joint, je cherche à ramener dans la colonne X de la feuille gestion (colonne X en jaune) la valeur correspondante au compte précisé ds l'entête de cette colonne (soit ici 70720000) et au numéro ctr (colonne G) retrouvé dans la feuille CONVERT colonne E et colonne I. Rdurupt si tu es encore dans les parages je suis preneur de tes conseils...
Merci pour votre coup de pouce les gars

[Invité]

Bonjour,
Je suis sur un téléphone, place un imprime écran de tes onglets.

[roman33]

test_rp_cumul.xlsx
Merci pour ta réponse, Comme ça tu y vois mieux?

[Invité]

Bonjour,

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
Function CodeGénéral(CodeAffaire, ValEntete, Feuille As String, CodeAffaireC As String, ValEnteteC As String, RetournC) As Double
Dim L As Long
L = 1
Do While L > 0
L = SerchXls(Sheets(Feuille).Range(CodeAffaireC & ":" & CodeAffaireC), Sheets(Feuille).Range(CodeAffaireC & L), CodeAffaire, True)
 
If L > 0 Then
If UCase(Sheets(Feuille).Cells(L, ValEnteteC)) = UCase(ValEntete) Then CodeGénéral = CodeGénéral + Val(Replace(Sheets(Feuille).Cells(L, RetournC), ",", "."))
End If
Loop
End Function
 
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean) As Long '
On Error Resume Next
Dim CellEntrier As Integer
If EntierCell = True Then CellEntrier = xlWhole Else CellEntrier = xlPart
SerchXls = 0
   SerchXls = Myrange.Cells.Find(what:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=CellEntrier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row Then SerchXls = 0
End Function

[roman33]

Merci RDURUPT ça marche nikel, j'ai essayé de la reproduire pour faire la recherche inverse, soit ramener ds la CONVERT colonne Q la valeur trouvée en feuil1, mais je n'y arrive pas, où est ce que je me plante? Que définis le subtest() de départ dans ton code?

Merci en tout cas pour ton apprentissage!

[Invité]

c'est un rechercheVà 2 entrées! il recherche les 2 valeur sur la même ligne pas en [X1]!

Code :

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

If UCase(Sheets(Feuille).Cells(L, ValEnteteC)) = UCase(ValEntete) Then CodeGénéral = CodeGénéral + Val(Replace(Sheets(Feuille).Cells(L, RetournC), ",", "."))

Code Feuil1 OK :

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

=CodeGénéral(G2;$X$1;"CONVERT";"i";"E";"m")

Code CONVERT Ko :

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

=CodeGénéral(I178;E178;"Feuil1";"g";"X";"w")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function InvCodeGénéral(CodeAffaire, ValEntete, Feuille As String, CodeAffaireC As String, ValEnteteC As String, RetournC) As Double
Dim L As Long
L = 1
Do While L > 0
L = SerchXls(Sheets(Feuille).Range(CodeAffaireC & ":" & CodeAffaireC), Sheets(Feuille).Range(CodeAffaireC & L), CodeAffaire, True)
 
If L > 0 Then
If UCase(Sheets(Feuille).range(ValEnteteC)) = UCase(ValEntete) Then InvCodeGénéral = InvCodeGénéral + Val(Replace(Sheets(Feuille).Cells(L, RetournC), ",", "."))
End If
Loop
End Function

Code CONVERT Ok :

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

=InvCodeGénéral(I178;E178;"Feuil1";"g";"$x$1";"w")