Copy formule d'une cellule .c'est lent

**bigs3232** · 05/04/2018, 16h30

j'ai un code pour copier la formule de la 1er cellule d'une selection
ca marche pas mais bizarrement la copie est saccadée et un peu lente.
avez vous une autre méthode
merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
 
Sub copyversbas_form_Sli1()
    ActiveCell.Copy
    Set plage = Range(Selection.Address)
   For Each c In plage
    c.PasteSpecial Paste:=xlPasteFormulas
  Next c
End Sub

**Marc-L** · 05/04/2018, 16h45

Bonjour,

oui, déjà ne pas utiliser de variable inutlle comme par exemple Plage qui est juste un doublon de Selection
mais surtout ne pas utiliser de boucle si la formule a été bien conçue, juste l'affecter directement à la sélection …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**bigs3232** · 05/04/2018, 16h48

intéressant marc.tu écriraiscomment alors le code

**Marc-L** · 05/04/2018, 16h54

Déjà vérifier si la formule a été bien conçue ou pas ?

Formule fonctionnelle dans la première cellule puis recopie vers le bas pour alimenter la "plage" :
si le résultat escompté est bien celui attendu alors il y a différentes possibilités dont la première
activer l'Enregistreur de macro puis réitérer la même manipulation …
La seconde consistant juste à alimenter directement la propriété Formula de la plage de cellules …

**bigs3232** · 05/04/2018, 17h02

pas mal marc.j'ai adapté ton idée avec çà.c'est nettement plus rapide

Code :

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

1
2
3
 
 ActiveCell.Copy
    Selection.PasteSpecial Paste:=xlPasteFormulas

**bigs3232** · 05/04/2018, 17h08

Envoyé par Marc-L

Bonjour,
oui, déjà ne pas utiliser de variable inutlle comme par exemple Plage qui est juste un doublon de Selection
mais surtout ne pas utiliser de boucle si la formule a été bien conçue, juste l'affecter directement à la sélection …

désolé mais pas bien compris tes phrases

**Marc-L** · 05/04/2018, 17h11

Là c'est la troisième option ! La manière indirecte …

Conclusion : avant de coder en VBA, se poser déjà la question du comment côté Excel,
évitant bien souvent une boucle gazière (usine) !

Sinon j'ai déjà écrit un complément d'information dans le post #4;
en gros Range.Formula = "formule" ou encore plage.Formula = cellule.Formula, la méthode directe …