Explication ligne de code Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
R
RIRI91
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 26 novembre 2013
Version d'Excel : 2010

Message par RIRI91 » 21 décembre 2013, 11:02

Bonjour,

Je suis novice dans le VBA, mais j'essaye de progresser.
J'ai récupérer une ligne de code, mais je ne comprend pas la signification et ce que ça fait.

Merci pour vos lumières.

Range("A5:C" & .Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciation reçue : 1
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 21 décembre 2013, 11:07

Bonjour


La zone entre A5 et C (première ligne vide de la colonne A - celle après des données) est effacée
Image
R
RIRI91
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 26 novembre 2013
Version d'Excel : 2010

Message par RIRI91 » 21 décembre 2013, 11:10

Merci, pour cette explication,

Si je peut encore abusé de votre savoir?

ActiveWorkbook.Worksheets("A commander").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("A commander").Sort.SortFields.Add Key:=Range("C5") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("A commander").Sort
.SetRange Range("A5:C" & Range("A" & Rows.Count).End(xlUp).Row)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Merci vraiment.
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciation reçue : 1
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 21 décembre 2013, 11:25

Bonjour

C'est juste un tri du plus petit au plus grand de la zone A5:C (ligne de la dernière cellule non vide de la colonne A)

La clé de tri est la cellule C5
Image
R
RIRI91
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 26 novembre 2013
Version d'Excel : 2010

Message par RIRI91 » 21 décembre 2013, 11:44

Es ce qu'il n'y aurait pas une façon plus simple de faire un tri du plus petit au plus grand?
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciation reçue : 1
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 21 décembre 2013, 11:59

Bonjour

Bien sur quand le tri est simple on peut utiliser la méthode 2003
Sub Tri()
  With Sheets("A commander")
    .Range("A5:C" & .Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=.Range("C5"), order1:=xlAscending, dataoption1:=xlSortTextAsNumbers, header:=xlNo
  End With
End Sub
Mais cela n'a aucune importance, c'est transparent pour l'utilisateur
Image
R
RIRI91
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 26 novembre 2013
Version d'Excel : 2010

Message par RIRI91 » 21 décembre 2013, 12:07

Merci.

J'espère ne pas vous déranger avec mon ignorance. j'apprend. :oops:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • explication code
    par JeremyW » 28 novembre 2013, 17:30 » dans Excel - VBA
    5 Réponses
    255 Vues
    Dernier message par JeremyW
    29 novembre 2013, 11:35
  • Explication code
    par emma_38 » 29 septembre 2015, 11:19 » dans Excel - VBA
    1 Réponses
    179 Vues
    Dernier message par frangy
    29 septembre 2015, 11:44
  • Explication code
    par Dehbi » 3 janvier 2018, 09:35 » dans Excel - VBA
    3 Réponses
    70 Vues
    Dernier message par gmb
    3 janvier 2018, 10:03
  • Explication code
    par aude21 » 22 mai 2017, 11:12 » dans Excel - VBA
    8 Réponses
    126 Vues
    Dernier message par aude21
    22 mai 2017, 16:30
  • Explication code SVP...
    par atlonia » 5 mars 2019, 23:40 » dans Excel - VBA
    2 Réponses
    36 Vues
    Dernier message par atlonia
    6 mars 2019, 01:04
  • Explication d'un Code VBA
    par calounne » 22 mai 2017, 19:44 » dans Excel - VBA
    4 Réponses
    145 Vues
    Dernier message par calounne
    24 mai 2017, 10:49