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
Partager