je suis sous excel 97 et je cherche un moyen pour automatiser une manip.
pour un tableau commençant en A1, si une ligne dépasse 8 colonnes, comment
1)copier cette ligne
2)insérer une nouvelle ligne en dessous
3)la coller dans ma nouvelle ligne insérée et supprimer la 8ème case de
cette nouvelle ligne
4)recommencer les trois premières actions tant que ma nouvelle ligne collée
dépasse les 8 colonnes! ouf!
si quelqu'un à une solution je le remerçie d'avance
Sub macro1() Dim i As Long For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Cells(i, 8).Value <> Empty Then Rows(i).Insert Shift:=xlDown Range(Cells(i + 1, 1), Cells(i + 1, 8)).Copy Destination:Îlls(i, 1) Cells(i + 1, 8).Clear End If Next i End Sub
isabelle
Bonjour à tous
je suis sous excel 97 et je cherche un moyen pour automatiser une manip .
pour un tableau commençant en A1, si une ligne dépasse 8 colonnes, comment 1)copier cette ligne 2)insérer une nouvelle ligne en dessous 3)la coller dans ma nouvelle ligne insérée et supprimer la 8ème c ase de cette nouvelle ligne 4)recommencer les trois premières actions tant que ma nouvelle ligne collée dépasse les 8 colonnes! ouf!
si quelqu'un à une solution je le remerçie d'avance
yves
bonjour Yves,
est ce que cette macro convient ?
Sub macro1()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 8).Value <> Empty Then
Rows(i).Insert Shift:=xlDown
Range(Cells(i + 1, 1), Cells(i + 1, 8)).Copy Destination:=Cells(i, 1)
Cells(i + 1, 8).Clear
End If
Next i
End Sub
isabelle
Bonjour à tous
je suis sous excel 97 et je cherche un moyen pour automatiser une manip .
pour un tableau commençant en A1, si une ligne dépasse 8 colonnes, comment
1)copier cette ligne
2)insérer une nouvelle ligne en dessous
3)la coller dans ma nouvelle ligne insérée et supprimer la 8ème c ase de
cette nouvelle ligne
4)recommencer les trois premières actions tant que ma nouvelle ligne collée
dépasse les 8 colonnes! ouf!
si quelqu'un à une solution je le remerçie d'avance
Sub macro1() Dim i As Long For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Cells(i, 8).Value <> Empty Then Rows(i).Insert Shift:=xlDown Range(Cells(i + 1, 1), Cells(i + 1, 8)).Copy Destination:Îlls(i, 1) Cells(i + 1, 8).Clear End If Next i End Sub
isabelle
Bonjour à tous
je suis sous excel 97 et je cherche un moyen pour automatiser une manip .
pour un tableau commençant en A1, si une ligne dépasse 8 colonnes, comment 1)copier cette ligne 2)insérer une nouvelle ligne en dessous 3)la coller dans ma nouvelle ligne insérée et supprimer la 8ème c ase de cette nouvelle ligne 4)recommencer les trois premières actions tant que ma nouvelle ligne collée dépasse les 8 colonnes! ouf!
si quelqu'un à une solution je le remerçie d'avance
