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

RoyalP · 15 Décembre 2016

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 · 15 Décembre 2016

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 · 15 Décembre 2016

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

RoyalP · 15 Décembre 2016

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 · 15 Décembre 2016

Bonjour

En VBA 30 12 1899 correspond à 0

Vérifie ta variable

Paf · 15 Décembre 2016

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 · 15 Décembre 2016

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.

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

RoyalP

XLDnaute Occasionnel

Pièces jointes

Paf

XLDnaute Barbatruc

RoyalP

XLDnaute Occasionnel

RoyalP

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

RoyalP

XLDnaute Occasionnel

Discussions similaires