excel assigner tableau à macro Résolu

Question

Bonjour, 


Avant toute chose j'utilise excel 2010.

J'ai un tableau réunissant des stocks de livres et j'aimerais, à l'aide d'une macro rattachée à ce tableau, pouvoir ajouter/supprimer des ouvrages dans le tableau. 

Ce qui me pose problème est le rattachement du tableau à la macro: comment faire en sorte que les deux soient liés (exemple: que je puisse entrer un ouvrage, son auteur et son prix à l'aide de la macro et que l'ouvrage se rajoute à la fin du tableau ensuite)?

Le code assigné à la macro est pour le moment celui-ci:



Private Sub CommandButton1_Click()
Sheets("stock").Select

Range("B5").Select

Do
If ActiveCell.Value = "" Then
GoTo archiver
End If

If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until ActiveCell.Value = ""

archiver:
ActiveCell.Value = Nouvelle_Commande!TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Nouvelle_Commande!TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Val(Nouvelle_Commande!TextBox3)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Val(Nouvelle_Commande!ComboBox1)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Val(Nouvelle_Commande!TextBox4)

Nouvelle_Commande.Hide
Sheets("Stock").Select

End Sub




Cordialement.

michel_m · Answer

Bonjour

ajoute un nouvel ouvrage ans la feuille(stock") à la fin du tableau ; Essaies:
Private Sub CommandButton1_Click()
Dim lig As Long
lig = Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1

With Sheets("stock")
    .Cells(lig, 2) = Me.TextBox1
    .Cells(lig, 3) = Me.TextBox2
    .Cells(lig, 3) = Val(Me.TextBox3)
    .Cells(lig, 3) = Val(Me.ComboBox1)
    .Cells(lig, 3) = Val(Me.TextBox4)
    .Activate
End With
 Unload Nouvelle_Commande

End Sub

Excel assigner tableau à macro

1 réponse

Discussions similaires

Newsletters