rh.finances
XLDnaute Occasionnel
Bonjour à tous,
je me permets d'écrire ce message sur cet excellent site dédié aux fans d'Excel pour vous soumettre un problème que je n'arrive pas du tout à résoudre, n'étant pas un grand spécialiste du langage VB.
je dispose sur un même classeur de plusieurs feuilles (toto, tata...) dont le volume augmentera autant que de besoin. chacune de ses feuilles comprend des informations en D3, B4, D5 et E47 (comportant le nom "solde_crediteur") que je souhaiterais consolider et fusionner sur la feuille intitulé "recap".
j'ai pas mal navigué sur ce site et sur d'autres sites pour trouver la solution à mon problème et j'ai récupéré un code qui se trouve dans le module 1 que j'ai essayé d'adapter au cas présent. toutefois, j'ai un message d'erreur que je n'arrive pas du tout à résoudre.
quelqu'un pourrait-il me venir en aide? est-il possible d'assurer la consolidation sur la feuille "recap" directement et sans avoir à utiliser un bouton de commande?
D'avance merci beaucoup!!!
Alex
PS: le code est le suivant:
Sub Consolidation()
Dim ws As Worksheet, cel As Range, ref As Range
With Sheets("Recap")
.[A3: D65536].ClearContents
For Each ws In Worksheets
If ws.Name <> "Recap" Then
For Each cel In ws(ws.[d3], ws.[b4], ws.[d5], ws.["solde_crediteur"])
Set ref = .[A3:A65536].Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
If ref Is Nothing Then Set ref = .[A65536].End(xlUp)(2)
ref = cel
ref.Offset(, 1) = cel.Offset(, 1)
ref.Offset(, ws.Index + 2) = cel.Offset(, 3)
Next
End If
Next
End With
End Sub
je me permets d'écrire ce message sur cet excellent site dédié aux fans d'Excel pour vous soumettre un problème que je n'arrive pas du tout à résoudre, n'étant pas un grand spécialiste du langage VB.
je dispose sur un même classeur de plusieurs feuilles (toto, tata...) dont le volume augmentera autant que de besoin. chacune de ses feuilles comprend des informations en D3, B4, D5 et E47 (comportant le nom "solde_crediteur") que je souhaiterais consolider et fusionner sur la feuille intitulé "recap".
j'ai pas mal navigué sur ce site et sur d'autres sites pour trouver la solution à mon problème et j'ai récupéré un code qui se trouve dans le module 1 que j'ai essayé d'adapter au cas présent. toutefois, j'ai un message d'erreur que je n'arrive pas du tout à résoudre.
quelqu'un pourrait-il me venir en aide? est-il possible d'assurer la consolidation sur la feuille "recap" directement et sans avoir à utiliser un bouton de commande?
D'avance merci beaucoup!!!
Alex
PS: le code est le suivant:
Code:
Dim ws As Worksheet, cel As Range, ref As Range
With Sheets("Recap")
.[A3: D65536].ClearContents
For Each ws In Worksheets
If ws.Name <> "Recap" Then
For Each cel In ws(ws.[d3], ws.[b4], ws.[d5], ws.["solde_crediteur"])
Set ref = .[A3:A65536].Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
If ref Is Nothing Then Set ref = .[A65536].End(xlUp)(2)
ref = cel
ref.Offset(, 1) = cel.Offset(, 1)
ref.Offset(, ws.Index + 2) = cel.Offset(, 3)
Next
End If
Next
End With
End Sub
Code: