Discussion :

[miniboom]

Bonjour à tous,

Je suis très novice en vba mais pas en programmation. Je suis actuellement ce tuto : https://www.bonbache.fr/inserer-des-...excel-319.html

Il y propose une méthode de tri pour que l'ajout de rendez vous soit automatiquement trié dans le bon ordre, mais la macro Trier est déjà présente, il ne l'explique pas et elle renvoie le message d'erreur 438
... et je ne la comprends pas

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 Trier()
'
' Trier Macro
'
 
'
    Range("D4").Select
    ActiveWorkbook.Worksheets("Liste_rv").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste_rv").Sort.SortFields.Add2 Key:=Range("D4:D7" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'ça plante ici
    With ActiveWorkbook.Worksheets("Liste_rv").Sort
        .SetRange Range("B3:E1000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub

Si l'un d'entre vous peut soit m'expliquer soit aiguiller mes recherches...

En vous remerciant par avance,
Miniboom

[Yves_VBA]

Miniboom,

dans la ligne suivante :

ActiveWorkbook.Worksheets("Liste_rv").Sort.SortFields.Add2 Key:=Range("D4:D7" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'ça plante ici

remplace "Add2" par "Add"

C'est une erreur dans le fichier du site bonbache.fr que tu utilises (je l'ai téléchargé cet exemple et j'obtiens la même chose).

Yves

[miniboom]

Merci beaucoup Yves, nous aurons surement l'occasion de nous recroiser prochainement

Si je pouvais exagérer et te demander pourquoi choisir le Range : "D4 : D7"? Je ne comprends pas très bien d'où ça sort

[Yves_VBA]

miniboom,

je te joins ici le code définitif qui fonctionne chez moi
ps: j'ai du faire quelques ajustements (noms d'onglets Excel entre double quotes ("") et non entre '').
J'espère que ça pourra t'aider.
Pas mal de petites erreurs sur le site en fait, et du coup c'est difficile à suivre

Sinon après toutes ces corrections, l'exemple et plutôt sympa et pourrait servir

Yves

[sysy62000]

Bonjour,

Je viens de m'inscrire, je vais suivre une formation VBA en novembre, je trouve très intéressant de pouvoir écrire une "programme" et cliquer sur un bouton pour exécuter, mais c'est tout de même difficile. J'ai suivi la procédure sur le site Bonache.fr et j'avais aussi des difficultés pour exécuter le fichier j'avais aussi une erreur. J'ai téléchargé votre fichier et cela fonctionne si l'on travaille que sur une année, par contre dés que l'on travail sur 2 années exemple en année scolaire donc de septembre 2019 à juin 2020 , tous les rdv que j'avais inscris en 2019 vont aussi s'inscrire en 2020 et inversement ils s'effacent dés que je repasse en 2019. J'ai demandé sur le site Bonache.fr si il pouvait m'expliquer et m'aider car ça n'est pas facile pour moi de comprendre pour le moment des macros un peu plus complexe et il refuse. Pourriez-vous m'apporter votre aide ?
Merci d'avance de votre réponse