Microsoft 365 Synchroniser des colonnes de tableau Excel sur 2 feuilles différentes

vgendron

XLDnaute Barbatruc

• 27 Juin 2022

• #2

Bonjour et bienvenue

alors;. comment dire...
la description du pb n'est pas très claire
si je devine bien: ton classeur (fichier excel) "Tableau des commanes 1" correspond à ta base de données
1) il faudrait au moins mettre quelques lignes de données bidons pour qu'on puisse travailler

ton bon de commande: pourquoi faire un fichier à part?: Peux tu mettre les deux onglets dans le meme classeur?
tu souhaites pouvoir selectionner une référence , et la "synchro" permet de récuperer les données qui correspondent..?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Juin 2022

• #3

Bonjour,

vgendron à dit:

si je devine bien: ton classeur (fichier excel) "Tableau des commanes 1" correspond à ta base de données
1) il faudrait au moins mettre quelques lignes de données bidons pour qu'on puisse travailler

Cliquez pour agrandir...

Perso j'ai compris l'inverse : ce sont les bons de commandes qui vont alimenter le "Tableau des commandes".

Sinon, d'accord avec toi : pourquoi deux fichiers et quelques données seraient les bienvenues.

Je crois que logiquement il faudrait une feuille pour une base de données de tous les éléments "commandables", une feuille servant de modèle pour le bon de commande, et une troisième feuille pour la liste des matériels commandés. Nan ???

 

Dernière édition: 27 Juin 2022

Vote positif 0 Vote négatif

L

Léraud Florian

XLDnaute Junior

• 27 Juin 2022

• #4

Merci de vos réponses

En effet, je m'excuse de la façon dont je pose mon problème.

Oui en effet, ce sont les bons de commandes qui vont venir alimenter le Tableau de commande.
C'est vrai que je peux tout mettre sous le même fichier mais pas sur la même feuille de calcul.

En ce qui concerne le Tableau de commande, celui-ci est vide puisque je veux mettre les informations du Bon de Commande dans celui-ci.

Je sais pas si cela est plus clair pour vous ? ^^

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Juin 2022

• #5

Léraud Florian à dit:

Je sais pas si cela est plus clair pour vous ? ^^

Cliquez pour agrandir...

Jusque là, c'est ce que j'avais compris.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 27 Juin 2022

• #6

un début de réponse en PJ

 

Pièces jointes

• Bon de commande modele.xlsm

  46 KB · Affichages: 6

Vote positif 1 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Juin 2022

• #7

@Léraud Florian, juste une remarque (qui peut-être aucun intérêt...) : il faudrait peut-être ajouter le numéro de la commande dans ton tableau récapitulatif, pour être sûr de ne pas avoir plusieurs fois la même commande ?

 

Vote positif 1 Vote négatif

L

Léraud Florian

XLDnaute Junior

• 27 Juin 2022

• #8

vgendron à dit:

un début de réponse en PJ

Cliquez pour agrandir...

Merci pour cette réponse très rapide ^^

Si je comprends bien ce programme, il sauvegarde les éléments dont j'ai besoin pour ensuite les envoyer dans le Tableau de commande ?

Mais comment mettre à jour le Tableau de commande ? ^^

 

Vote positif 0 Vote négatif

L

Léraud Florian

XLDnaute Junior

• 27 Juin 2022

• #9

TooFatBoy à dit:

@Léraud Florian, juste une remarque (qui peut-être aucun intérêt...) : il faudrait peut-être ajouter le numéro de la commande dans ton tableau récapitulatif, pour être sûr de ne pas avoir plusieurs fois la même commande ?

Cliquez pour agrandir...

En voila une excellente idée

Je pensais mettre la date de la commande mais le n° m'a l'air tout aussi bien.

 

Vote positif 0 Vote négatif

L

Léraud Florian

XLDnaute Junior

• 27 Juin 2022

• #10

Je n'ai rien dit, je n'avais pas vu que la MAJ s'était faite ^^

Merci à vous pour vos réponse, le code marche comme je le veux =)

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 27 Juin 2022

• #11

le programme, il sauvegarde les éléments

Cliquez pour agrandir...

c'est pas vraiement une sauvegarde, on place juste les données dans un tablo vba: quand le programme se termine, le tablo n'existe plus

pour ensuite les envoyer dans le Tableau de commande ?

Cliquez pour agrandir...

la, pour le coup, il s'agit d'une "sauvegarde" puisque les données sont copiées dans la feuille 2022

Mais comment mettre à jour le Tableau de commande ? ^^

Cliquez pour agrandir...

qu'entends tu par Mettre à jour? à quel moment?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 27 Juin 2022

• #12

à noter..si il n'y a pas de numéro de client, toutes les lignes seront copiées sur la meme ligne==> donc toutes les données seront écrasées par la dernière ligne de commande: en cause la ligne de code
fin=range("A" &rows.count).end(xlup).row +1

 

Vote positif 1 Vote négatif

L

Léraud Florian

XLDnaute Junior

• 27 Juin 2022

• #13

Je me suis mal exprimé, je voulais dire "est-ce que la feuille 2022 se met à jour en fonction de la taille variable du tableau de mon bon de commande"

Si par exemple je rajoute un produit, alors mon tableau dans la feuille 2022 aura un élément en plus.

Mais après vérification j'ai vu que cela fonctionne =)

D'accord merci de la mise en garde ^^

Et donc ton code peut fonctionner pour plusieurs bon de commande différents (à condition que je change bien le nom des feuilles sur le code ) ?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 27 Juin 2022

• #14

à chaque sauvegarde, on peut effacer le Bon de commande pour en faire un autre

VB:

Sub SaveBonDeCommande()
Dim TabCommande() As Variant

With Sheets("Facture de service") 'dans la feuille Facture
    TabCommande = .ListObjects(1).DataBodyRange.Value 'on récupère les données dans un tablo vba
    Client = .Range("C10") 'on récupère l'ID client
    'on peut faire quelques tests avant de continuer; comme vérifier qu'un ID client a bien été saisi
    If Client = "" Then
        MsgBox ("Veuillez saisir un ID Client")
        Exit Sub 'on quitte la macro pour bypasser ce qui suit
    End If
End With
With Sheets("2022") 'dans la feuille 2022
    For i = LBound(TabCommande, 1) To UBound(TabCommande, 1) 'pour chaque ligne de commande
        fin = .Range("A" & .Rows.Count).End(xlUp).Row + 1 'première ligne vide de la colonne A
        .Range("A" & fin) = Client 'on colle l'ID client
        .Range("G" & fin) = TabCommande(i, 1) 'Qté
        .Range("D" & fin) = TabCommande(i, 2) 'Matériaux
        .Range("F" & fin) = TabCommande(i, 3) 'Epaisseur
        'Référence
        'PU
        'Total
    Next i
End With
Effacer = MsgBox("Souhaitez vous effacer le BdC pour en saisir un nouveau?", vbYesNo)
If Effacer = vbYes Then
    With Sheets("Facture de service") 'dans la feuille Facture
        .Range("C10").ClearContents
        .ListObjects(1).DataBodyRange.ClearContents
        .Range("G13").FormulaR1C1 = "=[@[Prix unitaire]]*[@Quantité]"
    End With
End If
End Sub

 

Vote positif 1 Vote négatif

Solution

L

Léraud Florian

XLDnaute Junior

• 27 Juin 2022

• #15

Olala c'est mieux que je ne le pensais au départ ^^

Un grand merci à toi pour ce travail

Le fait de pouvoir rééditer un bon de commande en écrasant l'ancien est vraiment sympas =)

 

Vote positif 0 Vote négatif