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 :

Excel VBA Bouton pour Ajouter données


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Janvier 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2013
    Messages : 2
    Par défaut Excel VBA Bouton pour Ajouter données
    Bonjour !

    Novice en VBA, je m'inscris sur ce forum car je suis désespérée au sujet de de la construction d'un logiciel commercial sous excel...

    Je dispose d'un tableau avec une liste de boissons avec leur prix associés.
    J'ai donc créé un userform pour mettre un bouton permettant d'ajouter un nouveau produit, accompagné de son prix.
    Cependant, ce bouton ne fonctionne pas, cela fait plusieurs jours que je reste bloquée !


    Merci d'avance pour votre aide.

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Citation Envoyé par niarcks Voir le message
    Cependant, ce bouton ne fonctionne pas, cela fait plusieurs jours que je reste bloquée !
    Si tu mettais le code du bouton sur le forum, ce serait plus facile, non ? Comment voulez-vous que l'on devine si vous ne donnez pas plus d'informations ?

    Par ne fonctionne pas c'est quoi ? Message d'erreur ? Le résultat n'est pas celui attendu ?

    Le Père Noël a encore oublié la boule de cristal cette année.

    Philippe

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Janvier 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2013
    Messages : 2
    Par défaut
    Voici la portion de code posant problème, ce code ets associé au userform pourle bouton Ajouter.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    Private Sub Prixajout_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     
    If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
    End Sub
    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     
     
    If Prixajout.Value = "" Or Nomajout = "" Then
    BoutonAjout.Visible = False
    Else
    BoutonAjout.Visible = True
    End If
    End Sub
     
    Private Sub BoutonAjout_Click()
    Prixajout = Format(Prixajout, "currency")
     
    nblignes = Application.CountA(Sheets("Produits").Range("B4:A1000"))
     
    For i = 1 To nblignes + 1
    If Cells(i, 1) = Nomajout.Value Then
    MsgBox "Veuillez changer de nom car cette boisson existe déja"
    Nomajout.Value = ""
    Prixajout.Value = ""
     
    Exit Sub
    End If
    Next
    Range("modele2").Copy
    Range("B4").Offset(nblignes, 0).Value = Nomajout.Value
    Range("B4").Offset(nblignes, 0).PasteSpecial xlPasteFormats
     
    Range("modele").Copy
    Range("B4").Offset(nblignes, 1).Value = Prixajout.Value
    Range("B4").Offset(nblignes, 1).PasteSpecial xlPasteFormats
     
    Nomajout.Value = ""
    Prixajout.Value = ""
     
    End Sub
    Et le module censé correspondre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub BoutonAjout_Cliquer()
    Ajout.Show
    End Sub
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [Toutes versions] Ajout d'un bouton pour récupérer données d'un fichier externe
    Par Serenay dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 22/04/2015, 14h52
  2. [XL-2010] Excel 2010_procédure VBA pour ajout données puis reclassement par ordre
    Par petitou2002 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 05/12/2014, 19h02
  3. Bouton pour ajouter un lien hypertexte dans un champ
    Par Fredo67 dans le forum VBA Access
    Réponses: 2
    Dernier message: 22/01/2008, 11h43
  4. Réponses: 2
    Dernier message: 08/09/2006, 21h32
  5. requête pour ajouter données à colonne
    Par sarah67 dans le forum Access
    Réponses: 12
    Dernier message: 21/02/2006, 11h48

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