numérotation automatique

[FTHEM]

Salut à tous
je joint mon fichier si quelqu'un peut m'indiquer le code qui me permet lorsque j'inserre une ligne de renuméroter automatiquement mes lignes dans la colone de gauche ATTENTION, pour inserrer une ligne, j'ai créé un bouton qui se trouve à droite de la feuille, il suffit de sélectionner une cellule dans une ligne et cliquer sur ce bouton cela inserre une ligne identique juste au dessus (mais ça renumérote pas :sick: [file name=FDM2006.zip size=32132]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FDM2006.zip[/file]

 

[porcinet82]

Salut FTHEM,

Et bien il te suffit tout simplement de rajouter ce petit morceau de code a la fin de ta macro
INSERT_QuandClic en n'oubliant pas de déclarer i (dim i as integer)

x = 0
For i = 17 To Range('A65536').End(xlUp).Row
    Cells(i, 1).Value = x + 1
    x = x + 1
Next i

@+

 

[Jacques87]

Bonjour

Voila qui devrait te satisfaire

PS : acceptes tu un échange de voirure ? [file name=FDM2006_20060315184946.zip size=25051]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FDM2006_20060315184946.zip[/file]

 

[Jacques87]

Oups Romain

Pas vu pas pris

Amitiés

 

[FTHEM]

MERCI POUR TON EFFICACITEE

 

[FTHEM]

Euh, MERCI POUR VOTRE EFFICACITEE
PS je garde ma voiture B)