Discussion :

[Aooka]

Bonjour à tous,


Je vous explique, j'ai créer une feuille excel, et dedans j'ai placé 4 tableaux basique. Je souhaite créer 4 formes auxquels j'affecte des macros afin d'ajouter des lignes à la fin des tableaux. Ni plus ni moins, cependant n'y connaissant pas grand chose au VBA bah je galère et ça ne marche pas tout le temps comme je le souhaite. Je vais vous joindre quelques screenshot afin que vous com)preniez le problème et si jamais vous pouviez me donner un ptit coup de pouce et bien sa serait super sympa !

Ma feuille principale :


Quand j'appuis sur "Ajouter Caisse Standard" ou bien "Ajouter Caisse Virtuelle" tout marche très bien une ligne est ajouté au tableau. (sauf s'il n'y a qu'une seule ligne dans les tableaux)

Et donc le message d'erreur qui s'affiche quand je fais par exemple "Ajouter une PickupBox" :


Voici le code que j'utilise pour les 4 boutons :

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
23
24
25
26
27
28
Sub AjoutCaisseStandard()
Dim derligne As Integer
derligne = Range("A" & Rows.Count).End(xlUp).Row
 
Cells(derligne, "A").Select
Selection.Insert
End Sub
Sub AjoutPickupBox()
Dim derligne As Integer
derligne = Range("D" & Rows.Count).End(xlUp).Row
 
Cells(derligne, "D").Select
Selection.Insert
End Sub
Sub AjoutTVM()
Dim derligne As Integer
derligne = Range("F" & Rows.Count).End(xlUp).Row
 
Cells(derligne, "F").Select
Selection.Insert
End Sub
Sub AjoutCaisseVirtuelle()
Dim derligne As Integer
derligne = Range("H" & Rows.Count).End(xlUp).Row
 
Cells(derligne, "H").Select
Selection.Insert
End Sub

Je ne sais donc pas comment m'y prendre pour simplement ajouter des lignes par pression sur mes boutons d'ajouts et que sa amrche quelque soit le nombre de lignes... Si vous pouvez m'aider.

Merci d'avance pour votre aide,
Bien Cordialement,

[Dodo9714]

afin d'ajouter des lignes à la fin des tableaux

Bonjour,
La raison pour laquelle vous souhaitez ajouter des lignes c'est pour recopier le format du tableau, ainsi que les formules s'il y en a?
Pour ce cas, pas besoin de vba, il suffit de mettre tes tableaux sous forme de tableau automatique d'Excel.

[Aooka]

Je souhaite simplement ajouter une ligne simple sans rien dedans au tableau qui sera remplis manuellement. De plus, je ne connais pas les tableaux automatique j'essaye de regarder ça. mais le mieux serait de garder les boutons.

Merci pour votre réponse,
Martin


Edit: j'ai essayé ce code pour le bouton "Ajouter une PickupBox" mais ça ne amrche pas ça n'ajoute aucune ligne"

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
Sub AjoutPickupBox()
Dim vnom As String, vrech As Range, derlign As Long
'nom du tableau
vnom = "PickupBox"
'je recherche le nom dans la colonne A
Set vrech = Columns(1).Find(vnom)
'si je trouve le nom alors
If Not vrech Is Nothing Then
 'je récupère le n° de ligne de la fin du tableau correspondant
 derlign = Range("D" & vrech.Row).End(xlDown).Row + 1
 
 
'Tableau 1
'faire une nouvelle ligne
Range("D" & derlign).EntireRow.Insert Shift:=xlDown
'copier la ligne du dessus
Range("D" & derlign).Offset(-1, 0).EntireRow.Copy Cells(derlign, 1)
On Error Resume Next
'effacer le contenu de la nouvelle ligne mais garder la forme
Range("D" & derlign).EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub

[Dodo9714]

Je souhaite simplement ajouter une ligne simple sans rien dedans au tableau qui sera remplis manuellement. De plus, je ne connais pas les tableaux automatique j'essaye de regarder ça. mais le mieux serait de garder les boutons.

Merci pour votre réponse,
Martin

Vous allez sur "mettre sous forme de tableau" pour chaque tableau et vous sélectionnez le format que vous voulez.
Lorsque vous remplirez votre tableau, Excel mettra à jour automatiquement le format de votre cellule et rajoutera les formules de calculs s'il y en a.