Problème vba tableau dynamique

Version imprimable

06/07/2021, 14h52
paulmarc

1 pièce(s) jointe(s)

Problème vba tableau dynamique

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

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

Code:

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.

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:

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

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

Code:

call macro30

comme ceci :

Code:

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

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

Code:

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 !!

08/07/2021, 14h01
ChristianBosch

Je n'ai pas compris

Désolée

Code:

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:

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 !!

08/07/2021, 15h14
ChristianBosch

C'est quoi l'erreur ? quel message ?
08/07/2021, 15h27
paulmarc
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:

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.
08/07/2021, 15h56
ChristianBosch

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
09/07/2021, 11h36
paulmarc

bonjour et merci

je n'est plus d'erreur merci :D, et comment faire pour que cela se classe par ordre alphabétique automatiquement ,après un ajout ou une modification.
merci;);)
09/07/2021, 13h27
ChristianBosch

Citation:

Envoyé par paulmarc

bonjour et merci

je n'est plus d'erreur merci :D, 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.

Bonjour merci de attention

j'ai bien créé la marco

Code:

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:

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

12/07/2021, 10h25
ChristianBosch

Salut, ca vient du fait que c'est un appel, essaye de lancer uniquement la macro de mise en forme
12/07/2021, 11h40
paulmarc

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
12/07/2021, 14h37
ChristianBosch

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

Code:

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.