Evitez le "select"

Version imprimable

Evitez le "select"

bonjour à tous

je cherche à optimiser un code en évitant le "select'

ci dessous un code pour copier coller d'un fichier à un autre que je veux optimiser
Code:

1 2 3 4 5 6 7 8 9 10 11 Windows("COMMANDE.xlsm").Activate Sheets("prepa commande").Select Range("c1:c200").Select Selection.Copy Windows("caisse.xlsm").Activate Sheets("operation de tresorerie").Select Range("i65536").End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste
j'ai essayer ceci mais sans succès :
Code:

1 2 Workbooks("COMMANDE.xlsm").Sheets("prepa commande").Range("c1:c200").Copy Destination:=Workbooks("caisse.xlsm").Sheets("operation de tresorerie").Range("i65536").End(xlUp).ActiveCell.Offset(1, 0)
merci pour votre aide

09/10/2013, 14h27
EngueEngue

Vire le activecell
09/10/2013, 14h44
Marc-L

Bonjour,

exemple ici ! Et rien qu'en consultant l'aide de la méthode Copy et de son argument Destination … :roll:

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
09/10/2013, 14h49
bosk1000

ha l'idiot, j'avait oublié de l'enlever ....

par contre pour être plus pertinant dans mon copier,
comment puis-je limiter non pas de c1 à c200 lignes mais de c1 à la dernière ligne écrite

Code:

1
2
derniere = Workbooks("COMMANDE.xlsm").Sheets("prepa commande").Range("c" & Workbooks("COMMANDE.xlsm").Sheets("prepa commande").rows.count).end(xlup).row
Workbooks("COMMANDE.xlsm").Sheets("prepa commande").Range("c1:c" & derniere).Copy ....

09/10/2013, 15h12
Marc-L

T'aurais pu te fendre d'un petit With Workbooks("COMMANDE.xlsm").Sheets("prepa commande") … ;)

Tout cela est excellent

pour toujours contrer les "select"
j'ai une boucle qui sert à mettre :
"a" dans la colonne V
la date dans la colonne U
la valeur d'un box dans la colonne K
si c'est cellule sont vides et sans depasser la dernière cellules remplie de la colonne A

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 Operation.Select
    numdl = Range("a65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
 
    For I = 2 To numdl ' pour donner la ligne pour demarer la fonction
     Range("v" & I).Select ' pour activer la formule sur la ligne les une après les autres
    'insere le a
       If ActiveCell.Value = "" Then ActiveCell.Value = "a"
    'insere la date
        ActiveCell.Offset(0, -1).Select
        If ActiveCell.Value = "" Then ActiveCell.Value = Date
    'insere le nom de l'operation
        ActiveCell.Offset(0, -10).Select
        If ActiveCell = "" Then ActiveCell.Value = operation_box.Value
    Next I

Peux t'on éviter le select

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 Operation.Select
    numdl = Range("a65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
 
    For I = 2 To numdl ' pour donner la ligne pour demarer la fonction
    'insere le a
       If Range("V" & I).Value = "" Then  Range("V" & I).Value = "a"
    'insere la date
        If Range("U" & I).Value = "" Then Range("U" & I).Value = Date
    'insere le nom de l'operation
        If Range("K" & I).value = "" Then Range("K" & I).Value = operation_box.Value
    Next I

evitez le select

Bonjour,

J'aurai simplifié comme ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ess()
 
operation.Select 'qu'est-ce ? une feuille
    numdl = Range("a65536").End(xlUp).Row 'numero de la dernière ligne du tableau
 
    For I = 2 To numdl ' pour donner la ligne pour demarrer la fonction
        ' pour activer la formule sur la ligne les une après les autres
        'insere le a
        With Range("l" & I)
           If .Value = "" Then .Value = "a"
           'insere la date
           If .Offset(0, -1).Value = "" Then .Offset(0, -1).Value = Date
           'insere le nom de l'operation
           If .Offset(0, -10).Value = "" Then .Offset(0, -10).Value = operation_box.Value
        End With
    Next I
End Sub

je suis sur qu'il y a plus propre.

la réponse précédente est arrivée pendant que je faisais mes essais
Cordialement

09/10/2013, 16h22
bosk1000

un grand merci, voila plein de matière pour optimiser mes différents code
09/10/2013, 16h25
nibledispo

evitez le select

La réponse de illight est arrivé pendant que je faisais mes essais et tapais mon texte.

Je ne suis pas mécontent de mon travail, elles se ressemblent un peu.

Sans boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
Dim LastLig As Long
 
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    RemlirVide .Range("K2:K" & LastLig), operation_box.Value
    RemlirVide .Range("U2:U" & LastLig), Date
    RemlirVide .Range("V2:V" & LastLig), "a"
End With
End Sub
 
Private Sub RemlirVide(ByVal A As Range, ByVal ParQuoi)
 
On Error Resume Next
A.SpecialCells(xlCellTypeBlanks).Value = ParQuoi
End Sub

evitez le select

Bonjour Mercatog,

Merci pour cette solution. Il m'aura fallu une heure pour la comprendre mais ça en valait la peine.
Sur 50 000 lignes, elle est quasi instantanée.

Il m'a fallu faire cette procédure de substitution pour m'assurer que ma déduction était juste.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Test1() 'macro équivalente aux deux procédures ci-dessus pour compréhension ' l'argument "A" procédure ci desus = range( .....) et l'argument "Parquoi" = date , "a" , .... Dim LastLig As Long With Worksheets("Feuil1") LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row On Error Resume Next .Range("K2:K" & LastLig).SpecialCells(xlCellTypeBlanks).Value = operation_box.Value .Range("U2:U" & LastLig).SpecialCells(xlCellTypeBlanks).Value = Date .Range("V2:V" & LastLig).SpecialCells(xlCellTypeBlanks) = "a" End With End Sub
Cordialement,