Insertion de ligne et copier coller en valeurs

[Chessnocoma]

Bonjour,

Je travail sur la création d'un fichier interne en ce moment, et je cherche à réaliser une macro, son but serait simple, Insérer un ligne 2 dans ma feuille "Archives" puis faire un copier coller en valeur de la cellule C3 de ma feuille "Situation" vers la Cellule K2 de ma feuille "Archives."

je vous remercie par avance pour l'aide que vous m'apporterez

 

[Pierrot93]

Re : Insertion de ligne et copier coller en valeurs

Bonjour,

regarde peut être ceci :

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

bonne journée
@+

 

[Chessnocoma]

Re : Insertion de ligne et copier coller en valeurs

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

 

[Chessnocoma]

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 ??

 

[Pierrot93]

Re : Insertion de ligne et copier coller en valeurs

Re,

modifie comme suit :

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

 

[Chessnocoma]

Re : Insertion de ligne et copier coller en valeurs

Merci beaucoup !
Ca marche impécable !