Excel assigner tableau à macro
Résolu
Faradeorn
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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.
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:
- Excel assigner tableau à macro
- Tableau word - Guide
- Trier un tableau excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Imprimer un tableau excel - Guide
- Liste déroulante excel - Guide
1 réponse
Bonjour
ajoute un nouvel ouvrage ans la feuille(stock") à la fin du tableau ; Essaies:
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
