Copier formules uniquement sans toucher aux aux cellules

Bonjour à tous!

voilà mon problème:

j'ai un classeur avec 30 feuilles qui ont la même structure de tableaux (30 tableaux identiques avec des valeurs différentes dans chaque feuilles)

dans ma feuille 1, j'ai des formules dans un certains nombres de cellules. et je voudrais copier ces formules dans chaque autres feuilles de mon classeur, sans touches aux autres cellules des feuilles de destination...

j'ai trouvé ce code qui, je pense fait ce que je souhaite, mais je ne sais pas l'adapter:

à savoir, comment lui dire où copier (la feuille1) et où coller (sur les autres feuilles)

Sub CopyFormule1()

Dim Plage As Range, C As Range

Dim DebLi As Long, Li As Long, DebCol As Integer, Col As Integer

Set Plage = Range("d3:v61") ' Source à ajuster?

DebLi = Plage.Row

DebCol = Plage.Column

For Each C In Plage

If C.HasFormula Then

Li = 1 + C.Row - DebLi

Col = 1 + C.Column - DebCol

C.Copy Range("B2")(Li, Col) ' Comment modifier la destination?

End If

Next C

par avance merci!

Bien à vous,

Olivier


!!!

je pense que je vais m'en sortir avec un copier/coller tout bête en sélectionnant toutes les feuilles cible!

à force de chercher compliqué.. on en oublie les choses simples...

je suis navré du dérangement....

besoin de vacances moi...

Bonne fin de journée!

Olivier

Bonjour

Essaie ce code et lance la macro à partir de ta feuille source (Feuille 1 active) :

Sub CopyFormule1()

Dim Plage As Range, C As Range
Dim DebLi As Long, Li As Long, DebCol As Integer, Col As Integer, f

    Set Plage = Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell)) ' Source à ajuster?
    DebLi = Plage.Row
    DebCol = Plage.Column
    For Each C In Plage

        If C.HasFormula Then
            Li = 1 + C.Row - DebLi
            Col = 1 + C.Column - DebCol
            For Each f In Worksheets
                If f.Name <> ActiveSheet.Name Then
                    C.Copy f.Cells(Li, Col) ' Comment modifier la destination?
                End If
            Next f
        End If
    Next C
End Sub

Qu'Est-ce que cela donne ?

Bye !

Merci beaucoup Gmb!

je vais tester et cela me servira dans le futur de toutes les manières!

je vous tiens au courant

Bonne soirée

Olivier

Rechercher des sujets similaires à "copier formules uniquement toucher"