Discussion :

[CÉLINE LEYNIER]

Bonjour,
Je "bidouille" des macros avec Excel pour automatiser des actions.
J'ai écrit ce bout de code :

Code :

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

1
2
3
4
5
Dim nbrLigne As Integer
    Sheets("Bilan").Select
           nbrLigne = Columns(1).Find("", [A65536], , , xlByRows, xlNext).Row
    Range("A" & nbrLigne).Select
    ActiveCell.Formula = "=CONCATENATE(VLOOKUP(code,ce,2,FALSE),cat,sexe)"

qui fonctionne très bien.
En fait ma macro est beaucoup plus longue, parce qu'elle enchaine plusieurs actions pour créer un bilan de performances sportives.
Mais j'ai l'impression que la longueur de la procédure est due à ce bout de code. Est-ce que je me trompe quand je pense que ce code écrit la fonction dans les cellules de la colonne A une par une ?
Y aurait-il un moyen de l'accélérer ?
C'est à dire écrire la fonction dans la première cellule et la "tirer" en une seule fois jusqu'à la dernière cellule de la dernière ligne renseignée ?

Je vous remercie par avance de toute l'aide que vous pourrez m'apporter.
Céline

[gourmand]

fais tu se bout de code en boucle?

[Pierre Fauconnier]

Salut.

Il n'est que rarement nécessaire de travailler avec les sélections.

Tu peux passer une formule à une plage sans problème, comme tu le ferais en Excel avec une sélection de plusieurs cellules et une validation via CTRL+ENTER.

Code :

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

Range("A2:A20").formula="=CONCATENATE(VLOOKUP(code,ce,2,FALSE),cat,sexe)"