renumérotation colonne

[Peace]

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]

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]

 

[Peace]

Bonjour

Absent quelques jours. Merci pour la réponse. C'est tout à fait ce qu'il me fallait.

Cordialement

Peace 😉

 

[_Thierry]

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