Insertion de ligne et copier coller en valeurs

Pierrot93

XLDnaute Barbatruc

• 28 Avril 2011

• #2

Re : Insertion de ligne et copier coller en valeurs

Bonjour,

regarde peut être ceci :

Code:

With Sheets("Archive")
    .Rows(2).Insert
    .Range("K2").Value = Sheets("Situation").Range("C3").Value
End With

bonne journée
@+

 

Vote positif 0 Vote négatif

C

Chessnocoma

XLDnaute Junior

• 28 Avril 2011

• #3

Re : Insertion de ligne et copier coller en valeurs

C'est exactement ce qu'il me fallait !
Un grand merci Pierrot !

 

Vote positif 0 Vote négatif

C

Chessnocoma

XLDnaute Junior

• 28 Avril 2011

• #4

Re : Insertion de ligne et copier coller en valeurs

Par contre comment est ce que je peux faire si je veux que le collage se fasse sur la dernière cellule vide de la colonne K ??

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Avril 2011

• #5

Re : Insertion de ligne et copier coller en valeurs

Re,

modifie comme suit :

Code:

With Sheets("Archive")
    .Rows(2).Insert
    .Range("K65536").End(xlUp)(2).Value = Sheets("Situation").Range("C3").Value
End With

 

Vote positif 0 Vote négatif

C

Chessnocoma

XLDnaute Junior

• 28 Avril 2011

• #6

Re : Insertion de ligne et copier coller en valeurs

Merci beaucoup !
Ca marche impécable !

 

Vote positif 0 Vote négatif