Amener tableau selon valeur cellule

[Hulk]

Hello,

Encore un souci, j'aimerais faire par macro, ce que j'ai fait par formule dans le fichier joint.

Si possible, commenter la macro.

Suis conscient que j'en demande pas mal depuis hier, mais je coince 😱

Merci pour vos pistes !

Cdt, Hulk.

 

[Gorfael]

Re : Amener tableau selon valeur cellule

Salut Hulk et le forum
Peux pas aider, le fichier zippé n'est pas reconnu (XP - Excel 2003)
A+

 

[Cousinhub]

Re : Amener tableau selon valeur cellule

Bonjour,

Bonjour, Gorfael

un essai dans l'évènement de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [J3]) Is Nothing Then
    With Sheets("Feuil2")
        .Cells(Application.Match([J3], .Columns(1), 0), 2).Resize(21, 7).Copy [B2]
    End With
End If
End Sub

 

[Hulk]

Re : Amener tableau selon valeur cellule

Hello,

Tu m'auras bien aidé ces derniers jours Bhbh 😀 je te remercie bien !

Alors ok ça joue sur le fichier modèle que j'ai fourni, j'ai (presque) bien compris mais maintenant pas moyen d'y appliquer à mon fichier source !?

J'imagine que c'est à cause du Match.

Au fait c'est surtout ce bout de code que je ne comprends pas vraiment

Cells(Application.Match([J3], .Columns(1), 0), 2)

Si tu es d'accord, je te lie le fichier en question, et tu jettes un oeil, parce que là ça fait un moment qu'j'essaie d'y appliquer en vain.

Le fichier fait pas loin d'1Mo, prends-le ici si tu es d'accord.

Au pire, je reste avec la version formule, mais vu le nombre de formules, ça augmente considérablement le poids du fichier.

Dans tout les cas, je n'te remercierai jamais assez !

@+, Hulk.

Edit : Slt Gorfael 😀 failli t'oublier. Bizarre que tu ne puisses pas le télécharger...

Bonne soirée à tous !