XL 2019 VBA fonction transfert

C

Compte Supprimé 979

Guest

• 15 Octobre 2021

• #2

Bonsoir Jamie0d9

Une petite modification de formule pour supprimer le Si() à rallonge
Quelques changements au niveau des données des différentes tenues et tailles
Un modification du nombre de colonne traitée et voilà

A nous dire

 

Pièces jointes

• Jamie0d9_Cmdes uniformes test.xlsm

  78.9 KB · Affichages: 3

Vote positif 0 Vote négatif

Jamie0d9

XLDnaute Nouveau

• 15 Octobre 2021

• #3

Mille Merci BrunoM45,
Je n'avais pas pensé à la fonction RECHERCHEV, très efficace.
Cependant, dans l'onglet "commande" le sélecteur de taille ne fais pas la différence entre ce qui est "haut" (chemises, polos, t-shirt,...) et ce qui est "bas" (jupe, bermuda, pantalon,...).

Comment amener ce dernier à choisir la liste de taille à afficher en fonction du type haut ou bas ?

Merci beaucoup pour ton aide

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Octobre 2021

• #4

Re,

Cela semble déjà le cas sur le fichier mis à disposition 🤔 😉

Voici le fichier corrigé et amélioré, tu me diras

@+

 

Pièces jointes

• Jamie0d9_Cmdes uniformes v2.xlsm

  87.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Jamie0d9

XLDnaute Nouveau

• 16 Octobre 2021

• #5

Oui effectivement ça le faisait à l'origine mais avec l'ajout de nouvelles références il faut adapter le code
Regarde dans l'onglet params je t'ai expliqué un peu la logique que j'essais de mettre en place

Merci beaucoup pour ces améliorations portées, plutôt que de retenir tous les codes ce sélecteur est beaucoup plus pratique.

 

Pièces jointes

• Jamie0d9_Cmdes uniformes v2.xlsm

  83.6 KB · Affichages: 2

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Octobre 2021

• #6

Salut Jamie0d9

Encore plus simple avec cet idée d'ajouter une colonne "Haut", "Bas" 👍
En la mettant juste à côté des 3 autres et en étendant le nom définit.
Plus besoin d'utiliser la 1ère partie du code de la feuille

Voici la formule à utiliser dans la validation de données 😉

VB:

=INDIRECT("Tailles" & RECHERCHEV(B17;ListeTenues;4;FAUX))

Voici le fichier

A+

 

Pièces jointes

• Jamie0d9_Cmdes uniformes v3.xlsm

  81.8 KB · Affichages: 5

Vote positif 0 Vote négatif

Jamie0d9

XLDnaute Nouveau

• 16 Octobre 2021

• #7

effectivement solution plus simple avec cette colonne Hauts/Bas.

Merci beaucoup BrunoM45 pour ton aide

 

Vote positif 0 Vote négatif

Jamie0d9

XLDnaute Nouveau

• 18 Octobre 2021

• #8

Bonjour,

Je me rends compte que l'onglet statistiques ne fonctionne pas comme il devrait.
Le code permettait de transférer les données des "Bon de Commande/Retrait" en les classant directement dans les tableaux correspondant de la manière suivante :
transfert automatique vers "statistiques" en fonction du produit et de la taille mais si "pantalon" transfert vers ligne correspondant (deuxième tableau) en fonction de la taille

Comment prendre en compte les nouvelles données dans le deuxième tableau dans le code?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 19 Octobre 2021

• #9

Bonjour Jamie0d9

J'ai refait totalement la sub "Transfert" pour que cela fonctionne correctement 😉

@+

 

Pièces jointes

• Jamie0d9_Cmdes uniformes v4.xlsm

  108.2 KB · Affichages: 13

Vote positif 0 Vote négatif

Jamie0d9

XLDnaute Nouveau

• 19 Octobre 2021

• #10

Autant cela a été simple de comprendre les précédentes modifications, autant j'ai du mal à comprendre le code que tu as réécrit .A vrai dire, il y a beaucoup de fonctions que je n'avais jamais vu auparavant (RngArt, LigCde, ...).
Je prendrais le temps de l'analyse pour mieux comprendre.
Merci mille fois BrunoM45

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 19 Octobre 2021

• #11

Bonjour @Jamie0d9 , Bruno

Euh la nuit a du être difficile😀

Jamie0d9 à dit:

A vrai dire, il y a beaucoup de fonctions que je n'avais jamais vu auparavant (RngArt, LigCde, ...).

Cliquez pour agrandir...

VB:

' Définir les variables
  Dim Col As Long, NbCol As Long, LigEntete As Long
  Dim dLigCde As Long, LigCde As Long, LigStat As Long
  Dim RngTot As Range, RngArt As Range
  Dim Article As String, Taille As String, Nb As Single
  Dim ShtCde As Worksheet, ShtStat As Worksheet

Ce sont des ..... variables comme Bruno l'a écrit....
De plus elle sont assez parlante
dLigCde ==> dernière ligne commande
LigCde ==> D'habitude on met For i = ..... mais Bruno àa voulu rendre le code plus parlant....
ShtCde ==> Feuille "Bon de Commande-retrait"
etc....

il aurait pu écrire :

VB:

Dim Var1&, Var2&,i&, j& 'etc

Mais c'est plus compliqué à lire le code.

@Phil69970

 

Vote positif 0 Vote négatif

Jamie0d9

XLDnaute Nouveau

• 19 Octobre 2021

• #12

Effectivement Phil69970,

non la nuit n'a pas été si terrible que ça 😂

Après avoir lu un peu à leur sujet et compris leur signification, à la relecture du code, tout devient évident.

Merci pour tes lumières

 

Vote positif 0 Vote négatif