Incrémentation d'une colonne
Résolu
floflo18
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
floflo18 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
floflo18 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Incrémentation d'une colonne
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Figer une colonne excel - Guide
2 réponses
Bonjour
Dans la premiere cellule nouvelle colonne, par exemple C2 tu mets 1
puis en C3 tu mets =C2+1
Ensuite tu double-clic sur le petit carré noir à droite en bas de la cellule C3
Cdlmnt
Dans la premiere cellule nouvelle colonne, par exemple C2 tu mets 1
puis en C3 tu mets =C2+1
Ensuite tu double-clic sur le petit carré noir à droite en bas de la cellule C3
Cdlmnt
En fait il faudrait que je le fasse avec une macro. Parce que je dois automatiser plusieurs actions dont celle-ci.
Cordialement
Cordialement
Bonsoir
Une possibilité :
Se placer dans la cellule où devra être inscrit Données 3 avant de lancer la macro
Cdlmnt
Une possibilité :
Se placer dans la cellule où devra être inscrit Données 3 avant de lancer la macro
Sub numeroter()
ActiveCell.Value = "Données 3" 'modifier le nom si nécessaire
colon = ActiveCell.Column
lignedebut = ActiveCell.Row
dernligne = Columns(lignedebut - 1).Find("*", , , , xlByColumns, xlPrevious).Row
num = 0
For n = lignedebut + 1 To dernligne
num = num + 1
ActiveSheet.Cells(n, colon) = num
Next n
End Sub
Cdlmnt
Bonjour,
Autre proposition :
Numérotation en C, A étant sensé être rempli sur la dernière ligne.
eric
Autre proposition :
Sub numLig()
Dim lig As Long
Application.ScreenUpdating = False
For lig = Cells(Rows.Count, "C").End(xlUp).Row + 1 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(lig, "C") = lig - 1
Next lig
Application.ScreenUpdating = True
End Sub
Numérotation en C, A étant sensé être rempli sur la dernière ligne.
eric
