Affichage listbox si date = mois en cour

Bonjour,

je souhaiterai afficher des données dans la listbox (lst_recep_mois) si la date d'échéance correspond au mois en cour qui ce trouve dans la feuille BDD COMMANDES. j'ai essayer plusieur code mais en vain...

Merci

Bonjour Rocca, bonjour le forum,

Il me semble que tu aurais pu au moins nous indiquer où se trouvait cette fameuse listbox. Pour ma part je ne l'ai pas trouvée...

Désolé c'est celle ci

je me permet de relancé :)

Re,

si la date d'échéance correspond au mois en cour qui ce trouve dans la feuille BDD COMMANDES

Ok mais ce n'est pas clair. De quelle date s'agit-il ? Fais un effort car nous on a pas le nez dedans.

Tous ce passe dans l'USERFORM4

si la date "DELAI INITIAL" qui ce trouve en colonne H de la feuille BDD COMMANDE = le mois en cour

exemple:

si "delai initial" = mois en cour ALORS aficher données dans listbox "lst_recep_mois"

Re,

Ha ben tu vois, quand tu veux... Je regarde ça...

Re,

En pièce jointe ton fichier modifié. J'ai :
- Défini le nombre de colonnes de la listbox lst_recep_mois = 5
- Modifié deux dates dans la colonne H de l'onglet BDD COMMANDES pour tester
- Modifié le code (sinon je n'y arrive pas. À mon âge on a ses petites manies...)

Il ne te reste plus qu'à :
- Alimenter les deux dernières colonne de la ListBox
- Gérer la largeur des colonnes...

super merci ThauTheme c'est exactement ça !

cependant je m'aperçois que le bouton ajouter (cmd_cmd_ajouter) me retourne une erreur d'execution 91 depuis les modifications

Re,

J'ai commandé sur LAMA ZONE une machine à tirer les vers du nez. Ça tombe bien...

Sur quelle ligne tu as cette erreur !

Private Sub cmd_cmd_ajouter_Click()
Dim Flag As Boolean
Dim Ligne As Integer

MsgBox "Veuillez verifier tous les champs saisie"
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
    'integre le texte au tableau BDD COMMANDES ET CLIENT
    Ligne = OCOM.Range("A456541").End(xlUp).Row + 1
    OCOM.Cells(Ligne, 1) = txt_cmd_num.Value
    OCOM.Cells(Ligne, 2) = txt_cmd_date_achat.Value
    OCOM.Cells(Ligne, 3) = txt_cmd_fabricant.Value
    OCOM.Cells(Ligne, 4) = txt_cmd_produit.Value
    OCOM.Cells(Ligne, 5) = txt_cmd_statut.Value
    OCOM.Cells(Ligne, 6) = txt_cmd_ca.Value
    OCOM.Cells(Ligne, 7) = txt_cmd_accompte.Value
    OCOM.Cells(Ligne, 8) = txt_cmd_delai_initial.Value
    OCOM.Cells(Ligne, 9) = txt_cmd_conf.Value
    OCOM.Cells(Ligne, 10) = txt_cmd_vendeur.Value
    OCOM.Cells(Ligne, 11) = txt_cmd_commentaires.Value
    Ligne = OCLI.Range("A456541").End(xlUp).Row + 1
    OCLI.Cells(Ligne, 1) = txt_clt_nom.Value
    OCLI.Cells(Ligne, 2) = txt_clt_prenom.Value
    OCLI.Cells(Ligne, 3) = txt_clt_mail.Value
    OCLI.Cells(Ligne, 4) = txt_clt_portable.Value
    OCLI.Cells(Ligne, 5) = txt_clt_adresse.Value
    OCLI.Cells(Ligne, 6) = txt_clt_code_postal.Value
    OCLI.Cells(Ligne, 7) = txt_clt_ville.Value
    OCLI.Cells(Ligne, 8) = txt_clt_commentaires.Value
    MsgBox "Les données on bien été ajouté"
'If MsgBox("continuer", vbYesNo, "continuer") = vbYes Then
    Unload UserForm4
    UserForm4.Show 'il me signale l'erreur ici
End If
End Sub

sur la ligne UserForm4. show a la fin de ce code

Re,

Il manque effectivement un End IF après le message "Les Données on été ajoutées"...

Private Sub cmd_cmd_ajouter_Click()
Dim Flag As Boolean
Dim Ligne As Integer

MsgBox "Veuillez verifier tous les champs saisie"
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
    'integre le texte au tableau BDD COMMANDES ET CLIENT
    Ligne = OCOM.Range("A456541").End(xlUp).Row + 1
    OCOM.Cells(Ligne, 1) = txt_cmd_num.Value
    OCOM.Cells(Ligne, 2) = txt_cmd_date_achat.Value
    OCOM.Cells(Ligne, 3) = txt_cmd_fabricant.Value
    OCOM.Cells(Ligne, 4) = txt_cmd_produit.Value
    OCOM.Cells(Ligne, 5) = txt_cmd_statut.Value
    OCOM.Cells(Ligne, 6) = txt_cmd_ca.Value
    OCOM.Cells(Ligne, 7) = txt_cmd_accompte.Value
    OCOM.Cells(Ligne, 8) = txt_cmd_delai_initial.Value
    OCOM.Cells(Ligne, 9) = txt_cmd_conf.Value
    OCOM.Cells(Ligne, 10) = txt_cmd_vendeur.Value
    OCOM.Cells(Ligne, 11) = txt_cmd_commentaires.Value
    Ligne = OCLI.Range("A456541").End(xlUp).Row + 1
    OCLI.Cells(Ligne, 1) = txt_clt_nom.Value
    OCLI.Cells(Ligne, 2) = txt_clt_prenom.Value
    OCLI.Cells(Ligne, 3) = txt_clt_mail.Value
    OCLI.Cells(Ligne, 4) = txt_clt_portable.Value
    OCLI.Cells(Ligne, 5) = txt_clt_adresse.Value
    OCLI.Cells(Ligne, 6) = txt_clt_code_postal.Value
    OCLI.Cells(Ligne, 7) = txt_clt_ville.Value
    OCLI.Cells(Ligne, 8) = txt_clt_commentaires.Value
    MsgBox "Les données on bien été ajouté"
End If
If MsgBox("continuer", vbYesNo, "continuer") = vbYes Then
    Unload UserForm4
    UserForm4.Show
End If
End Sub

j'ai rajouter le End If, mais maintenant il me fait la meme erreur dans le code du bouton de la feuille (BDD COMMANDE) qui permet d'ouvrir l'userform4

Private Sub DONNEE_Click()
UserForm4.Show 'text surligner en jaune pour signaler l'erreur.
End Sub

Re,

Pas chez moi. Aucun Bug... N'aurais-tu pas changé le nom de l'UserForm4 ?!...

Problème régler j'ai réécris le code et la sa a fonctionner

merci ThauThème :)