Dans la colonne A, j'ai une s=E9rie de chiffre de 1 =E0 n.
Comment puis-je faire pour obtenir une num=E9rotation=20
automatique c-=E0-d que si j'enl=E8ve ou j'ajoute une ligne,=20
la num=E9rotation se modifie automatiquement.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
John Fuss
tu laisse '1' dans ta première case (admettons "A1"), en "A2" tu mets '¡+1' et tu etires cette formule jusqu'en bas de ton tableau.
John
"max" a écrit dans le message de news:025301c3de7b$772ac060$ Bonjour,
Dans la colonne A, j'ai une série de chiffre de 1 à n. Comment puis-je faire pour obtenir une numérotation automatique c-à-d que si j'enlève ou j'ajoute une ligne, la numérotation se modifie automatiquement.
Merci pour votre aide.
Max
tu laisse '1' dans ta première case (admettons "A1"), en "A2" tu mets
'¡+1' et tu etires cette formule jusqu'en bas de ton tableau.
John
"max" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:025301c3de7b$772ac060$a001280a@phx.gbl...
Bonjour,
Dans la colonne A, j'ai une série de chiffre de 1 à n.
Comment puis-je faire pour obtenir une numérotation
automatique c-à-d que si j'enlève ou j'ajoute une ligne,
la numérotation se modifie automatiquement.
tu laisse '1' dans ta première case (admettons "A1"), en "A2" tu mets '¡+1' et tu etires cette formule jusqu'en bas de ton tableau.
John
"max" a écrit dans le message de news:025301c3de7b$772ac060$ Bonjour,
Dans la colonne A, j'ai une série de chiffre de 1 à n. Comment puis-je faire pour obtenir une numérotation automatique c-à-d que si j'enlève ou j'ajoute une ligne, la numérotation se modifie automatiquement.
Merci pour votre aide.
Max
Frédéric Sigonneau
Bonsoir,
Utilise une procédure événementielle comme celle-ci, à coller dans le module de la feuille où se trouve la colonne dont il faut maintenir la numérotation à jour :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Debut Debut = 5 'première ligne de la série (par exemple) Application.EnableEvents = False Range("A" & Debut).Value = 1 With Range("A" & Debut + 1 & ":A" & Cells(Rows.Count, "A").End(xlUp).Row) .Formula = "=A" & Debut & "+1" .Value2 = .Value2 End With Application.EnableEvents = True End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Dans la colonne A, j'ai une série de chiffre de 1 à n. Comment puis-je faire pour obtenir une numérotation automatique c-à-d que si j'enlève ou j'ajoute une ligne, la numérotation se modifie automatiquement.
Merci pour votre aide.
Max
Bonsoir,
Utilise une procédure événementielle comme celle-ci, à coller dans le module de
la feuille où se trouve la colonne dont il faut maintenir la numérotation à jour
:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Debut
Debut = 5 'première ligne de la série (par exemple)
Application.EnableEvents = False
Range("A" & Debut).Value = 1
With Range("A" & Debut + 1 & ":A" & Cells(Rows.Count, "A").End(xlUp).Row)
.Formula = "=A" & Debut & "+1"
.Value2 = .Value2
End With
Application.EnableEvents = True
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Dans la colonne A, j'ai une série de chiffre de 1 à n.
Comment puis-je faire pour obtenir une numérotation
automatique c-à-d que si j'enlève ou j'ajoute une ligne,
la numérotation se modifie automatiquement.
Utilise une procédure événementielle comme celle-ci, à coller dans le module de la feuille où se trouve la colonne dont il faut maintenir la numérotation à jour :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Debut Debut = 5 'première ligne de la série (par exemple) Application.EnableEvents = False Range("A" & Debut).Value = 1 With Range("A" & Debut + 1 & ":A" & Cells(Rows.Count, "A").End(xlUp).Row) .Formula = "=A" & Debut & "+1" .Value2 = .Value2 End With Application.EnableEvents = True End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Dans la colonne A, j'ai une série de chiffre de 1 à n. Comment puis-je faire pour obtenir une numérotation automatique c-à-d que si j'enlève ou j'ajoute une ligne, la numérotation se modifie automatiquement.
