Supprimer de chiffre impossible dans un formulaire

[Tophe2]

Bonjour le forum

Voilà j'ai un outil qui me permet de saisir des noms avec plein de renseignements, cela fonctionne correctement.

Sauf que je viens de me rendre compte que si je supprime l'onglet "Résultat" le contenu des textbox C1 à C7 il ne le fait pas sur la feuille excel, il ne me permet uniquement de modifier ou changer le chiffre pas de rendre vide la textbox. En clair je n'arrive pas à l'enlever de la feuille excel.

De plus quand je sélectionne la date de l'entretien elle s'affiche sur l'onglet "Résultat" puis " entretien le " sous la forme 01/01/2009 pour ça OK je souhaiterai que sur la feuille excel cela s'affiche Mercredi 30 Septembre 2009.

Cordialement
Christophe.

 

[Tophe2]

Re : Supprimer de chiffre impossible dans un formulaire

Bonjour le forum

N'ayant pas eu de réponse peut être n'ai je pas été suffisamment clair.

Impossile d'effacer le contenu de certaine textbox identifier en vbba "cdbl" je peux modifier le chiffre mais pas l'effacer. Alors que dans les autres non "cdbl" il n'y a aucun PB.
Bonne jourée
Cordialement
Christophe.

 

[JNP]

Re : Supprimer de chiffre impossible dans un formulaire

Bonjour Tophe2 🙂,
Au bout de 10 mn, je n'ai rien trouvé dans ton fichier qui concerne ta question 😱...
Pas d'onglet Résultat
Pas de text box (dans tes 4 USF...) intitulé C1 à C7
Des TextBox identifiées VBA en CDbl ??? en cherchant des conversions, je ne les ai vu que vers la feuille, et non vers l'USF...
TextBox1, que tu converti en CDbl peux être effacé sans problème chez moi...
Bref, 2 km de macro, des contrôles en veux tu en voilà, très belle usine à gaz, mais je doute que quelqu'un prenne des heures (et des aspros...) pour comprendre ton problème 😛!
A mon avis, mets un fichier simplifié avec juste ce qui pose problème, bien explicité, et là, tu auras des réponses 😉.
Bonne journée 😎

 

[Tophe2]

Re : Supprimer de chiffre impossible dans un formulaire

Bonjour JNP et le forum

Fichier un peu plus léger.
L'onglet résultat est sur l'USF qui apparait en cliquant sur le bouton "recherche" c'est les textbox 22 à 28 qui posent problème impossible "chez moi" d'effacer le contenu je peux modifier c'est à dire remplacer par un autre chiffre mais pas laisser vide la texbox.

