OVH Cloud OVH Cloud

Modifier une macro (ligne)

3 réponses
Avatar
michel
Bonjour =E0 chacun,
Je recherche une indication pour modifier une macro.

Voici une macro faite avec l'enregistreur :
Range("A18").Select
Selection.EntireRow.Insert
Range("G19").Select
Selection.Copy
Range("G18").Select
ActiveSheet.Paste
Range("H19").Select
Application.CutCopyMode =3D False
Selection.Copy
Range("H18").Select
ActiveSheet.Paste
Range("L19").Select
Application.CutCopyMode =3D False
Selection.Copy
Range("L18").Select
ActiveSheet.Paste
Range("O19").Select
Application.CutCopyMode =3D False
Selection.Copy
Range("O18").Select
ActiveSheet.Paste
Range("M19").Select
Application.CutCopyMode =3D False
Selection.Copy
Range("M18").Select
ActiveSheet.Paste

Comme vous l'avez compris, il s'agit de rajouter une=20
ligne et de copier des formules dans cette nouvelle ligne.
Comment modifier la macro pour que la nouvelle ligne=20
s'ajoute =E0 la suite de la derni=E8re ligne remplie et non=20
plus comme ci dessus =E0 cot=E9 de la ligne 18.

Merci pour votre aide

Michel

3 réponses

Avatar
isabelle
bonjour Michel,

With Rows(18)
.Copy
.Insert Shift:=xlDown
End With
Application.CutCopyMode = False
'Range("A18:F18,I18:J18,K18,N18,P18:IV18").Delete

isabelle


Bonjour à chacun,
Je recherche une indication pour modifier une macro.

Voici une macro faite avec l'enregistreur :
Range("A18").Select
Selection.EntireRow.Insert
Range("G19").Select
Selection.Copy
Range("G18").Select
ActiveSheet.Paste
Range("H19").Select
Application.CutCopyMode = False
Selection.Copy
Range("H18").Select
ActiveSheet.Paste
Range("L19").Select
Application.CutCopyMode = False
Selection.Copy
Range("L18").Select
ActiveSheet.Paste
Range("O19").Select
Application.CutCopyMode = False
Selection.Copy
Range("O18").Select
ActiveSheet.Paste
Range("M19").Select
Application.CutCopyMode = False
Selection.Copy
Range("M18").Select
ActiveSheet.Paste

Comme vous l'avez compris, il s'agit de rajouter une
ligne et de copier des formules dans cette nouvelle ligne.
Comment modifier la macro pour que la nouvelle ligne
s'ajoute à la suite de la dernière ligne remplie et non
plus comme ci dessus à coté de la ligne 18.

Merci pour votre aide

Michel


Avatar
Michel
Merci Isabelle,

Pourquoi effacer les formules en ligne 18
Je veux simplement inserer une nouvelle ligne ou passer à
la dernière ligne libre puis copier dans cette ligne les
formules contenue dans la ligne précedente ou dans une
ligne modèle.

Merci de ton aide

Je pense que je n'ai pas su m'y prendre pour expliquer

Michel
-----Message d'origine-----
bonjour Michel,

With Rows(18)
..Copy
..Insert Shift:=xlDown
End With
Application.CutCopyMode = False
'Range("A18:F18,I18:J18,K18,N18,P18:IV18").Delete

isabelle


Bonjour à chacun,
Je recherche une indication pour modifier une macro.

Voici une macro faite avec l'enregistreur :
Range("A18").Select
Selection.EntireRow.Insert
Range("G19").Select
Selection.Copy
Range("G18").Select
ActiveSheet.Paste
Range("H19").Select
Application.CutCopyMode = False
Selection.Copy
Range("H18").Select
ActiveSheet.Paste
Range("L19").Select
Application.CutCopyMode = False
Selection.Copy
Range("L18").Select
ActiveSheet.Paste
Range("O19").Select
Application.CutCopyMode = False
Selection.Copy
Range("O18").Select
ActiveSheet.Paste
Range("M19").Select
Application.CutCopyMode = False
Selection.Copy
Range("M18").Select
ActiveSheet.Paste

Comme vous l'avez compris, il s'agit de rajouter une
ligne et de copier des formules dans cette nouvelle
ligne.


Comment modifier la macro pour que la nouvelle ligne
s'ajoute à la suite de la dernière ligne remplie et non
plus comme ci dessus à coté de la ligne 18.

Merci pour votre aide

Michel
.





Avatar
isabelle
c'est parce que dans ta macro tu copie seulemtent les valeur des colonne
"G,H,L,M,O"
alors j'en ai déduit que les valeurs des autres colonne devait être
effacé.
j'avais de toute façon mit cette ligne en commentaire au cas ou elle
serait pas utile.

isabelle


Merci Isabelle,

Pourquoi effacer les formules en ligne 18
Je veux simplement inserer une nouvelle ligne ou passer à
la dernière ligne libre puis copier dans cette ligne les
formules contenue dans la ligne précedente ou dans une
ligne modèle.

Merci de ton aide

Je pense que je n'ai pas su m'y prendre pour expliquer

Michel
-----Message d'origine-----
bonjour Michel,

With Rows(18)
..Copy
..Insert Shift:=xlDown
End With
Application.CutCopyMode = False
'Range("A18:F18,I18:J18,K18,N18,P18:IV18").Delete

isabelle


Bonjour à chacun,
Je recherche une indication pour modifier une macro.

Voici une macro faite avec l'enregistreur :
Range("A18").Select
Selection.EntireRow.Insert
Range("G19").Select
Selection.Copy
Range("G18").Select
ActiveSheet.Paste
Range("H19").Select
Application.CutCopyMode = False
Selection.Copy
Range("H18").Select
ActiveSheet.Paste
Range("L19").Select
Application.CutCopyMode = False
Selection.Copy
Range("L18").Select
ActiveSheet.Paste
Range("O19").Select
Application.CutCopyMode = False
Selection.Copy
Range("O18").Select
ActiveSheet.Paste
Range("M19").Select
Application.CutCopyMode = False
Selection.Copy
Range("M18").Select
ActiveSheet.Paste

Comme vous l'avez compris, il s'agit de rajouter une
ligne et de copier des formules dans cette nouvelle
ligne.


Comment modifier la macro pour que la nouvelle ligne
s'ajoute à la suite de la dernière ligne remplie et non
plus comme ci dessus à coté de la ligne 18.

Merci pour votre aide

Michel
.