j'ai un tableau avec un num=E9ro d'ordre dans une colonne.
Malheureusement j'ai des trou dans la num=E9rotation,=20
comment faire pour que des lignes vierges soient=20
automatiquement ins=E9rer pour combler les trous de=20
num=E9rotation ???
Exemple=20
A1=3D1
A2=3D2
A3=3D5
devient
A1=3D1
A2=3D2
A3=3D3
A4=3D4
A5=3D5
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
Jacky
Bonsoir Patrice en A1: =LIGNE() Et tirer aussi loin que besoin
Salutations JJ
"Patrice FY" a écrit dans le message de news:782c01c52645$d81a2c40$ Bonjour,
j'ai un tableau avec un numéro d'ordre dans une colonne. Malheureusement j'ai des trou dans la numérotation, comment faire pour que des lignes vierges soient automatiquement insérer pour combler les trous de numérotation ???
Exemple A1=1 A2=2 A3=5 devient A1=1 A2=2 A3=3 A4=4 A5=5
Bonsoir Patrice
en A1:
=LIGNE()
Et tirer aussi loin que besoin
Salutations
JJ
"Patrice FY" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:782c01c52645$d81a2c40$a401280a@phx.gbl...
Bonjour,
j'ai un tableau avec un numéro d'ordre dans une colonne.
Malheureusement j'ai des trou dans la numérotation,
comment faire pour que des lignes vierges soient
automatiquement insérer pour combler les trous de
numérotation ???
Exemple
A1=1
A2=2
A3=5
devient
A1=1
A2=2
A3=3
A4=4
A5=5
Bonsoir Patrice en A1: =LIGNE() Et tirer aussi loin que besoin
Salutations JJ
"Patrice FY" a écrit dans le message de news:782c01c52645$d81a2c40$ Bonjour,
j'ai un tableau avec un numéro d'ordre dans une colonne. Malheureusement j'ai des trou dans la numérotation, comment faire pour que des lignes vierges soient automatiquement insérer pour combler les trous de numérotation ???
Exemple A1=1 A2=2 A3=5 devient A1=1 A2=2 A3=3 A4=4 A5=5
Jacky
Re.. J'ai mal lu..... Plutôt ceci '---------------- Sub JJ() For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row) If c > c.Row Then Rows(c.Row & ":" & c.Row).Insert Shift:=xlDown Range("a" & c.Row - 1) = c.Row - 1 End If Next End Sub '-------------- JJ
"Jacky" a écrit dans le message de news:%
Bonsoir Patrice en A1: =LIGNE() Et tirer aussi loin que besoin
Salutations JJ
"Patrice FY" a écrit dans le message
de news:782c01c52645$d81a2c40$ Bonjour,
j'ai un tableau avec un numéro d'ordre dans une colonne. Malheureusement j'ai des trou dans la numérotation, comment faire pour que des lignes vierges soient automatiquement insérer pour combler les trous de numérotation ???
Exemple A1=1 A2=2 A3=5 devient A1=1 A2=2 A3=3 A4=4 A5=5
Re..
J'ai mal lu.....
Plutôt ceci
'----------------
Sub JJ()
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c > c.Row Then
Rows(c.Row & ":" & c.Row).Insert Shift:=xlDown
Range("a" & c.Row - 1) = c.Row - 1
End If
Next
End Sub
'--------------
JJ
"Jacky" <delaenlevezjusquiciJacky.jaeg@w...doo.fr> a écrit dans le message
de news:%23QX668kJFHA.1392@TK2MSFTNGP10.phx.gbl...
Bonsoir Patrice
en A1:
=LIGNE()
Et tirer aussi loin que besoin
Salutations
JJ
"Patrice FY" <anonymous@discussions.microsoft.com> a écrit dans le
message
de news:782c01c52645$d81a2c40$a401280a@phx.gbl...
Bonjour,
j'ai un tableau avec un numéro d'ordre dans une colonne.
Malheureusement j'ai des trou dans la numérotation,
comment faire pour que des lignes vierges soient
automatiquement insérer pour combler les trous de
numérotation ???
Exemple
A1=1
A2=2
A3=5
devient
A1=1
A2=2
A3=3
A4=4
A5=5
Re.. J'ai mal lu..... Plutôt ceci '---------------- Sub JJ() For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row) If c > c.Row Then Rows(c.Row & ":" & c.Row).Insert Shift:=xlDown Range("a" & c.Row - 1) = c.Row - 1 End If Next End Sub '-------------- JJ
"Jacky" a écrit dans le message de news:%
Bonsoir Patrice en A1: =LIGNE() Et tirer aussi loin que besoin
Salutations JJ
"Patrice FY" a écrit dans le message
de news:782c01c52645$d81a2c40$ Bonjour,
j'ai un tableau avec un numéro d'ordre dans une colonne. Malheureusement j'ai des trou dans la numérotation, comment faire pour que des lignes vierges soient automatiquement insérer pour combler les trous de numérotation ???
Exemple A1=1 A2=2 A3=5 devient A1=1 A2=2 A3=3 A4=4 A5=5