Private Sub CommandButton2_Click()    'modifie
On Error Resume Next
    If OptionButton4 = True Then
        With Sheets("Feuil1")
            .Cells(Index, 1).Value = CDbl(TextBox1)
            .Cells(Index, 2).Value = TextBox2
            .Cells(Index, 3).Value = TextBox3
            .Cells(Index, 4).Value = TextBox4
            .Cells(Index, 5).Value = CDate(TextBox5)
            '.Cells(Index, 5).Value = TextBox5 ''''''''''''''''''''Efface la formule
            If Me.OptionButton1 Then .Cells(Index, 7).Value = Me.OptionButton1.Caption
            If Me.OptionButton2 Then .Cells(Index, 7).Value = Me.OptionButton2.Caption
            .Cells(Index, 8).Value = ComboBox1 'commune
            .Cells(Index, 9).Value = Format(TextBox7.Value, "0####")  'code
            .Cells(Index, 10).Value = TextBox8
            .Cells(Index, 11).Value = TextBox9
            .Cells(Index, 12).Value = TextBox10
            .Cells(Index, 13).Value = ComboBox2.Value    'qualif.
            .Cells(Index, 14).Value = ComboBox3.Value  'qualification
            .Cells(Index, 15).Value = ComboBox4.Value    'qualif.
            .Cells(Index, 16).Value = ComboBox5.Value  'qualification
            .Cells(Index, 17).Value = TextBox11 ' Email
            '.Cells(Index, 18).Value = CDbl(TextBox12) 'N° de Fiche
            .Cells(Index, 19).Value = ComboBox6.Value  'Secourisme
            .Cells(Index, 20).Value = ComboBox7.Value  'Aquatique
            .Cells(Index, 21).Value = TextBox13 ' CCmpétences
            .Cells(Index, 22).Value = TextBox14 ' Obser 2
            .Cells(Index, 23).Value = ComboBox8.Value  'Structure
            .Cells(Index, 24).Value = ComboBox9.Value  'Prévoir
            [B].Cells(Index, 25).Value = CDate(TextBox15) 'Date d'entretien[/B]
            .Cells(Index, 26).Value = TextBox16 ' Résult Entretien
            .Cells(Index, 27).Value = TextBox17 ' Résult Entretien
            .Cells(Index, 28).Value = TextBox18 ' Résult Entretien
            .Cells(Index, 29).Value = TextBox19 ' Résult Entretien
            .Cells(Index, 30).Value = TextBox20 ' Résult Entretien
            .Cells(Index, 31).Value = TextBox21 ' Résult Entretien
            .Cells(Index, 32).Value = ComboBox10.Value  'SSAN
            .Cells(Index, 33).Value = ComboBox11.Value  'Par
           [B] .Cells(Index, 34).Value = CDbl(TextBox22) ' Crit 1
            .Cells(Index, 35).Value = CDbl(TextBox23) ' Crit 2
            .Cells(Index, 36).Value = CDbl(TextBox24) ' Crit 3
            .Cells(Index, 37).Value = CDbl(TextBox25) ' Crit 4
            .Cells(Index, 38).Value = CDbl(TextBox26) ' Crit 5
            .Cells(Index, 39).Value = CDbl(TextBox27) ' Crit 6
            .Cells(Index, 40).Value = CDbl(TextBox28) ' Crit 7[/B]            .Cells(Index, 42).Value = TextBox30 'Appré Générale
            .Cells(Index, 43).Value = TextBox31 'Rejet
            .Cells(Index, 44).Value = TextBox32 'liste attent
            .Cells(Index, 45).Value = TextBox33 'Eté ou SSAN
            .Cells(Index, 46).Value = TextBox34 ' Juillet
            .Cells(Index, 47).Value = TextBox35 ' Août
            .Cells(Index, 48).Value = TextBox36 'Stage d'Adap
            .Cells(Index, 50).Value = TextBox37 'Avis Anciens
            .Cells(Index, 51).Value = TextBox38 'Voeux
            .Cells(Index, 52).Value = TextBox39 'Diplômes
            .Cells(Index, 53).Value = TextBox40 'Ski
            .Cells(Index, 54).Value = TextBox41 'Mobilité
            .Cells(Index, 55).Value = TextBox42 'Proposition
            .Cells(Index, 56).Value = TextBox43 'Dispo
            .Columns("A:K").AutoFit 'ajuste les colonnes
            .Columns("M:R").AutoFit 'ajuste les colonnes
        End With
    End If

    Me.OptionButton4 = False
   TextBox6.Text = Sheets("Feuil1").Cells(Index, 6).Value
   TextBox29.Text = Sheets("Feuil1").Cells(Index, 41).Value
   Label7.Caption = ""
   Me.CommandButton2.Enabled = False
   'EffaceControl Me
   TextBox2.SetFocus
   Calendar1.Value = Now
End Sub

Ne sachant pas trop quoi enlever pour pas rendre inutilisable le fichier j'ai mis le code ou il y a leprolème (d'après moi).

Tu parles d'usine à gaz, je te rassure l'ancienne était plus imprésionnante mais grace aux conseils et au forum j'ai pu comprendre un peu plus le fonctionnement et en faire une plus petite (encore trop grande pour toi).
Mais si tu as des conseils ou explications pour améliorer je prends.

Merci d'avoir répondu
Cordialement
Christophe.

 

[Tophe2]

Re : Supprimer de chiffre impossible dans un formulaire

Bonjour le forum

Quelqu'un aurait il un avis sur le PB concernant le fait que l'on ne peut pas effacer le contenu du textbox.

Cordialement
Christophe.