Afficher une valeur

bonjour

j'ai une colonne (1) dans un onglet (1) qui affiche les valeurs de certaines cellules d'un autre onglet (2)

Dans l'onglet (1) sur une nouvelle colonne (2)

je veux afficher les valeurs de l'onglet 2 mais une ligne au dessus de celles qui se trouvent dans la colonne 1 de l'onglet 1.

Par exemple si dans ma Feuille1 et Colonne 1 apparaissent les valeurs suivantes

=Feuille2!B3

=Feuille2!G14

=Feuille2!B28

=Feuille2!C74

Comment faire apparaître automatiquement dans la colonne 2 de la feuille 1 les valeurs suivantes

=Feuille2!B2

=Feuille2!G13

=Feuille2!B27

=Feuille2!C73

Bonsoir,

je ne comprends pas, les formules que tu nous présente ne fonctionne-pas ?

Bonjour

Les formules fonctionnent oui mais j'ai 25 000 Lignes

je veux savoir comment obtenir les valeurs automatiquement sur la colonne 2 en fonction de la recherche effectuée sur la colonne 1

Bonjour Cedric, bonjour le forum,

Par formule je ne sais pas faire mais je te propose un solution VBA avec le code ci-dessous :

Sub Macro1()
Dim O As Worksheet 'décalre la variable O (Onglet)
Dim DL As Long 'décalre la variable DL (Dernière Ligne)
Dim OF As String 'décalre la variable OF (Onglet de la formule)
Dim AF As String 'décalre la variable AF (Adresse de la Formule)

Set O = Worksheets(1) 'définit l'onglet O
DL = O.Range("A" & Application.Rows.Count).End(xlUp).Row 'définit la dernière ligne édité DL de la colonne 1 (=A) de l'onglet O
For Each CEL In O.Range("A1:A" & DL) 'boucle sur toutes les cellules éditées CEL de la colonne 1
    OF = Split(CEL.Formula, "!")(0) & "!" 'définit l'onglet de la formule OF
    AF = Split(CEL.Formula, "!")(1) 'définit l'adresse de la formule AF
    CEL.Offset(0, 1).Formula = OF & Range(AF).Offset(-1, 0).Address(0, 0) 'renvoie la formule dans CEL décalée d'une colonne à doite
Next CEL 'prochaine cellule de la boucle
End Sub
Rechercher des sujets similaires à "afficher valeur"