renumérotation colonne

P

Peace

Guest
Bonjour,

J'ai une base de données avec une colonne A. cette colonne est remplie de chiffre de 1 à 20. Comment faire pour renuméroter cette colonne de 1 à 20 à partir du code VBA ?. Merci pour la réponse car cela me permettre de renuméroter ma base chaque fois que j'en aurais besoin.

salutations amicales au forum

Peace


:lol:
 

Marc77

XLDnaute Occasionnel
Bonsoir Peace et le forum

Je ne sais pas si j'ai bien compris ta demande.

Un fichier qui ecrémente la colone A de 1 a 20

A+ Marc [file name=renupeace.zip size=7643]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/renupeace.zip[/file]
 

Pièces jointes

  • renupeace.zip
    7.5 KB · Affichages: 18

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour Peace, Mark, le Forum


J'ai regardé un peu la proposition de Mark, c'est une solution toute à fait correcte.

On peut un petit peu l'optimiser comme ceci :

Sub Macro1()

   
With Range('A1')
        .Value = 1
        .AutoFill Destination:=Range('A1:A20'), Type:=xlFillSeries
   
End With

End Sub


Par ailleurs on peut aussi le faire avec une boucle dans ce style :

Sub Numerotation()
Dim i As Byte

   
For i = 1 To 20
        Cells(i, 1) = i
   
Next

End Sub


On peut aussi envisager de lancer l'une de ces procédures par une macro évènementielle dans le Private Module de la Feuille en Question au cas où...

Private Sub Worksheet_Activate()
   
With Range('A1')
        .Value = 1
        .AutoFill Destination:=Range('A1:A20'), Type:=xlFillSeries
   
End With
End Sub

(Private Module de FEuille accessible par Click Droit sur l'Onglet puis dans le menu contextuel 'Visualiser le Code'...)

Bon Dimanche
[ol]@+Thierry[/ol]
Bon Dimanche
 

Discussions similaires

Réponses
7
Affichages
462
Réponses
21
Affichages
504

Statistiques des forums

Discussions
312 894
Messages
2 093 380
Membres
105 712
dernier inscrit
CARLO 82