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

Version imprimable

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:

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

Bonjour et bienvenue (un peu tardive),

Une piste parmi d'autres:

Code:

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

Merci Alain c'est parfait

Citation:

Envoyé par AlainTech

Bonjour et bienvenue (un peu tardive),

Une piste parmi d'autres:

Code:

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

:lol: