Discussion :

[jedwiller]

Bonsoir,
Après avoir bien chercher sur le site, j'ai trouvé des bribes de réponses à mon problème mais je galère quand même un peu.
J'aimerai copier une ligne d'une feuille1 vers une feuille2 mais sans ouvrir celle çi.
J'ai bien compris que les activate et les select sont a proscrire dans ces cas là mais je n'arrive pas a trouver la solution
Voici mon code qui fonctionne bien mais avec Activate et select :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Trt_Sauv_Ligne ()
 
    Range("A" & Lig_Trouve & " :L" & Lig_Trouve & "").Select
    Selection.Copy
    Sheets("Liste des Trouves").Activate
 
    Range("a65536").End(xlUp).Select
    Ligne = Range("a1").CurrentRegion.Rows.Count
    Range("A" & Ligne + 1).Select
    ActiveSheet.Paste
 
    Sheets("Liste de Actifs").Activate
    Application.CutCopyMode = False
    Range("A7").Select
 
End sub

1 - Donc je sélectionne une ligne de Liste de Actifs
2 - J'ouvre la feuille "Liste des Trouves"
3 - Je recherche la dernière ligne + 1 de mon tableau
4 - Je selectionne la ligne et je colle

5 - J'active la feuille Liste de Actifs
6 - J'arrête la selection pour la copie
7 - Et je select la ligne A7

J'aimerai faire la partie 2 - 4 dans ma feuille Liste des Trouves "masquer"

Merci pour tout aide ou conseil.

Bonsoir

[Invité]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Ligne = Sheets("Liste des Trouves").Range("a1").CurrentRegion.Rows.Count
 
Range("A" & Lig_Trouve & " :L" & Lig_Trouve & "").Copy Sheets("Liste des Trouves").Range("A" & Ligne + 1)

[jedwiller]

Bonsoir rdurupt,

Genial ,ça fonctionne.
Simple et efficace , il fallait juste trouver la tournure de la phrase ... euh du code :-)

Plus je travaille avec excel plus j'adore ça !!!

Merci encore

[kiki29]

Salut, il y a toujours ceci qu'il est bon de lire.

[jedwiller]

Merci kiki29, vraiment intéressant.
C'est une mine d'or pour les "Excellien" ici.

I'll be back ;-)