IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Probleme de saisies dans une liste


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    12
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2009
    Messages : 12
    Par défaut Probleme de saisies dans une liste
    Bonsoir à tous,
    voila mon petit soucis, j'ai un USF qui me place dans 10 textbox les valeurs de d'une ligne que je selectionne (colonne par colonne).
    Avec un bouton, je peux modifier ces valeurs :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub CommandButton1_Click()
    With Sheets("BASE-VERO")
    For i = 1 To 10
        If Me.Controls("Textbox" & i) <> "" Then
        .Cells(Lig, i) = Me.Controls("Textbox" & i)
        End If
    Next i
    End With
    Unload UserForm5
    End Sub
    Mon soucis, est que j'aimerais que le textbox2, texbox4 et textbox8 soit toujours en format chiffre, et que le textbox1 soit toujours en format date ....
    Pour les autres, ce sont des commentaires ....
    J'avoue que je suis un peu perdu ....
    Si quelqu'un peut m'aider ...

  2. #2
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonsoir veronique le forum
    tu peus t' orienter sur un truc comme cela!!
    corrigez a la source avant click sur ton bouton

    pour la textbox1 2 methodes

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Not TextBox1 Like "##/##/##" Then
            MsgBox "entrez  au format jj/mm/aa"
            TextBox1 = ""
            Cancel = True
        End If
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(TextBox1) = True Then
    MsgBox "entrez au format jj/mm/aa"
    TextBox1 = ""
    Cancel = True
    End If
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("0123456789/", Chr(KeyAscii)) = 0 Then KeyAscii = 0
    End Sub
    pour les autres textboxs 2 4 8

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
    End Sub
    pour les autres textboxs il faut voir si on peut renter des chiffres dans tes commentaires!!!

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    12
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2009
    Messages : 12
    Par défaut
    Merci pour les formules, je vais tester tout ça ...

Discussions similaires

  1. saisie dans une liste
    Par alsimbad dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/07/2008, 13h35
  2. Probleme de selection dans une liste
    Par supertoms dans le forum VBA Access
    Réponses: 6
    Dernier message: 13/06/2008, 13h38
  3. Probleme d'accés dans une liste en VB.net
    Par lucyole dans le forum VB.NET
    Réponses: 1
    Dernier message: 14/01/2008, 13h05
  4. probleme de selection dans une liste deroulant
    Par biboulou dans le forum IHM
    Réponses: 5
    Dernier message: 04/05/2006, 12h16
  5. [LG]probleme d'ajout dans une liste chainée...
    Par misteryann dans le forum Langage
    Réponses: 5
    Dernier message: 08/03/2004, 20h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo