Convertir macro en code vba Résolu

Question

Bonjour, 

J'aimerais savoir comment convertir ou traduire une macro excel en code vba
Windows 7   Office 2007.
merci pour votre aide 
Cordialement



Configuration: Windows 7 / Firefox 40.0

Mike-31 · Answer

Bonsoir,

tu peux expliquer ce que tu veux ou donner un exemple, parce que traduire une macro excel en code vba, une macro est déjà écrite en code VBA ou alors il s'agit d'un code très ancien sous Excel 5 je crois ou le code était en Français

jc80 · Answer

Bonjour Micke-31
Merci pour ta réponse
Voila le genre de macro que j'ai enregistrée elle fonctionne très bien , 
mais je pense qu'il y a des termes qui sont inutiles.
C'est là ou je voudrais simplifier.
Mais mes compétences en la matière sont limitées
Si tu peux m'éclairer je suis preneur.
Cordialement

Sub tri()
'
' tri Macro
'

'
    Range("C2:C150").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:C150")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Mike-31 · Answer

Re,

ton code effectivement contient des lignes inutiles pour simplement filtrer ta plage

explique exactement ce que tu veux faire voir jusqu'à quel point il est possible de l'améliorer, et après avoir filtré ta colonne C que veux tu faire

jc80 · Answer

Ci-joint un exemple  raccourci (nombre de colonne) de ce que je veux faire 

 http://www.cjoint.com/c/EIwpmn8YtS1

Mike-31 · Answer

Re,

donc il faut filtrer ta liste colonne C pour avoir tous les benjamin2
puis la colonne B pour les points soit mathieu avec 250 puis guy avec 228 etc ...
au dessous junior, puis senior 1 en premier canard avec 600 puis dupont avec 500 etc ...

es ce normal qu'il y ai un benjamin 1F ou es ce un exemple

jc80 · Answer

Oui c'est cela 
pour le benjamin1F a remplacer par benjamine1

Mike-31 · Answer

Re,

Ok, je suis sur le point de sortir, mais dès mon retour je te fais ce code

jc80 · Answer

OK Merci

Mike-31 · Answer

Re,

bon en D2 colle cette formule

=SOMMEPROD(($B$2:$B$200>=B2)*($C$2:$C$200=C2))

en F2 cette formule, la colonne F pourra être masquée

=C2&SOMMEPROD(($B$2:$B$200>=B2)*($C$2:$C$200=C2))
 
puisque tu as créé un bouton activeX à la place d'appeler le code Tri que tu supprime colle ce code

Private Sub CommandButton1_Click()    With Worksheets("Feuil1")    With .Range("A2:F" & .Range("A65536").End(xlUp).Row)        .Sort key1:=.Item(6, 6), order1:=xlAscending, Header:=xlNo    End With    End WithEnd Sub

jc80 · Answer

Bonjour

J'ai mis en place et cela fonctionne.
Merci pour ton aide
Cordialement

Convertir macro en code vba

10 réponses

Votre réponse