XL 2019 Fonction Decaler

[kikililou]

Help Help Help !!!
Depuis ce matin je n'arrive pas à utiliser cette fonction si pratique !!
Je souhaiterai que mes stocks et besoins s'inscrivent automatiquement en fonction de l’unité que je choisie en cellule B1....
Je m'arrache les cheveux ...

Je sais que je vais bien trouver une âme charitable pour m'expliquer mon erreur ....

 

[sylvanu]

Bonjour Kikililou,
Essayer avec en B3 :

=DECALER(B28;EQUIV($B$1;$A:$A;0)-27;0)

L' Equiv sert à indexer le tableau sur la valeur de la liste déroulante.
Comme votre référence est en 28, le décalage de ligne pour HP doit être de 0.

 

[sylvanu]

Mais si le but était dans Folha1 de recopier les tableaux des feuilles en fonction de la liste déroulante alors il y a plus simple avec INDIRECT.

=INDIRECT($B$1&"!B"&LIGNE()+1)

Indirect reconstruit l'adresse de la cellule.
Ainsi si B1=HP alors =INDIRECT($B$1&"!B"&LIGNE()+1) devient =HP!B4.

 

[kikililou]

Comment dire.....
Vous avez rendu une femme heureuse !!! C'est EXACTEMENT ce que je cherchais à faire...
Un grand merci à vous

 

[soan]

Bonjour kikilou, sylvanu,

Je propose ce fichier Excel.

soan

 

[kikililou]

Mais si le but était dans Folha1 de recopier les tableaux des feuilles en fonction de la liste déroulante alors il y a plus simple avec INDIRECT.

=INDIRECT($B$1&"!B"&LIGNE()+1)

Indirect reconstruit l'adresse de la cellule.
Ainsi si B1=HP alors =INDIRECT($B$1&"!B"&LIGNE()+1) devient =HP!B4.

C'est exactement ça que je souhaitais faire...
Par contre, dès que je renomme les feuilles, il s'inscrit dans la cellule #REF !

 

[soan]

@kikililou

as-tu essayé le fichier de mon post #5 ?

soan

 

[kikililou]

@kikililou

as-tu essayé le fichier de mon post #5 ?

soan

oui oui mais tu vois je préfères celui du post#2
Mais tu vois quand je modifies le nom des feuilles certaines dellules sont idiquées #REF !

 

[job75]

Bojour kikililou, sylvanu, soan,

Mais tu vois quand je modifies le nom des feuilles certaines dellules sont idiquées #REF !

Pour l'éviter il faut du VBA, voyez le fichier joint et cette macro dans le code de la 1ère feuille :

Private Sub Worksheet_Calculate()
If Worksheets.Count = 1 Then Exit Sub
Dim a$(), i%
ReDim a(1 To Worksheets.Count - 1, 1 To 1)
For i = 2 To Worksheets.Count
    a(i - 1, 1) = Worksheets(i).Name
Next
Application.EnableEvents = False
With [L2]
    .Resize(i - 2) = a
    .Resize(i - 2).Name = "Liste"
    .Offset(i - 2).Resize(Rows.Count - i - .Row + 3).ClearContents
End With
If IsError(Application.Match([B1], [Liste], 0)) Then [B1] = [Liste].Cells(1) '1ère valeur
Application.EnableEvents = True
End Sub

Grâce aux formules avec INDIRECT qui sont volatiles la macro se déclenche chaque fois que des cellules se recalculent.

Pour tester modifiez le nom des feuilles.

A+

 

[kikililou]

Merci mais je ne comprends pas pourquoi certaines fois cela ne fonctionne pas...
J'ai mis en jaune les unités qui ne fonctionnent pas... Merci d'avance de votre réponse

 

[sylvanu]

Bonjour,
Rectifié en PJ, j'avais omis les '.

 

[job75]

Ci-joint la solution VBA avec les formules complétées par les apostrophes.