Microsoft 365 Mise a jour dans un autre classeur

charles97411

XLDnaute Nouveau
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
 

Pièces jointes

  • Vendeurs-Jul-V-00.xlsx
    20.4 KB · Affichages: 3
  • stock depot Jul-V-03.xlsx
    51.2 KB · Affichages: 3

job75

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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.
 

Pièces jointes

  • stock depot Jul-V-03.xlsm
    60 KB · Affichages: 6
  • Vendeurs-Jul-V-00.xlsx
    20.3 KB · Affichages: 2

charles97411

XLDnaute Nouveau
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

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh