Sujet Précédent Sujet Suivant

Excel assigner tableau à macro

Résolu/Fermé
Faradeorn - 6 janv. 2011 à 13:59
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 6 janv. 2011 à 14:28
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.
A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
6 janv. 2011 à 14:28
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
0