Discussion :

[joegalere]

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

[Jean-Philippe André]

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...

[joegalere]

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.

[Jean-Philippe André]

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 ?

[joegalere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Maxence HUBICHE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joegalere]

Merci à tous ça marche !!!