XL 2021 Recopie celle date et 3cellules consécutives avec des nombres

[Bruce68]

Bonsoir à tous
concaner cell

Macro avec erreur : Range(Cells(I, 1)&(Cells(I, 5)),(Cells(I, 7)).select
I = ligne5 1= première col & I = ligne5 5= cinquième col , I = ligne5 7 septième col
Je ne trouve pas l'erreur.
Je sollicite votre aide.
Je vous remercie

 

[job75]

Bonjour sylvanu, le forum,

J'ai accéléré l'exécution de ma macro du post #13 => chez moi 0,056 seconde.

La tienne par tableaux VBA => 0,025 seconde, c'est 2 fois plus rapide.

A+

 

[sylvanu]

chez moi 0,056 seconde.

Il va falloir que je pense à changer de PC. 🙂
( ceci dit mon PC date de 2005 avec un I5_2300, ce qui en fait n'est pas si mal )

 

[job75]

Bonjour sylvanu, le forum,

Ah mais je n'avais pas fait attention : il y avait une image perturbatrice qui se mettait à jour en R3:U3 de la feuille "Extraction".

Après l'avoir retirée les durées d'exécution deviennent :

- fichier du post #11 => 0,014 seconde

- fichier du post #13 (ce fichier) => 0,016 seconde, la différence est minime.

Edit : en remplaçant les plages comme [B5:E413] par Range("B5:E413") ma macro passe à 0,015 seconde.

A+