XL pour MAC copier/coller une cellule en VBA

[EricL]

Bonjour
J'ai une formule compliquée à copier sur 170.000 lignes ; évidemment ça plante mon Excel quand je fais un simple copier/coller. Je me demandais si une macro ne pourrait pas faire le travail à ma place.
Pouvez-vous me communiquer le bout de code que je dois mettre dans la macro pour :
1) prendre la cellule active
2) la copier
3) sélectionner la cellule du dessous
4) coller
etc....
et s'arrêter lorsqu'on rencontrer le mot STOP (voir la pj)

Merci et bonne journée
Eric

 

[Dranreb]

Bonjour.
Je ferais comme ça :

Sub JusquÀSTOP()
Dim CelDéb As Range, CelFin As Range
Set CelDéb = ActiveCell
Set CelFin = CelDéb.EntireColumn.Find(What:="STOP", After:=ActiveCell, LookIn:=xlValues, _
   LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False).Offset(-1)
Application.Range(CelDéb, CelFin).FormulaR1C1 = CelDéb.FormulaR1C1
End Sub

 

[EricL]

Merci de votre réponse.
Voilà le message qui s'affiche

Erreur de compilation :
Erreur de syntaxe
(Feuille1 3:0)

pour moi c'est du chinois !
que dois-je faire comme manipulation ?
Merci
Eric

 

[Dranreb]

Chez moi ça marche en sélectionnant C2 et en exécutant la macro.
Sur Mac je ne sais pas, et je suis surpris que ça plante même sur ça.
Peut être ne supporte-t-il pas les lettres accentuées dans des noms de procédures ?…

 

[EricL]

Non je n'y arrive pas... merci de votre aide ; je vais poursuivre ma recherche. Bonne journée. Eric