Récupérer des données dans une feuille pour mettre dans une autre

[Bdded]

Bonjour, je souhaiterai récupérer une somme dans un tableau situé dans une autre feuille de façon automatique, sans créer de liaisons. J'ai essayé avec recherhev mais je ne maitrise pas trop.

En clair récupérer la cellule AH10 de la feuille Janvier pour mettre le chiffre en D3 de la feuille CA.

Merci

 

[RVL]

Re : Récupérer des données dans une feuille pour mettre dans une autre

Bonjour Bdded,

En D3 sur la feuil "CA", faire = et te mettre sur HA10 sur la feuil "Janvier" !

 

[JNP]

Re : Récupérer des données dans une feuille pour mettre dans une autre

Bonjour Bdded et bienvenue, salut RVL 🙂,
En D3

=INDIRECT(D$2&"!AH"&EQUIV($A3;INDIRECT(D$2&"!A:A");0))

à recopier vers le bas et à gauche 😉.
Bonne soirée 😎

 

[Bdded]

Re : Récupérer des données dans une feuille pour mettre dans une autre

Merci beaucoup JNP, ça marche impeccable.

Maintenant je vais essayé de comprendre la formule pour la reproduire.

Bonne soirée à toi.

 

[Bdded]

Re : Récupérer des données dans une feuille pour mettre dans une autre

Merci aussi a toi RVL, mais ça je savais le faire. Je recherchais une formule qui recherche, donc qui reste tj valable même si on ajoute des lignes ou si on en supprime.

Bonne soirée et a+

 

[jetted]

Re : Récupérer des données dans une feuille pour mettre dans une autre

un autre variante cette en vba

Sub TestStaticArray()
    Dim MyArray As Variant
    i = 3
    Dim Rng As Range
    Sheets("Janvier").Select
    'mois=InputBox("Pour quelle mois voulez effectuer le transfert")
    'Sheets(mois).Select
    mois = ActiveSheet.Name
    WorkbookName = ThisWorkbook.Name
    MyArray = Range("ah10:ah23")
    For X = LBound(MyArray) To UBound(MyArray)
        '    MsgBox MyArray(X, 1)
    Next
    Sheets("CA").Select
    Set Rng = ActiveSheet.UsedRange.Find(What:=mois, LookAt:=xlWhole, _
                                         LookIn:=xlValues)
    Application.Goto Rng
    ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
    For X = LBound(MyArray) To UBound(MyArray)
        Range("D" & i).Select
        ActiveCell.Value = MyArray(X, 1)
        i = i + 1
    Next
End Sub

 

[JNP]

Re : Récupérer des données dans une feuille pour mettre dans une autre

Re 🙂,

Maintenant je vais essayé de comprendre la formule pour la reproduire.

=[COLOR=blue][B]INDIRECT[/B][/COLOR]([B][COLOR=red]D$2&"![/COLOR][COLOR=seagreen]AH"&EQUIV([/COLOR][/B]$A3;[COLOR=blue][B]INDIRECT[/B][/COLOR]([COLOR=red][B]D$2&"![/B][/COLOR]A:A");0))

Permet de faire référence à une adresse en l'écrivant en toute lettre
Permet d'utiliser ta cellule avec le mois au dessus pour faire référence à la feuille
Donne la bonne cellule dans la feuille du mois, AH étant le compteur et EQUIV cherchant le nom dans la colonne A:A
Donc le raisonnement est : je cherche le nom dans la feuille correspondant au bon mois, puis je récupère le total sur la même ligne que ce nom.
Bonne journée 😎