bonjour
je souhaite à partir de la ligne 1 inserer une nouvelle ligne en position 2
et que l'insertion s'arrete lorsque la derniere ligne (variable) est atteinte.
de plus j'ai besoin que la ligne inserée contienne dans la colonne A le
nombre 4
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
ru-th
Salut
personnellement, j'ai compris une ligne sur deux, peut-être errai-je ? Sub test() For i = [a65536].End(xlUp).Row To 2 Step -1 Rows(i).Insert Next Range("a2:a" & [a65536].End(xlUp).Row + 1).SpecialCells(xlCellTypeBlanks).Formula = 4 End Sub
a+ rural thierry "romeo" a écrit dans le message de news:
bonjour je souhaite à partir de la ligne 1 inserer une nouvelle ligne en position 2
et que l'insertion s'arrete lorsque la derniere ligne (variable) est atteinte.
de plus j'ai besoin que la ligne inserée contienne dans la colonne A le nombre 4
merci pour votre aide
Salut
personnellement, j'ai compris une ligne sur deux, peut-être errai-je ?
Sub test()
For i = [a65536].End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
Range("a2:a" & [a65536].End(xlUp).Row +
1).SpecialCells(xlCellTypeBlanks).Formula = 4
End Sub
a+
rural thierry
"romeo" <romeo@discussions.microsoft.com> a écrit dans le message de news:
1B8B71F3-2724-42F7-93C1-8002BC39A103@microsoft.com...
bonjour
je souhaite à partir de la ligne 1 inserer une nouvelle ligne en position
2
et que l'insertion s'arrete lorsque la derniere ligne (variable) est
atteinte.
de plus j'ai besoin que la ligne inserée contienne dans la colonne A le
nombre 4
personnellement, j'ai compris une ligne sur deux, peut-être errai-je ? Sub test() For i = [a65536].End(xlUp).Row To 2 Step -1 Rows(i).Insert Next Range("a2:a" & [a65536].End(xlUp).Row + 1).SpecialCells(xlCellTypeBlanks).Formula = 4 End Sub
a+ rural thierry "romeo" a écrit dans le message de news:
bonjour je souhaite à partir de la ligne 1 inserer une nouvelle ligne en position 2
et que l'insertion s'arrete lorsque la derniere ligne (variable) est atteinte.
de plus j'ai besoin que la ligne inserée contienne dans la colonne A le nombre 4
merci pour votre aide
romeo
super la macro repond à mes attentes.
j'ai une autre question : comment je peux faire pour mettre des formules dans les lignes insérées ? par ex en B2: ± ; en D2: Á ; en E2: á puis donc dans la ligne 4 : en B4: ³ ; en D4: Ã ; en E4: ã ...
Salut
personnellement, j'ai compris une ligne sur deux, peut-être errai-je ? Sub test() For i = [a65536].End(xlUp).Row To 2 Step -1 Rows(i).Insert Next Range("a2:a" & [a65536].End(xlUp).Row + 1).SpecialCells(xlCellTypeBlanks).Formula = 4 End Sub
a+ rural thierry "romeo" a écrit dans le message de news:
bonjour je souhaite à partir de la ligne 1 inserer une nouvelle ligne en position 2
et que l'insertion s'arrete lorsque la derniere ligne (variable) est atteinte.
de plus j'ai besoin que la ligne inserée contienne dans la colonne A le nombre 4
merci pour votre aide
super la macro repond à mes attentes.
j'ai une autre question :
comment je peux faire pour mettre des formules dans les lignes insérées ?
par ex en B2: ± ; en D2: Á ; en E2: á
puis donc dans la ligne 4 :
en B4: ³ ; en D4: Ã ; en E4: ã
...
Salut
personnellement, j'ai compris une ligne sur deux, peut-être errai-je ?
Sub test()
For i = [a65536].End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
Range("a2:a" & [a65536].End(xlUp).Row +
1).SpecialCells(xlCellTypeBlanks).Formula = 4
End Sub
a+
rural thierry
"romeo" <romeo@discussions.microsoft.com> a écrit dans le message de news:
1B8B71F3-2724-42F7-93C1-8002BC39A103@microsoft.com...
bonjour
je souhaite à partir de la ligne 1 inserer une nouvelle ligne en position
2
et que l'insertion s'arrete lorsque la derniere ligne (variable) est
atteinte.
de plus j'ai besoin que la ligne inserée contienne dans la colonne A le
nombre 4
j'ai une autre question : comment je peux faire pour mettre des formules dans les lignes insérées ? par ex en B2: ± ; en D2: Á ; en E2: á puis donc dans la ligne 4 : en B4: ³ ; en D4: Ã ; en E4: ã ...
Salut
personnellement, j'ai compris une ligne sur deux, peut-être errai-je ? Sub test() For i = [a65536].End(xlUp).Row To 2 Step -1 Rows(i).Insert Next Range("a2:a" & [a65536].End(xlUp).Row + 1).SpecialCells(xlCellTypeBlanks).Formula = 4 End Sub
a+ rural thierry "romeo" a écrit dans le message de news:
bonjour je souhaite à partir de la ligne 1 inserer une nouvelle ligne en position 2
et que l'insertion s'arrete lorsque la derniere ligne (variable) est atteinte.
de plus j'ai besoin que la ligne inserée contienne dans la colonne A le nombre 4
