Microsoft 365 Mise a jour dans un autre classeur

charles97411 · 10 Octobre 2023

Bonjour, J'ai 2 classeurs ( Vendeurs) et (Stock dépôt qui le préparateur).
Le vendeur saisi ses ventes dans son classeur dans la colonne suivi est saisie "Commande".
Le magasinier récupère ces informations prépare la commande et met à jour, le vendeur peut consulter l'état d'avancement.
J'ai essayé avec filtre, tout s’efface car instruction matricielle.
J'ai pu récupérer avec query, mais l'actualisation ne marche pas.
Merci par avance.
Charles

job75 · 10 Octobre 2023

Bonjour charles97411, bienvenue sur XLD,

1) Pourquoi 2 fichiers ? Il serait plus simple d'en n'avoir qu'un seul.

2) Il faut des références communes aux 2 fichiers : a priori les numéros de commandes en colonne "NumCom".

3) Le magasinier met à jour la colonne "Suivi" dans son fichier, vous voulez une mise à jour automatique de la colonne "Suivi" du fichier "Vendeurs.

Merci de confirmer les points 2 et 3.

A+

job75 · 10 Octobre 2023

Enregistrez le classeur "stock depot Jul-V-03" en .xlsm (acceptant les macros) et voyez la macro dans le code de la feuille "TabVendeurs2" (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col%, fichier$, Fdest As Worksheet, coldest%, i As Variant
col = Cells.Find("Suivi", , xlValues).Column
Set Target = Intersect(Target, Columns(col))
If Target Is Nothing Then Exit Sub
fichier = "Vendeurs-Jul-V-00.xlsx" 'à adapter
On Error Resume Next
Set Fdest = Workbooks(fichier).Sheets(1)
On Error GoTo 0
If Fdest Is Nothing Then MsgBox "Le fichier '" & fichier & "' doit être ouvert...": Exit Sub
coldest = Fdest.Cells.Find("Suivi", , xlValues).Column
For Each Target In Target 'si entrées multiples
    i = Application.Match(Target(1, 2), Fdest.Columns(coldest + 1), 0)
    If IsNumeric(i) Then Fdest.Cells(i, coldest) = Target
Next
End Sub

Modifiez ou validez des cellules dans la colonne "Suivi".

Le fichier .xlsx doit être ouvert.

charles97411 · 10 Octobre 2023

job75 à dit:
Bonjour charles97411, bienvenue sur XLD,

1) Pourquoi 2 fichiers ? Il serait plus simple d'en n'avoir qu'un seul.

2) Il faut des références communes aux 2 fichiers : a priori les numéros de commandes en colonne "NumCom".

3) Le magasinier met à jour la colonne "Suivi" dans son fichier, vous voulez une mise à jour automatique de la colonne "Suivi" du fichier "Vendeurs.

Merci de confirmer les points 2 et 3.

A+

Merci pour ce retour
1) Oui 2 fichiers : modification par les vendeurs de la BDD
2) "NumCom" est généré par CONCAT([@RefVendeur];"-";LIGNE([@RefVendeur])) lacommande ligne peut changer. le magasinier n'est pas encore à l'aise en VBA
3) Oui,le magasinier met à jour la colonne "Suivi" dans son fichier, une mise à jour automatique de la colonne "Suivi" du fichier "Vendeurs.

charles97411 · 10 Octobre 2023

charles97411 à dit:
Merci pour ce retour
1) Oui 2 fichiers : modification par les vendeurs de la BDD
2) "NumCom" est généré par CONCAT([@RefVendeur];"-";LIGNE([@RefVendeur])) lacommande ligne peut changer. le magasinier n'est pas encore à l'aise en VBA
3) Oui,le magasinier met à jour la colonne "Suivi" dans son fichier, une mise à jour automatique de la colonne "Suivi" du fichier "Vendeurs.

Microsoft 365 Mise a jour dans un autre classeur

charles97411

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

charles97411

XLDnaute Nouveau

charles97411

XLDnaute Nouveau

Discussions similaires