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