organitation donnee

[alessandro]

Bonsoir le forum
Dans le fichier ci-joint,je voudrai obtenir ca .
est-ce faisable en VBA,
Merci de votre aide
Alessandro

 

[néné06]

Re : organitation donnee

Bonjour alessandro,

Il me manque quelques explications !!!

Pourquoi en ligne 1 en colonne "M" à "T" par exemple, figure des incrémentations (venues d'où ???).
Combien de lignes et de colonnes sont elles opérationnelles ?

Pourrais tu nous fournir de plus ample informations.

Cordialement

René

 

[Dormeur74]

Re : organitation donnee

Bien sûr que c'est possible en VBA, mais je pense qu'il faut changer de stratégie au plus tôt, car cette structure manque de robustesse.

Le mieux, à mon avis, serait de gérer ta gestion commerciale sous Access, mais on peut aussi le faire sous Excel.
Le plus solide consiste à créer une feuille par table. Par exemple :
- 1 onglet (feuille) "Journal des ventes" (date, référence client, référence produit acheté, quantités, n° de facture, etc.)
- 1 onglet "Références client" (nom, prénom, adresse, etc.)
- 1 onglet "Produits" (n° de référence, désignation, prix HT)

Deux petites erreurs de conception dans ton tableau si tu tiens à le garder :
- la colonne A n'est pas la colonne "Prodotto", mais la chronologie des ventes, car il y a des doublons (50045).
- Dans le tableau de droite, si un même client achète un produit, puis rachète le même un peu plus tard, il vaudrait mieux mettre la quantité cumulée achetée dans la case d'intersection client/produit.

 

[Modeste geedee]

Re : organitation donnee

Buone giorno Alessandro

Volete provare tabelle pivot

 

[alessandro]

Re : organitation donnee

Bonsoir
les nombre de L1 Bz1 son les code des produits les code de j2 jusqu a j6 son les code des clients a cote les mombre des clients
les X save dir que les client a achete ce prodiuts

merci
Alessandre
p.s. escuse mon francais

 

[alessandro]

Re : organitation donnee

Bonsoir
merci pour ta reponse mais je dois prendre in consideration tous les produit que je vend pas seulements les vendu
pour savoir qui n'achete pas les produits
merci
Alessandro

 

[Modeste geedee]

Re : organitation donnee

buonasera
è sufficiente che questi prodotti (nome, codice) sono inclusi nei dati
anche se non ci sono clienti

 

[mapomme]

Re : organitation donnee

Bonsoir alessandro,

Un essai dans le fichier joint. Le code est dans le module de code de la feuille "Foglio1":

Sub Transposer()
Dim Plage As Range
Application.ScreenUpdating = False
    Range(Cells(1, "i"), Cells(Rows.Count, Columns.Count)).ClearContents
    Set Plage = Range(Range("A5"), Range("A5").End(xlDown))
    Plage.Copy Range("K1")
    Columns("K:K").Sort key1:=Columns("k"), Header:=xlNo
    ActiveSheet.Range("K:K").RemoveDuplicates Columns:=1, Header:=xlNo
    Range(Range("k1"), Range("k1").End(xlDown)).Copy
    Range("L1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Columns("K:K").Delete shift:=xlToLeft
    Range(Range("C5"), Range("C5").End(xlDown)).Resize(, 2).Copy Range("I1")
    Columns("I:J").Sort key1:=Columns("I"), Header:=xlNo
    ActiveSheet.Range("I:J").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("I1:J1").Insert shift:=xlShiftDown
    Range("k2").Formula = "=IF(COUNTIFS(" & Plage.Address(True, True) & "," & Range("K1").Address(True, False) & _
    "," & Plage.Offset(, 2).Address(True, True) & "," & Range("I2").Address(False, True) & ")=0,"""",""X"")"
    Range("k2").Copy Range("I1").CurrentRegion.Offset(1, 2).Resize(Range("I1").CurrentRegion.Rows.Count - 1, _
    Range("I1").CurrentRegion.Columns.Count - 2)
    Range("I1").CurrentRegion = Range("I1").CurrentRegion.Value
    Range("I1").CurrentRegion.Offset(, 2).HorizontalAlignment = xlCenter
Application.ScreenUpdating = True
End Sub

 

[alessandro]

Re : organitation donnee

Bonjour

merci beaucoup pour ta reponse tu est grande

Alessandro