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 :

Se positionner sur la dernière ligne vide d'un tableau et pourcentage dans les cellules


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Femme Profil pro
    Pensionnée
    Inscrit en
    Juin 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Pensionnée

    Informations forums :
    Inscription : Juin 2015
    Messages : 2
    Points : 2
    Points
    2
    Par défaut Se positionner sur la dernière ligne vide d'un tableau et pourcentage dans les cellules
    Bonjour,

    Si quelqu'un peut venir à mon secours, je débute en VBA et je rame.

    Voici mon problème, j'ai un USF qui ajoute des produits dans une facture.

    Quand j'ajoute le produit il se positionne en "b1", je voudrais que le produit
    s'ajoute en premier en "B24" et les suivants à la suite du premier, jusqu'à "B67"

    Sachant que les colonnes "B, C, D, E, F, G" doivent suivre le même processus.

    Et second problème, les colonne "E" et "G" contiennent des pourcentages
    quand le contenu s'ajoute, au lieu d'afficher "10%" c'est "0.21" qui s'affiche.

    Je crois avoir tout essayé et lu les messages des forums mais je ne trouve pas.

    Merci

    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
    '***** Correspond au programme du bouton "INSERER PRODUIT"  *****
     
    Private Sub CommandButton1_Click()
    Dim L As Integer
     
    ActiveSheet.Select 'sélectionne la feuille active
    If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
    L = ActiveSheet.Range("b").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
     
     
    Range("B" & L).Value = Label1 'Insère la donnée de la textbox1 dans la colonne B (désignation)
    Range("C" & L).Value = Label2 'Insère la donnée de la textbox2 dans la colonne C (ref article)
    'et à suivre....
    Range("D" & L).Value = TextBox1 'Insère la quantité
    Range("E" & L).Value = Me.ComboBox1 ' insère le % tva
    Range("F" & L).Value = Label3 ' insère le PU htva
    Range("G" & L).Value = TextBox20 ' insère le pourcentage de remise
    End If
     
    Unload Me 'Ferme le formulaire
    A_CHOIX_PRODUIT.Show
    End Sub

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Points : 24 327
    Points
    24 327
    Par défaut
    Bonjour et bienvenue (un peu tardive),

    Une piste parmi d'autres:

    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
    Option Explicit
     
    '***** Correspond au programme du bouton "INSERER PRODUIT"  *****
     
    Private Sub CommandButton1_Click()
      Dim L As Integer
     
      'ActiveSheet.Select 'Inutile
      If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
        With ThisWorkbook.Sheets("LeNomDeLaFeuille")
          L = .Range("b").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
          If L < 24 Then
            L = 24
          End If
     
          .Range("B" & L).Value = Label1 'Insère la donnée de la textbox1 dans la colonne B (désignation)
          .Range("C" & L).Value = Label2 'Insère la donnée de la textbox2 dans la colonne C (ref article)
          'et à suivre....
          .Range("D" & L).Value = TextBox1 'Insère la quantité
          .Range("E" & L).Value = Me.ComboBox1 ' insère le % tva
          .Range("F" & L).Value = Label3 ' insère le PU htva
          .Range("G" & L).Value = TextBox20 ' insère le pourcentage de remise
          .Range("G" & L).NumberFormat = "0.00%"
        End With
      End If
     
      Unload Me 'Ferme le formulaire
      A_CHOIX_PRODUIT.Show
    End Sub
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  3. #3
    Candidat au Club
    Femme Profil pro
    Pensionnée
    Inscrit en
    Juin 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Pensionnée

    Informations forums :
    Inscription : Juin 2015
    Messages : 2
    Points : 2
    Points
    2
    Par défaut Merci Alain c'est parfait
    Citation Envoyé par AlainTech Voir le message
    Bonjour et bienvenue (un peu tardive),

    Une piste parmi d'autres:

    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
    Option Explicit
     
    '***** Correspond au programme du bouton "INSERER PRODUIT"  *****
     
    Private Sub CommandButton1_Click()
      Dim L As Integer
     
      'ActiveSheet.Select 'Inutile
      If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
        With ThisWorkbook.Sheets("LeNomDeLaFeuille")
          L = .Range("b").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
          If L < 24 Then
            L = 24
          End If
     
          .Range("B" & L).Value = Label1 'Insère la donnée de la textbox1 dans la colonne B (désignation)
          .Range("C" & L).Value = Label2 'Insère la donnée de la textbox2 dans la colonne C (ref article)
          'et à suivre....
          .Range("D" & L).Value = TextBox1 'Insère la quantité
          .Range("E" & L).Value = Me.ComboBox1 ' insère le % tva
          .Range("F" & L).Value = Label3 ' insère le PU htva
          .Range("G" & L).Value = TextBox20 ' insère le pourcentage de remise
          .Range("G" & L).NumberFormat = "0.00%"
        End With
      End If
     
      Unload Me 'Ferme le formulaire
      A_CHOIX_PRODUIT.Show
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 12/10/2014, 17h03
  2. Réponses: 8
    Dernier message: 18/11/2006, 13h04
  3. Réponses: 4
    Dernier message: 15/06/2006, 14h31
  4. Parse error: unexpected $ sur la dernière ligne..
    Par zamoto dans le forum Langage
    Réponses: 6
    Dernier message: 01/06/2006, 13h16
  5. [JTable] Insérer à la dernière ligne vide
    Par jamalmoundir dans le forum Composants
    Réponses: 1
    Dernier message: 01/06/2006, 00h15

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