Ecraser des formules excel

Bonjour à tous,

Je souhaite écraser le résultat d'une formule excel à partir d'une macro.

La complexité c'est que je veux que chaque mois qu'il y'est un déplacement de la colonne à écraser (mois octobre colonne F, mois novembre colonne G.....).

Si possible lier la colonne au numéro du mois octobre 10, novembre 11...

Merci pour votre collaboration

bonjour,
tu peux nous dire ce que tu veux dire par "écraser" stp ?
un mois la formule serait "=SUM(A10:A25)" puis le mois d'après "=SUM(B10:B25)" ? il me semble que si c'est cela, c'est déjà automatiquement géré par excel...

nan en fait j'ai un tableau à plusieur colonne, chaque mois une des colonnes se rafraichie à partir de formule excel (données provenant du web). Le problème c'est que chaque mois les données rapatriées ne s'affichent plus étant donné que ces les données du mois suivant qui sont rapatriés.

Pour garder un historique il faudrait que j'écrase les liens excel par les valeurs.

merci beaucoup pour votre aide.

j'espère avoir été clair.

d'accord, il faudrait alors faire un bout de code qui copie et colle les valeurs des cellules avant de les écraser c'est bien cela ?

En fait voilà le code pour écraser des formules...

Je souhaite que le mois prochain se soit la colonne AG puis la colonne AH etc....chaque mois. Je sais pas indéxé en VB.


Merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Ecraser_Formules() ' ' Ecraser_Formules Macro ' Macro enregistrée le 12/11/2007 par DAOUDI Jaoued '   ' Range("AF1:AF38").Select ActiveWindow.SmallScroll Down:=-30 Selection.Copy Range("AF1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("AF2").Select End Sub

---

bonjour

une proposition un peu tordue mais qui doit fonctionner.
Cette macro devrait vérifier à l'ouverture du classeur s'il y a une formule dans la première cellule de la colonne "correspondant" aux données du mois précédent (en supposant que les données de la colonne AF sont celles du mois d'octobre 2007 et que tu utilises un calendrier depuis 1900).
Si c'est le cas, copier, collage spécial - valeur.


A mettre dans le module ThisWorkbook et à tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Workbook_Open() With Sheets("Feuil1") maColonne = DateDiff("m", 38412, Now) If .Cells(1, maColonne).HasFormula Then With Range(.Cells(1, maColonne), .Cells(38, maColonne)) .Copy .PasteSpecial Paste:=xlPasteValues End With End If End With Application.CutCopyMode = False   End Sub

---

cordialement

Ci-dessous, un code qui te permet de faire un copier-CollageSpecial valeur de la première colonne contenant des formules dans un tableau qui démarre en A1... si ca peut t'aider.

Comme je n'ai pas compris pourquoi tu parlais un coup de G, H,... et un coup de AG, AH, ... j'ai fait l'impasse sur la modulation par mois.
Si tu es un peu plus clair sur cet énoncé, on pourra peut-être mieux faire.

vàlà ;)

Code:

---

1 2 3 4 5 6 7

Sub FigerColonne() With Range("A1").CurrentRegion.SpecialCells(xlCellTypeFormulas).Range("A1").EntireColumn .Copy .PasteSpecial xlPasteValues End With Application.CutCopyMode = False End Sub

---

Merci à tous ça marche !!!