XL 2016 Mettre une croix dans une cellule avec une boite de dialogue

surchat

XLDnaute Occasionnel

• 6 Avril 2020

• #2

Bonsoir Tguy,
le plus simple serait d'avoir les 12 mois de l'année dans la (TextBox1), surtout s'il peut y avoir plusieurs commandes du même article dans une même année.
Andy

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 6 Avril 2020

• #3

Bonsoir,

Ne pourrais-tu pas poster ton classeur, pour qu'on puisse lui apporter les modifs souhaitées ?

 

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 6 Avril 2020

• #4

Bonsoir,
Oui il y a plusieurs commande par an et je voudrai ajouté les années au fur et à mesure.
je joins mon classeur. Merci

 

Pièces jointes

• Création fiches clients - 2020-F.xlsm

  92.5 KB · Affichages: 5

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 7 Avril 2020

• #5

Il n'y a pas moyen de debugger ton code: les feuilles client sont masquées.

 

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 10 Avril 2020

• #6

Bonjour,
Nouveau classeur avec les feuilles non masquées et non protégées
ATTENTION ne pas tenir compte du client W il ne fonctionne pas et je n'arrive pas à le supprimer
Merci pour votre aide
Cordialement
Guy

 

Pièces jointes

• Création fiches clients - 2020-J.xlsm

  114.2 KB · Affichages: 8

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 10 Avril 2020

• #7

Et volà!
Ca ne marche que si on saisit une date d'un mois quelconque en 2019.

VB:

Private Sub cbAjout_Click()
    Dim rp$, Cli$, k%, sMonth$, m As Variant, rTitre As Range
    Cli = cbxCli.Value: rp = cbxProd.Value
    If Cli = "" Or rp = "" Then Exit Sub
    If tbNDate.Value <> "" Then
        If IsDate(tbNDate.Value) Then
            DéprotProtF Cli
            With Worksheets(Cli)
                'If pr > 0 Then
                    '.Cells(pr, 1).End(xlToRight)(1, 2) = CDate(tbNDate.Value)
                    
                'Else
                    Set rTitre = .[d3:o3]
                    With .Cells(1, 1).End(xlDown)(2)
                        .Cells(1, 1) = rp
                        .Cells(1, 2) = tbProd.Value
                        .Cells(1, 3) = CDate(tbNDate.Value)
                        sMonth = Format(CDate(TextBox1.Value), "mm/yy")
                        m = Application.Match(sMonth, rTitre, 0)
                        If Not IsError(m) Then
                            .Cells(1, 3 + m) = "X"
                        End If
                    End With
                'End If
            End With
            DéprotProtF Cli, True
        Else
            MsgBox "Saisir une date valide !", vbCritical, "Date invalide"
        End If
        cbxProd.ListIndex = -1: lbxDates.Clear
    End If
End Sub

Cordialement,
--
AP

 

Pièces jointes

• Création fiches clients - 2020-J V1.1.xlsm

  101.9 KB · Affichages: 5

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 11 Avril 2020

• #8

Bonjour Laurent 3372,
Merci pour ta réponse mais quand je rentre une date (08/19) dans la TextBox1 rien ne se passe sur la fiche client
Cordialement,

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 11 Avril 2020

• #9

il faut rentrer une date complète (jj/mm/a) en non pas un n° de mois (mm/aa).
Si tu préfères, je peux faire en sorte qu'on puisse rentrer la date mm/aa à condition qu'il y ait un zéro devant le 8 (08/19 et non pas 8/19)

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 11 Avril 2020

• #10

Voici une nouvelle version qui accepte le format mm/aa (08/19) ou m/aa (8/19)

 

Pièces jointes

• Création fiches clients - 2020-J V1.2.xlsm

  102 KB · Affichages: 5

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 11 Avril 2020

• #11

Bonsoir Laurent,
Merci de ta réactivité ! C'est top pour un nouveau produit acheté par le client, mais je voudrais pour un autre achat du même produit (par le même client) que la coche s'ajoute sur la même ligne du produit, en renseignant la "date nouvelle commande" (textbox 1).
Actuellement, ça me recréée une nouvelle ligne du même produit.
Cordialement,
Guy

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 11 Avril 2020

• #12

Je suppose que le produit doit avoir la même PDA que précédemment ?

 

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 12 Avril 2020

• #13

Bonjour,
une seul ligne par référence produit avec une date de PDA et autant de cases cochées que de commandes effectuées
Actuellement si je renseigne pour un produit déjà commandé la même date PDA et la nouvelle date d'achat ça me recréée une nouvelle ligne



si je ne renseigne pas la date PDA ça ne fonctionne pas
Voilà se que je voudrai obtenir
Merci



Cordialement,

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 12 Avril 2020

• #14

Ce que je voulais dire, c'est si pour un même produit tu as deux dates PDA différentes, tu auras deux ligne dans le fichier client.
Pour n'avoir qu'une seule ligne, il faut que la référence, la désignation et la PDA soient les mêmes.

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 12 Avril 2020

• #15

tguy à dit:

Bonjour,
une seul ligne par référence produit avec une date de PDA et autant de cases cochées que de commandes effectuées
Actuellement si je renseigne pour un produit déjà commandé la même date PDA et la nouvelle date d'achat ça me recréée une nouvelle ligne

Regarde la pièce jointe 1062279

si je ne renseigne pas la date PDA ça ne fonctionne pas
Voilà se que je voudrai obtenir
Merci

Regarde la pièce jointe 1062280

Cordialement,

Cliquez pour agrandir...

que veux tu voir si un client commande 2 x le même mois?

 

Vote positif 0 Vote négatif