Insertion de ligne

[Mapat]

Bonjour le forum

Quelqu'un pourrait-il m'aider pour insérer une ligne, par macro, automatiquement à la suite de données dèjà existantes et reprernant les deux formules qui sont en A et B

Merci

 

[youky(BJ)]

Re : Insertion de ligne

Bonsoir ceci mets directement la valeur pas besoin de mettre les formules.
Bruno

Sub Macro2()
lig = [A1].End(4).Row + 1
Cells(lig, 1) = Cells(lig - 1, 1) + 7
Cells(lig, 2) = Cells(lig - 1, 2) + 1
End Sub

 

[Macpoy]

Re : Insertion de ligne

bonsoir le forum,
bonsoir Mapat, youky,
youky, si je comprend bien votre "formulation",
"lig = [A1].End(4).Row + 1" le (4) correspond à
lig = [A1].End(xlUp).row + 1
ou avez vous trouver le chiffre remplaçant l'expression xlUp ?
merci d'avance.
désolé pour l'incursion dans le post.

 

[Mapat]

Re : Insertion de ligne

Re Youki, Macpoy

C'est exactement ce que j'aurais aimé savoir faire ...
Merci pour ce petit coup de main
Bonne soirée a tous

 

[Mapat]

Re : Insertion de ligne

Re

Lorsque j'insère cette ligne supplémentaire, elle sert à copier des données qui se trouvent sur la feuille 2
Est-il possible de copier ces données en même temps que l'insertion automatique ?

 

[youky(BJ)]

Re : Insertion de ligne

Bonsoir à vous,
Pour répobndre à Macpoy
lig = [A1]End(4).Row + 1" le (4) correspond à (XlDown)
pour (XlUp) c'est (3) ceci pour raccourcir le code, tu peux mettre comme tu veux cela ne change rien.
Pour répondre aussi à Mapa, bien sur qu'il est facile de copier des données de Feuil2
Faut simplement savoir ou se situe les données à copier et ou les coller.
L'insertion de ligne est-elle obligatoire...Y a t'il des données en dessous.
Il serait bon de faire un petit fichier exemple avec qlq lignes et le résultat attendu.
Pour mettre un fichier voir le bouton "allez en mode avancé"
Bruno

 

[Mapat]

Re : Insertion de ligne

Re

Oui bien sûr, le fichier joint n'est pas passé !
Mauvaise manip de ma part

 

[youky(BJ)]

Re : Insertion de ligne

Re,
Voici, j'ai mis dans le code Feuil2. qui est le codeName et pas forcément pareil sur le fichier original.
Bruno

Sub Macro2()
lig = [A1].End(4).Row + 1
Cells(lig, 1) = Cells(lig - 1, 1) + 7
Cells(lig, 2) = Cells(lig - 1, 2) + 1
ligf2 = Feuil2.[C65536].End(3).Row 'prend la derniere ligne de Feuil2
Range("C" & lig & ":i" & lig).Value = _
Feuil2.Range("C" & ligf2 & ":i" & ligf2).Value
End Sub

 

[Mapat]

Re : Insertion de ligne

Bonjour Bruno, le forum

Super ! C'est bien comme ça que je voyais la chose

Un grand merci à toi
et bonne journée à tous