Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel numerotation lignes

numerotation lignes

4 réponses
Avatar
romeo
bonjour je souhaiterais numeroter mes lignes :

1. insertion colonne en A
2. macro permettant d'insérer un numero de ligne tel que :
colonnes: A / B
ligne 1: 1 / peut importe
ligne 2: 1 / peut importe
ligne 3: 2 / peut importe
ligne 4: 2 / peut importe
ligne 5: 3 / peut importe
ligne 6: 3 / peut importe
....

jusqu'à la dernière ligne utilisée
merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
MichDenis
Bonjour Romeo,

Tu peux essayer ceci :

'---------------------------
Sub InsérerLigne()
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
With rg
.Insert Shift:=xlToRight
.Offset(, -1).Formula = "=Row()"
.Offset(, -1).Value = .Value
End With
Set Rg = Nothing
End Sub
'---------------------------


Salutations!



"romeo" a écrit dans le message de news:
bonjour je souhaiterais numeroter mes lignes :

1. insertion colonne en A
2. macro permettant d'insérer un numero de ligne tel que :
colonnes: A / B
ligne 1: 1 / peut importe
ligne 2: 1 / peut importe
ligne 3: 2 / peut importe
ligne 4: 2 / peut importe
ligne 5: 3 / peut importe
ligne 6: 3 / peut importe
....

jusqu'à la dernière ligne utilisée
merci
Avatar
romeo
la macro copie les valeurs de la colonne B
et les duplique dans la colonne A nouvellement insérée.
ce que je souhaite c'est numeroter les lignes deux à deux. en fait par
couple de lignes ex (1 et 2) = 1; (3 et 4)=2; (5 et 6)=3 ....
merci


Bonjour Romeo,

Tu peux essayer ceci :

'---------------------------
Sub InsérerLigne()
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
With rg
.Insert Shift:=xlToRight
.Offset(, -1).Formula = "=Row()"
.Offset(, -1).Value = .Value
End With
Set Rg = Nothing
End Sub
'---------------------------


Salutations!



"romeo" a écrit dans le message de news:
bonjour je souhaiterais numeroter mes lignes :

1. insertion colonne en A
2. macro permettant d'insérer un numero de ligne tel que :
colonnes: A / B
ligne 1: 1 / peut importe
ligne 2: 1 / peut importe
ligne 3: 2 / peut importe
ligne 4: 2 / peut importe
ligne 5: 3 / peut importe
ligne 6: 3 / peut importe
.....

jusqu'à la dernière ligne utilisée
merci





Avatar
Ellimac
Bonjour,


Sub Toto()
Columns(1).Insert
For cpt = 1 To Range("b60000").End(xlUp).Row / 2
Range("a1").Offset(2 * cpt - 2).Range("a1:a2") = cpt
Next
End Sub


Camille

-----Message d'origine-----
bonjour je souhaiterais numeroter mes lignes :

1. insertion colonne en A
2. macro permettant d'insérer un numero de ligne tel
que :

colonnes: A / B
ligne 1: 1 / peut importe
ligne 2: 1 / peut importe
ligne 3: 2 / peut importe
ligne 4: 2 / peut importe
ligne 5: 3 / peut importe
ligne 6: 3 / peut importe
.....

jusqu'à la dernière ligne utilisée
merci
.



Avatar
romeo
merci Camille pour ton aide c'est exactement ce dont j'ai besoin.


Bonjour,


Sub Toto()
Columns(1).Insert
For cpt = 1 To Range("b60000").End(xlUp).Row / 2
Range("a1").Offset(2 * cpt - 2).Range("a1:a2") = cpt
Next
End Sub


Camille

-----Message d'origine-----
bonjour je souhaiterais numeroter mes lignes :

1. insertion colonne en A
2. macro permettant d'insérer un numero de ligne tel
que :

colonnes: A / B
ligne 1: 1 / peut importe
ligne 2: 1 / peut importe
ligne 3: 2 / peut importe
ligne 4: 2 / peut importe
ligne 5: 3 / peut importe
ligne 6: 3 / peut importe
.....

jusqu'à la dernière ligne utilisée
merci
.