Synchronisation de lignes automatique

[MrDocar]

Bonjour,

Mon problème est le suivant :
Je souhaite synchroniser certaine ligne entre 2 feuille de mon excel, exemple c'est plus parlant :


Sur la feuille 1 j'ai l'état de mon stock

Feuille 1 :

Article 1	20 €	Disponible
Article 2	5€	Indisponible
Article 3	8€	Indisponible
Article 4	13€	Disponible

Et je souhaite que la sur la feuille 2 il m'affiche seulement automatiquement les articles Indisponible :

Article 2	5€	Indisponible
Article 3	8€	Indisponible

Je vous joint aussi le fichier d'exemple.
Quel solution avez vous a me proposer ?

Merci d'avance
Bonne soirée

 

[chris]

Bonjour

Une solution PowerQuery (intégré à ta version) : l'actualisation peut être manuelle ou automatique

 

[MrDocar]

Bonjour

Une solution PowerQuery (intégré à ta version) : l'actualisation peut être manuelle ou automatique

Merci beaucoup pour ta réactivité !
C'est parfaitement ce que je voulais.

Peut-tu juste m'expliquer comment tu fais 🙂

 

[Calvus]

Bonsoir MrDocar, Chris 🙂 , le forum,

Juste pour le fun, une solution en Vba :

Option Explicit

Sub Copie_Indispponible()
Dim i As Integer, j As Integer, n As Integer, t, a(), f1 As Worksheet, f2 As Worksheet

Set f1 = Sheets("Feuille Stock")
Set f2 = Sheets("Feuille à commander")

t = f1.Range("A2" & ":D" & f1.Range("D" & Rows.Count).End(xlUp).Row)

ReDim a(1 To UBound(t), 1 To UBound(t))
For i = 1 To UBound(t)
        If t(i, 4) = "Indisponible" Then
            n = n + 1
    For j = 1 To 4
            a(n, j) = t(i, j)
    Next j
        End If
        
Next i
f2.[A2].Resize(UBound(a), 4) = a
f2.Activate
End Sub

Et une autre solution par formule :

=INDEX('Feuille Stock'!$A$1:$A$100;MIN(SI(NB.SI('Feuille Stock'!$H$1:H1;'Feuille Stock'!$A$2:$A$100)=0;SI(('Feuille Stock'!$D$2:$D$100<>"")*('Feuille Stock'!$D$2:$D$100="Indisponible");LIGNE('Feuille Stock'!$A$2:$A$100)))))

Formules matricielles, à valider par Ctrl + Maj + Entrée, à copier vers la droite et vers le bas.

A+

 

[chris]

RE à tous

Mettre la source sous forme de tableau et nommer le tableau (ici j'ai remplacé Tableau1 par Stock)
Données, A partir d'un tableau : cela ouvre l'interface PowerQuery
Filtrer la colonne Etat sur Indisponible
Sortir par Fermer et Charger Dans, Table puis indiqué l'emplacement voulu.

 

[Efgé]

Bonjour à tous, Bonjour Chris 🙂
Je me permet de me glisser dans la discussion...

l'actualisation peut être manuelle ou automatique

Par automatique, tu veux dire "à l'ouverture du fichier" ou au changement de données de la table source ?

Cordialement

 

[chris]

Bonjour Efgé

C'est effectivement actualisable à l'ouverture mais pour une actualisation après modification de la source, le mieux est une ligne de VBA lançant un RefreshAll à l'activation de la feuille des indisponibles.

 

[Efgé]

Re
Merci Chris 🙂
Cordialement