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

[tguy]

Bonjour,
Dans ma fiche client quand je rempli mon userform (TextBox1)''Date nouvelle commande'' je voudrai mettre une croix dans la cellule correspondant au mois et année(04/19) dans l'exemple
Merci pour votre aide
tguy

 

[surchat]

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

 

[laurent3372]

Bonsoir,

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

 

[tguy]

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

 

[laurent3372]

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

 

[tguy]

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

 

[laurent3372]

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

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

 

[tguy]

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,

 

[laurent3372]

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)

 

[laurent3372]

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

 

[tguy]

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

 

[laurent3372]

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

 

[tguy]

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,

 

[laurent3372]

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.

 

[surchat]

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,

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