Insertion de ligne

youky(BJ)

XLDnaute Barbatruc

• 26 Février 2010

• #2

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

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 26 Février 2010

• #3

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.

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 26 Février 2010

• #4

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 26 Février 2010

• #5

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 ?

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Février 2010

• #6

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 26 Février 2010

• #7

Re : Insertion de ligne

Re

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

 

Pièces jointes

• Insère.xls

  34 KB · Affichages: 52
• Insère.xls

  34 KB · Affichages: 51
• Insère.xls

  34 KB · Affichages: 49

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 27 Février 2010

• #8

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

Code:

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 27 Février 2010

• #9

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

 

Vote positif 0 Vote négatif