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 :

Problème de code dans un UserForm


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 8
    Par défaut Problème de code dans un UserForm
    Bonjour,

    J'ai crée un UserForm avec deux bouton OUIet NON et voici le code que j'ai tapé:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub CommandButton1_Click()
    Sheets("Feuil3").Select
    Range("A1").End(xlDown).Offset(1, 0).Select
    'En fait, j'aimerais que la réponse s'affiche dans la dernière cellule vide de la colonne A
    Selection.Value = "Oui"
    UserForm2.Hide
    UserForm3.Show
    End Sub

    Mais ça beug à la ligne: Range("A1").End(xlDown).Offset(1, 0).Select
    Pourtant j'ai déjà utilisé cette ligne de code dans des procédures et ça marchait très bien

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut ip_flashor et le forum
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CommandButton1_Click()
    Sheets("Feuil3").Range("A" & rows.count).End(xlup)(2)="Oui"
    UserForm2.Hide
    UserForm3.Show
    End Sub
    J'aimepas les Select
    A+

  3. #3
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour Gorfael,

    tu es certain qu'il faut mettre un point entre (xlup) et (2) ?

  4. #4
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut sabzzz et le forum
    Oups À reprendre le code (sans tester), on en arrive vite à des énormités comme celle-ci => je rectifie. et comme vça, plus de preuve
    A+

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 8
    Par défaut
    Salut Gorfael,

    Ton code marche parfaitement! Merci beaucoup.
    Est-ce que tu peux juste me dire pourquoi mon code ne marche pas? Je débute en Vba, j'aimerais donc bien comprendre mes erreurs

    Pardon, et merci à sabzzz aussi^^

    un autre problème avec le code suivant:

    Private Sub TextBox2_Change()
    Sheets("Feuil3").Range("L" & Rows.Count).End(xlUp)(2) = TextBox2.Value
    End Sub

    Mais le problème c'est que à chaque fois que j'écris un commentaire dans le textbox, chaque lettre est mise dans une cellule différente de la colonne L.
    En fait, le code regarde la dernière cellule vide pour chaque lettre (ou chiffre) du commentaire. Or j'aimerais mettre le commentaire entier dans la dernière cellule vide.

  6. #6
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour ip_flashor, Gorfael et à tous,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub TextBox2_Change()
    Application.EnableEvents = False
    Sheets("Feuil3").Range("L" & Sheets("Feuil3").Rows.Count).End(xlUp)(2) = TextBox2.Value
    Application.EnableEvents = True
    End Sub

  7. #7
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 8
    Par défaut
    Bonjour sabzzz

    j'ai toujours le même problème avec ton code

  8. #8
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour ip_flashor,

    ho oui j'ai oublié de te dire qu'il faudrait que tu utilise un autre événement
    tu pourrait prendre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Sub TextBox1_AfterUpdate()

  9. #9
    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
    bonjour ip_flashor,

    si tu utilise un bouton pour valider pas ce pb..

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
     Sheets("Feuil3").Range("L" & Rows.Count).End(xlUp)(2) = TextBox2.Value
    End Sub
    attention isabelle pas oublier les balises autrement

  10. #10
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    merci laetitia , je ne m'en était pas rendu compte, ouff!

  11. #11
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 8
    Par défaut
    Merci de l'avoir fait remarquer Leititia!
    Effectivement, j'utilise un bouton pour valider
    Avez vous une idée alors?

  12. #12
    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
    re, ip_flashor il faudrait savoir exactement ce que tu cherches a faire pour aller plus vite... personnellement pas trop le temps de rester oubli pas egalement les balises!!!

    isabelle fait un travail magnifique sur le forum elle va pouvoir t' aider sans probleme

  13. #13
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour ip_flashor,

    Effectivement, j'utilise un bouton pour valider
    Avez vous une idée alors?
    il faut enlever completement la macro suivante
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub TextBox2_Change()
    Sheets("Feuil3").Range("L" & Rows.Count).End(xlUp)(2) = TextBox2.Value
    End Sub
    et mettre à la place la macro donnée par laetitia
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
     Sheets("Feuil3").Range("L" & Rows.Count).End(xlUp)(2) = TextBox2.Value
    End Sub

  14. #14
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 8
    Par défaut
    d'accord

    En fait, je veux créer un userform qui demande d'entrer 3 informations: l'âge, le salaire et enfin le poste occupé et aimerais que chaque information soit enregistré dans la dernière cellule vide de la colonne associé à une inormation (dans mon cas, c'est la colonne K pour l'age, L pour salaire et M pour poste).

    J'ai donc voulu créer un userform avec 3 textbox chacun demandant une information et un bouton OK. J'aimerais que toutes les infos n'apparaissent dans les cellules que lorsque la personne clique sur le bouton OK.

  15. #15
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 8
    Par défaut
    ça y est ça marche! je n'avais pas bien regardé Leititia vraimenent dsl!!!


    Merciiiiiiii bcppppppppppp à tous et surtout à vous sabzzz et Leititia^^

    Une dernière petite question: Pouvez vous me dire comment déactiver le bouton quitter (la petite croix pour quitter la fenêtre) dans un Userform?

  16. #16
    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
    re, rajoute ce code dans ton user..

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
      If CloseMode = vbFormControlMenu Then Cancel = True
    End Sub
    oubli pas un bouton ou autre!!! pour sortir

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton5_Click()
      Unload Me
    End Sub

  17. #17
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 8
    Par défaut
    Parfait!
    Merci Leititia

Discussions similaires

  1. Problème de code dans les composants Raize
    Par medsoft dans le forum Composants VCL
    Réponses: 4
    Dernier message: 23/05/2012, 16h38
  2. [XL-2003] Problème de formats dans un userform
    Par MarcelG dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 30/03/2010, 14h18
  3. Problème de code dans mes formulaires
    Par domgrondin dans le forum IHM
    Réponses: 4
    Dernier message: 08/06/2007, 18h08
  4. [Formulaire]Problème de code dans un formulaire
    Par modus57 dans le forum IHM
    Réponses: 5
    Dernier message: 10/04/2007, 19h06
  5. [VBA-E] Problème avec ShowModal dans un UserForm
    Par damsmut dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/07/2006, 09h19

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