Problème vba tableau dynamique

**paulmarc** · 06/07/2021, 15h52

Bonjour

J'ai un problème j'ai un inventaire lorsque je fais un ajout avec le Bt ajouter un article
l'ajout ne va pas dans le tableau dynamique il va à la ligne suivante et comment fait pour après mon ajout ou un nouvel article cela se met par ordre alphabétique automatiquement
UserForm1 = ajout
UserForm2 = modifier
module14 15 16
merci

**ChristianBosch** · 06/07/2021, 17h01

Salut, tu as déjà des colonnes filtrée, voila ce que j'obtiens avec l'enregistreur de macro :

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
        Add2 Key:=Range("Tableau5[[#All],[Article]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub

Ça filtre les articles de A a Z, tu peux faire un call à cette macro après avoir inséré ton nouvel article.

**paulmarc** · 06/07/2021, 17h59

merci de ta réponse
tu me dis de faire un call à cette macro après avoir inséré ton nouvel article.

mon module 15

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub recherche()
'rechercher dans la feuil catalogue, le contenu de la feuil gestion rangé I10
Application.ScreenUpdating = False
Sheets("Catalogue").Select
Dim Cellule As Range
Set Cellule = Range("A:A").Find(what:=Sheets("Gestionnaire du magasin").Range("I10").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Cellule Is Nothing Then Cells(Cellule.Row, Cellule.Column).Select
 
 
ActiveCell.Select
ActiveCell = UserForm2.TextBox11.Value
 
' on ajoute a la commande  ''Bt ajout''
ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) + UserForm2.TextBox2.Value
 
 
'''''''''''''''''''''''''''On additionne chaque sortie de stock-sortie_magasin ''''''''''''''''
ActiveCell.Offset(0, 4) = ActiveCell.Offset(0, 4) + Val(UserForm2.TextBox4.Value)
 
 
Sheets("gestionnaire du magasin").Select
Application.ScreenUpdating = True
MsgBox "Modification Effectuer!"
Unload UserForm2
 
End Sub
-------------------------------
Sub Macro30()
'
' Macro30 Macro
'
 
'
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
        Add2 Key:=Range("Tableau5[[#All],[Article]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub

Ça ne marche pas je ne sais pas où le déposer merci

**ChristianBosch** · 08/07/2021, 10h14

Dans ta macro "recherche" tu ajoute après avoir fais ta mise a jour un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call macro30

comme ceci :

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
Sub recherche()
'rechercher dans la feuil catalogue, le contenu de la feuil gestion rangé I10
Application.ScreenUpdating = False
Sheets("Catalogue").Select
Dim Cellule As Range
Set Cellule = Range("A:A").Find(what:=Sheets("Gestionnaire du magasin").Range("I10").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Cellule Is Nothing Then Cells(Cellule.Row, Cellule.Column).Select
 
 
ActiveCell.Select
ActiveCell = UserForm2.TextBox11.Value
 
' on ajoute a la commande  ''Bt ajout''
ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) + UserForm2.TextBox2.Value
 
 
'''''''''''''''''''''''''''On additionne chaque sortie de stock-sortie_magasin ''''''''''''''''
ActiveCell.Offset(0, 4) = ActiveCell.Offset(0, 4) + Val(UserForm2.TextBox4.Value)
 
 call macro30
 
Sheets("gestionnaire du magasin").Select
Application.ScreenUpdating = True
MsgBox "Modification Effectuer!"
Unload UserForm2
 
End Sub

**paulmarc** · 08/07/2021, 14h50

Merci mais il y a une erreur lorsque je veut faire une modification

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
Sub Macro30()
'
' Macro1 Macro
'
 
'
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _       erreur
        Add2 Key:=Range("Tableau5[[#All],[Article]]"), SortOn:=xlSortOnValues, _               erreur
        Order:=xlAscending, DataOption:=xlSortNormal[/COLOR]                                        erreur
    With ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort[/COLOR]
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub

et l'ajout ne va pas dans mon tableau !!

**ChristianBosch** · 08/07/2021, 15h01

Je n'ai pas compris

**paulmarc** · 08/07/2021, 15h57

Désolée

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
Sub Macro30()
'
' Macro1 Macro
'
 
'
ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _               erreur
Add2 Key:=Range("Tableau5[[#All],[Article]]"), SortOn:=xlSortOnValues, _                           erreur
Order:=xlAscending, DataOption:=xlSortNormal                                                                  erreur
With ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort[/COLOR]
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
 
End Sub

j'ai les 3 lignes erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _               erreur
Add2 Key:=Range("Tableau5[[#All],[Article]]"), SortOn:=xlSortOnValues, _                           erreur
Order:=xlAscending, DataOption:=xlSortNormal

et comment faire pour qu'après l'ajout elle se met directement en ordre alphabétique

merci
et l'ajout ne va pas dans mon tableau !!

**ChristianBosch** · 08/07/2021, 16h14

C'est quoi l'erreur ? quel message ?

**paulmarc** · 08/07/2021, 16h27

Désolée je m'explique mal.

lorsque je fait un nouvel article il ne va toujours pas dans le tableau dynamique
et lorsque je fait une modification d'article cela me fait erreur surlignée en jaune au 3 lignes si dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields.
Add2 Key:=Range("Tableau5[[#All],[Article]]"), SortOn:=xlSortOnValues, 
Order:=xlAscending, DataOption:=xlSortNormal

dans la macro30 que j'ai crée

et mis Call Macro30

dans la macro recherche

merci encore de ta patience.

**ChristianBosch** · 08/07/2021, 16h56

Non mais d'accord j'ai bien compris que tu avais une erreur mais tu as bien un message lorsque l'erreur apparait du style : Erreur : Objet requis

**paulmarc** · 09/07/2021, 12h36

bonjour et merci

je n'est plus d'erreur merci

, et comment faire pour que cela se classe par ordre alphabétique automatiquement ,après un ajout ou une modification.
merci

**ChristianBosch** · 09/07/2021, 14h27

Envoyé par paulmarc

bonjour et merci

je n'est plus d'erreur merci

, et comment faire pour que cela se classe par ordre alphabétique automatiquement ,après un ajout ou une modification.
merci

tu fais call macro30 dans le script après l'enregistrement de ta nouvelle entrée tableau.

**paulmarc** · 12/07/2021, 09h53

Bonjour merci de attention

j'ai bien créé la marco

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
Option Explicit
 
Sub Macro29()
'
' Macro1 Macro
'
 
'
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort.SortFields. _
        Add2 Key:=Range("Tableau5[[#All],[Article]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Catalogue").ListObjects("Tableau5").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub

dans la macro recherche

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 recherche()
'rechercher dans la feuil catalogue, le contenu de la feuil gestion rangé I10
Application.ScreenUpdating = False
Sheets("Catalogue").Select
Dim Cellule As Range
Set Cellule = Range("A:A").Find(what:=Sheets("Gestionnaire du magasin").Range("I10").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Cellule Is Nothing Then Cells(Cellule.Row, Cellule.Column).Select
 
 
ActiveCell.Select
ActiveCell = UserForm2.TextBox11.Value
 
' on ajoute a la commande  ''Bt ajout''
ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) + Val(UserForm2.TextBox2.Value)
 
 
'''''''''''''''''''''''''''On additionne chaque sortie de stock-sortie_magasin ''''''''''''''''
ActiveCell.Offset(0, 4) = ActiveCell.Offset(0, 4) + Val(UserForm2.TextBox4.Value)
 
 Call marco29        erreur cela devient jaune pas de message juste la couleur jaune
 
 
Sheets("gestionnaire du magasin").Select
Application.ScreenUpdating = True
MsgBox "Modification Effectuer!"
Unload UserForm2
 
End Sub

avec le bt ajout cela s'enregistre mais cela ne se mais pas en ordre alphabétique et lorsque je fait une modification la cela deviens jaune dans mon module 15(module recherche) erreur en jaune sans message

merci

**ChristianBosch** · 12/07/2021, 11h25

Salut, ca vient du fait que c'est un appel, essaye de lancer uniquement la macro de mise en forme

**paulmarc** · 12/07/2021, 12h40

Merci de ta réponse rapide mais je ne comprend pas

c'est un appel de quoi ?
essaye de lancer uniquement la macro de mise en forme cela veut dire quoi
excuse moi de toute c'est question
merci

**ChristianBosch** · 12/07/2021, 15h37

Dans une macro tu peux faire "un appel" a une autre macro avec exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call macro1

Et quand tu fais tourner ta macro principal, si il y a des problèmes dans la macro appelée tu ne saura pas a quelle ligne de la macro appelée.

Il faut donc que au lieu de faire un appel dans la macro principale, tu fasse tourner la macro appelée directement. Ici ta macro29.

Problème vba tableau dynamique

Macros et VBA Excel

Discussions similaires

Partager

Partager