Exécution automatique macro

[Bartman]

Bonjour la team,

J'aimerais rendre cette macro automatique à chaque changement d'une des cellules située dans la zone sélectionnée pour la macro mais je n'y arrive, merci de ce que vous pourrez faire pour éclairer mes lanternes
Je précise que je débute en macro...

Voici la macro actuelle

Sub Macro4()
'
' Macro4 Macro
'

'
Range("B6😀15").Select
ActiveWorkbook.Worksheets("Stats").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Stats").Sort.SortFields.Add Key:=Range("C6:C15"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Stats").Sort
.SetRange Range("B6😀15")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Bartman]

Re : Exécution automatique macro

Je vais passer pour un gros naze mais bon pas grave...
Je pige pas ce que je dois faire...
Pour moi c'est du charabia et j'ai du mal à mettre au fonctionnement des macro.

Pour enregistrer ma macro, j'ai juste cliquer sur "enregister une macro" ensuite j'ai fait ma manip (tri de certaines lignes...), puis j'ai fais "arrêter la macro".
Je n'ai donc pas composer moi même la macro, si je dire comme ca..

Maintenant je souhaiterais juste qu'elle soit automatique, mais même avec le lien donné si gentillment par "carcharodon-carcharias", je ne vois pas ce que je dois faire...

Quelqu'un pourrait- me venir en aide?
Merci d'avance de votre pitié... hhihihihihihihihi!

 

[Compte Supprimé 979]

Re : Exécution automatique macro

Salut Bartman

Dans l'éditeur VBA, dans ta feuille "Stats", tu ajoutes le code avec petite modif

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B6:D15")) Is Nothing Then
    ActiveWorkbook.Worksheets("Stats").Sort.SortFields .Clear
    ActiveWorkbook.Worksheets("Stats").Sort.SortFields .Add Key:=Range("C6:C15"), _
             SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Stats").Sort
      .SetRange Range("B6:D15")
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
    End With
  End If
End Sub

A+

 

[Bartman]

Re : Exécution automatique macro

Je dois vraiment être nul...
J'ai fais comme tu m'as dit Bruno, mais ca ne change rien , le tri ne se fait pas automatiquement quand une valeur change...

 

[Compte Supprimé 979]

Re : Exécution automatique macro

Salut Bartman,

Si les valeurs que tu modifies sont dans la feuilles "Stats", c'est ok
En revanche si tu modifies les valeurs dans une autre feuille, c'est ko

Il faut mettre le code dans la feuille ou tu modifies tes valeurs

Sinon, peux-tu nous mettre un exemple de fichier

A+

 

[Bartman]

Re : Exécution automatique macro

J'ai inscris le code dans vba sur la feuille concernée et le tri ne se fait pas voici ce qui apparaît comme message d'erreur... (voir image)
Lien supprimé