Épuration des Activate, Selection etc

Bonjour tout le monde,

Je viens vers vous car j'ai eu de nombreuses remarques sur mon code VBA. Étant débutant sur VBA, je n'avais pas trop fait attention mais en effet, ces Activate et Select surchargent beaucoup mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim derniereLigne1 As Long Dim derniereLigne2 As Long   Range("A" & Rows.Count).End(xlUp).Select derniereLigne1 = Range("A" & Rows.Count).End(xlUp).Row   Sheets("XXX").Activate Range("A" & Rows.Count).End(xlUp).Select derniereLigne2 = Range("A" & Rows.Count).End(xlUp).Row   Sheets("Données").Activate Range("A2:P" & derniereLigne1).Select Application.CutCopyMode = False Selection.Copy Sheets("XXX").Select Range("C" & derniereLigne2).Select ActiveSheet.Paste Sheets("Données").Activate Range("A1:P" & derniereLigne1).Select Selection.Delete

---

Mon but grâce à ce code est donc de copier des données dans l'onglet "Données", ensuite je les colles dans mon onglet XXX (à la suite de mes autres données) et ensuite je revient sur l'onglet Données pour tout supprimer.

Pour la première partie sur le comptage de la dernière ligne, il me semble que c'est bon. Par contre je sais que la deuxième partie peut être plus épurée. Est-il possible d'enlever tout les Activate pour faire cette manipulation ?

Cordialement, Clément.

Code:

---

1 2 3 4 5 6 7 8

Dim derniereLigne1 As Long Dim derniereLigne2 As Long   derniereLigne1 = Worksheets("Données").Cells(Rows.Count, "A").End(xlUp).Row derniereLigne2 = Worksheets("XXX").Cells(Rows.Count, "A").End(xlUp).Row   Worksheets("Données").Range("A2:P" & derniereLigne1).Copy Sheets("XXX").Cells(derniereLigne2, "C") Worksheets("Données").Range("A1:P" & derniereLigne1).Delete

---

Bonjour,

Pour éviter les activate et les select, il faut que tu pointes directement la cellule voulue :

Code:

---

workbooks("TEST").worksheets("Données").range("A1")="x"

---

Comme ça pas besoin d'activer la feuille.

Du coup, pour l'exemple, ça te donnerait :

Code:

---

1 2 3 4 5 6 7

Sheets("XXX").Activate Range("A" & Rows.Count).End(xlUp).Select derniereLigne2 = Range("A" & Rows.Count).End(xlUp).Row   Deviendrait   derniereLigne2=Workbooks("Test").worksheets("XXX").cells(rows.count,1).end(xlup).row

---

Autrement, ce que tu peux faire c'est créer des variables Feuilles qui te permettront d'alléger la syntaxe de ton code :

Code:

---

1 2 3 4 5 6

Dim WsXXX as Worksheet set WsXXX = workbooks("Test").worksheets("XXX")   'Ca deviendrait donc :   derniereLigne2 = WsXXX.cells(rows.count,1).end(xlup).row

---

Si tu as d'autres questions n'hésite pas,

Bonne journée,

Merci Menhir, ton code marche parfaitement !

Merci Trystan aussi, ça m'a permis de comprendre un peu mieux comment je pouvais gérer mon code :)

Bonne journée