Déplacer des Formules

[EricParis2]

Bonjour,

Je souhaite recopier une, voir une série (zone, onglet...), de Celulles/Formule
d'un endroit à un autre (Autre Zone, autre Onglet voir Classeur)
Sans en modifier les références absolues ou relatives (avec ou sans $)

Peut-être avec un CTRL ou SHIFT ou... ?

La seule méthode que je connais actuellement est d'entrer dans chaque cellule et de copier le texte de la formule CTRL-C puis CTRL-V
Cette méthode a des limites évidentes.

Merci de votre astuce.
Eric

 

[condors.s]

Re : Déplacer des Formules

Bonjour EricParis2
Je ne suis pas sur de comprendre ta question.

Pourquoi ne selectionne tu pas toute ta feuille en faisant un copier/coller (ou collage spécial selon ce que tu veux faire)??

 

[blord]

Re : Déplacer des Formules

Bonjour,

Un petit truc que j'utilise pour faire cela est de remplacer le = au début de la formule par un autre symbole qui ne se trouve pas dans la formule (ex: ~) en faisant un rechercher/remplacer sur toute la zone des formules.

Les formules deviennent alors du texte, on copie les formules dans le nouvel emplacement puis on refaire l'opération iverse en remplaçant le ~= par =...

Bonne chance...

Blord

 

[mromain]

Re : Déplacer des Formules

Bonjour à tous,

Pas bête ta technique blord
Sinon, une macro :

Sub CopierCollerFormules()
Dim zoneCopie As Excel.Range, celluleColler As Range
Dim iC As Long, iL As Long

    'saisie de la zone à copier
    Set zoneCopie = Application.InputBox("Sélectionnez la zone à copier.", , , , , , , 8)
    'saisie de la première cellule (en haut à gauche) où coller les données
    Set celluleColler = Application.InputBox("Sélectionnez la première cellule (en haut à gauche) où coller les données.", , , , , , , 8)
    
    'boucler sur chaque ligne de la zone à copier
    For iL = 0 To zoneCopie.Rows.Count
        'boucler sur chaque colonne de la zone à copier
        For iC = 0 To zoneCopie.Columns.Count
            'recopier la formule
            celluleColler(1, 1).Offset(iL, iC).FormulaLocal = zoneCopie(1, 1).Offset(iL, iC).FormulaLocal
        Next iC
    Next iL

End Sub

a+

 

[blord]

Re : Déplacer des Formules

Bonjour à tous,

Merci mromain... !

Blord

 

[EricParis2]

Re : Déplacer des Formules

Merci de ces proposition rapides...

Il me semblait bien que la solution n'était pas triviale
mais j'espérais bien qu'un gourou aurait trouvé une astuce au clavier ou à la souris.
Apparemment ce n'est pas le cas...Il faudrait en toucher un mot à M. MicroSoft !

Je vais essayer la solution de blord car je ne suis pas féru de Macro VBA...
(Je n'ai jamais essayé de remplacer des caractères dans des formules... A Suivre)...

N'hésitez pas si vous avez d'autre idées.
@+ Eric

 

[EricParis2]

Re : Déplacer des Formules

Je reviens sur ma question dans un cas simple...

Comment peut-on copier un Onglet d'un classeur à un autre (similaire)
en faisant en sorte que le nom de fichier ne s'ajoute dans chaque formule ?

Eric

 

[EricParis2]

Re : Déplacer des Formules

Oooouuppsss...

L'aprenti sorcier que je suis s'est fait avoir !
J'ai bien réussi à remplacer les = par des ~... Mais l'inverse s'avère impossible !!!
Je cherche avec des '', des "", un \, en usant de chaque option sans résultat jusqu'ici...

Les ~ ne sont pas trouvé par la recherche.

HELP
Eric

 

[blord]

Re : Déplacer des Formules

Bonjour à tous,

Je suis désolé j'avais oublié ce problème !!!!

Au lieu d'utiliser le ~ utilise un autre caractère comme \

Je vien de tester et ça fonctionne....

Blord