Formule pour récupérer des données.

[JJ1]

Bonjour,

Je souhaiterais récupérer en colonne DD😀H les valeurs des colonnes BG:BP pour 5 nombres situés en A:E décalés d'une ligne supérieure.
Je joins un exemple fléché.
Merci et bon WE à tous.

 

[Tibo]

Re : Formule pour récupérer des données.

Bonjour,

Une tentative, après avoir rebranché la boule de cristal :

en DD5 :

=INDEX($BG5:$BP5;INDEX($A4:$E4;COLONNES($A:A)))

à recopier vers la droite et vers le bas

@+

 

[hoerwind]

Re : Formule pour récupérer des données.

Bonjour, salut Tibo,

En DD5 :

=DECALER($BF5;;A4)

formule à copier vers le bas et vers la droite

 

[JHA]

Re : Formule pour récupérer des données.

Bonjour,

un essai en "DD5"

=DECALER(INDEX($BG$1:$BP$1;;EQUIV(A4;$BG$1:$BP$1;0));LIGNE(); )

A tirer vers le bas et à droite

JHA

 

[JJ1]

Re : Formule pour récupérer des données.

Bonjour Tibo, Hoerwind,
Merci , parfait comme d'hab.
Bon samedi

 

[camarchepas]

Re : Formule pour récupérer des données.

Bonjour Hoerwind, Tibo, JJ1 , JHA

Version VBA, pour ceux qui ont la fleme de tirer les formules :

Private Sub CommandButton1_Click()
MaxLigne = Range("A65536").End(xlUp).Row - 1
For t = 0 To MaxLigne
For c = 0 To 4
Range("DD5").Offset(t, c) = Range("BG5").Offset(0, Range("A4").Offset(t, c) - 1)
Next c
Next t
End Sub

 

[Staple1600]

Re : Formule pour récupérer des données.

Bonjour JJ1, Tibo, Hoerwind, JHA, camarchepas, le fil, le forum

Version VBA, pour ceux qui demandent à Excel de tirer les formules 😉

Sub Macro1()
Dim f$: f = "=OFFSET(RC58,,R[-1]C[-107])" [COLOR=Green]'<- formule d'Hoerwind[/COLOR]
With Range("DD5")
    .FormulaR1C1 = f: .AutoFill .Resize(, 5), xlFillDefault
    .Resize(, 5).AutoFill Range("DD5:DH9"), xlFillDefault
[COLOR=Green]'Mettre en commentaires
' les 3 lignes ci-dessous si on veut garder les formules[/COLOR]
        With .Resize(5, 5)
            .Value = .Value
        End With
End With

 

[JJ1]

Re : Formule pour récupérer des données.

Bonjour à tous, Excellent humour!
Bravo.
bon we