Discussion :

[Bemirdor]

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 :

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

[Menhir]

Code :

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

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

[Trystan441]

Bonjour,

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

Code :

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

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 :

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

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 :

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

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,

[Bemirdor]

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