XL 2019 Fonction Decaler

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Octobre 2020

• #2

Bonjour Kikililou,
Essayer avec en B3 :

VB:

=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.

 

Pièces jointes

• STOCK (1).xlsx

  41.2 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Octobre 2020

• #3

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.

VB:

=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.

 

Pièces jointes

• STOCK (2).xlsx

  30 KB · Affichages: 12

Vote positif 0 Vote négatif

K

kikililou

XLDnaute Nouveau

• 12 Octobre 2020

• #4

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Octobre 2020

• #5

Bonjour kikilou, sylvanu,

Je propose ce fichier Excel.

soan

 

Pièces jointes

• STOCK.xlsx

  37.7 KB · Affichages: 12

Vote positif 0 Vote négatif

K

kikililou

XLDnaute Nouveau

• 12 Octobre 2020

• #6

sylvanu à dit:

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.

VB:

=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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Octobre 2020

• #7

@kikililou

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

soan

 

Vote positif 0 Vote négatif

K

kikililou

XLDnaute Nouveau

• 12 Octobre 2020

• #8

soan à dit:

@kikililou

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

soan

Cliquez pour agrandir...

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 !

 

Pièces jointes

• STOCK.xlsx

  31.5 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Octobre 2020

• #9

Bojour kikililou, sylvanu, soan,

kikililou à dit:

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

Cliquez pour agrandir...

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

VB:

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+

 

Pièces jointes

• STOCK VBA(1).xlsm

  39.5 KB · Affichages: 8

Vote positif 0 Vote négatif

K

kikililou

XLDnaute Nouveau

• 13 Octobre 2020

• #10

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

 

Pièces jointes

• STOCK 3.xlsx

  28.2 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #11

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

 

Pièces jointes

• STOCK 3.xlsx

  27.2 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 13 Octobre 2020

• #12

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

 

Pièces jointes

• STOCK VBA(2).xlsm

  39.9 KB · Affichages: 5

Vote positif 0 Vote négatif