XL 2010 [Résolu] Pourquoi sur ma page d'accueil !!!

RoyalP

XLDnaute Occasionnel
Hello, je suis tjrs en train de fignoler mon petit gestionnaire de rendez / Contact mais la je suis tombé sur un OS !!!!

Le programme m'enregistre bien mes données dans ma page bdd_rdv mais le probleme c'est qu'il me duplique aussi le contenu sur la page d'accueil alors que je ne lui demande pas !!!!!

Je suis sur que le probléme doit etre tout béte a trouver mais moi j'y suis depuis 2 h ce matin et pas moyen d'y voir clair , en plus je me tape des ouvriers bordéliques et bruyants chez le voisin !!!!!

Je vous poste mon fichier ca vous parlera plus.

ps: un immense merci a JB pour ce post que je me sert et qui marche a merveille

https://www.excel-downloads.com/thr...ve-ajout-modification.20013218/#post-20100893

Merci d'avance.
 

Pièces jointes

  • Classeur1.xlsm
    179.7 KB · Affichages: 60

Paf

XLDnaute Barbatruc
bonjour,

dans Private Sub Label_date_Change() de l'USF Rendez_Vous, les écritures dans le classeur ne sont pas référencées à une feuille, les données sont donc écrites dans la feuille courantes.

VB:
L = Sheets("BDD_RDV").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = Day(date_enreg) ' <= écriture dans la feuille courante

A+
 

RoyalP

XLDnaute Occasionnel
j'ai bien modifier le code
Private Sub Label_date_Change()

L = Sheets("BDD_RDV").Range("a65536").End(xlUp).Row + 1
Sheets("BDD_RDV").Range("A" & L).Value = Day(date_enreg)
Sheets("BDD_RDV").Range("B" & L).Value = Month(date_enreg)
If CheckBox_repeter.Value = True Then
Sheets("BDD_RDV").Range("C" & L) = "Toutes"
Else
Sheets("BDD_RDV").Range("C" & L) = Year(date_enreg)
End If
Sheets("BDD_RDV").Range("C" & L).Value = Year(date_enreg)
Sheets("BDD_RDV").Range("D" & L).Value = Year(date_enreg)
Sheets("BDD_RDV").Range("E" & L).Value = TextBox_initiales.Value
no_couleur = ComboBox_couleurs.ListIndex
If no_couleur = -1 Then no_couleur = ""
Sheets("BDD_RDV").Range("E" & L) = no_couleur
Sheets("BDD_RDV").Range("F" & L) = TextBox_notes.Value
End Sub

ca fonctionne mais je ne comprend pas pourquoi quand je crée un rendez vous il me met dans la bdd_rdv des dates qui n'ont rien a voir , genre le 30 12 1899 !!!!! alors qu'au dessus il me met bien la bonne date et celle ci s'ajoute a la suite !!!! , un truc de dingue
 

Paf

XLDnaute Barbatruc
re,

dans Private Sub UserForm_Initialize(), la ligne Label_date.Value = Sheets("BDD_RDV").Range("B1") modifie la textbox Label_date ce qui va déclencher Private Sub Label_date_Change() et à ce moment là, la variable date_enreg est vide, ce qui provoque des dates incohérentes.

Si vous ne voulez enregistrer qu'avec le bouton Enregistrer Le Rendez Vous, supprimer le code de Private Sub Label_date_Change() ( et même Private Sub Label_date_Change() entièrement).

A+

Edit bonjour Chris
 

Statistiques des forums

Discussions
311 722
Messages
2 081 930
Membres
101 843
dernier inscrit
Thaly