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

tguy

XLDnaute Nouveau
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
 

Pièces jointes

  • Doc1.docx
    253.7 KB · Affichages: 21

tguy

XLDnaute Nouveau
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

laurent3372

XLDnaute Impliqué
Supporter XLD
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

tguy

XLDnaute Nouveau
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
 

tguy

XLDnaute Nouveau
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

client a 3.png


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

client a 1.png


Cordialement,
 

surchat

XLDnaute Occasionnel
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?
 

Discussions similaires

Statistiques des forums

Discussions
313 194
Messages
2 096 094
Membres
106 495
dernier inscrit
dylan.44