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

[RoyalP]

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.

 

[Paf]

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.

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

A+

 

[RoyalP]

HO LA BURNE !!!!! Merci PAf je vais corrigé ca de suite, c'est plus calme les ouvriers sont partis manger lool

 

[RoyalP]

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

 

[chris]

Bonjour

En VBA 30 12 1899 correspond à 0

Vérifie ta variable

 

[Paf]

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

 

[RoyalP]

LOOL je viens de me rendre compte qu'en faite la sub ne servait strictement a rien !!! je sais meme pas pourquoi j'ai voulu cette sub !!!
Merci en tout cas pour vos aides precieuses.