NumeroterUneListe

Retour vers Excel

Renuméroter une liste

Problème : Pouvoir numéroter une liste de cellules en colonne de manière automatique et tant que la colonne d'à côté n'est pas vide

Situation fictive :

• On peut imaginer avoir besoin de cette fonction pour renuméroter de longs tableaux.
• Commencer une série sur un chiffre donné (par Ex: à partir de 108).
  

  Sub Numeroter()
  'Initialisation des valeurs
  MaColonne = ActiveCell.Column
  MaLigne = ActiveCell.Row
  'on demande où on commence MonCompte est de type texte
  MonCompte = InputBox("A quel chiffre commençons-nous ?")
  'tant que la colonne d'à côté n'est pas vide
  While Not IsEmpty(ActiveCell.Offset(0, 1).Value)
    'on remplit la case avec la valeur de MonCompte
    ActiveCell.Value = Val(MonCompte)
    'on incrémente la valeur de MonCompte
    MonCompte = Val(MonCompte) + 1
    'on prépare le saut à la ligne suivante
    Cells(MaLigne, MaColonne).Activate
    MaLigne = MaLigne + 1
    'on descend d'une ligne
    Cells(MaLigne, MaColonne).Activate
  Wend
  End Sub

  Résultat : Télécharger le fichier exemple NumeroterListe

  FIN