Discussion :

[Matthieu_12]

Bonjour, je souhaiterais bien comprendre le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub question1()
  Dim annee As Integer
  Range("A6").Select
  Do
    annee = Year(Selection.Value)
    If Year(Selection.Offset(1, 0).Value) <> annee Then
      Selection.Offset(1, 0).EntireRow.Insert
      Selection.Offset(2, 0).Select
    Else
      Selection.Offset(1, 0).Select
    End If
  Loop While Selection.Value <> ""
End Sub

Pourriez-vous le commenter ?

Notez que voici le problème dont le code ci-dessus est censé être la solution :

Trier les données dans l'ordre croissant des dates, puis écrire un programme qui permet de d'insérer une ligne vide entre les différentes années.

Je ne vois pas en quoi ça trie quoi que ce soit.

[jerome.vaussenat]

Salut,

donc on est bien d'accord, il n'y a aucune instruction de tri dans ce code.

voila les commentaires

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
21
Sub question1()
  Dim annee As Integer
  Range("A6").Select
 
  'ici on commence une boucle qui va parcourir tout ton tableau jusqu'à trouvé une cellule vide dans la colone A
  Do
    'on mémorise l'année correspondant au contenu de la cellule active
    annee = Year(Selection.Value)
    'on vérifie si l'année de la ligne suivante est égale à l'année de la ligne en cours
    If Year(Selection.Offset(1, 0).Value) <> annee Then
        'si c'est le cas on insère une ligne
      Selection.Offset(1, 0).EntireRow.Insert
      'on se décale de 2 ligness (oui, tu veins d'insérer une ligne vide !
      Selection.Offset(2, 0).Select
    Else
        'si on est sur la même année on passe simplement à la ligne suivante
      Selection.Offset(1, 0).Select
    End If
    'fin de la boucle
  Loop While Selection.Value <> ""
End Sub

J'ajoute un commentaire :
Moins tu .select dans ton code, mieux c'est en terme de rapidité d'exécution.

GG

[halaster08]

Notez que voici le problème dont le code ci-dessus est censé être la solution :

Trier les données dans l'ordre croissant des dates, puis écrire un programme qui permet de d'insérer une ligne vide entre les différentes années.

Je ne vois pas en quoi ça trie quoi que ce soit.

D'après l'énoncé le tri n'est pas dans le programme, il est fait avant