M
mcay
Guest
Bonjour,
J'ai un petit problème, j'ai fait une macro qui doit copier les formules d'une colonne dans une autre.
Je vous explique mieux, par exemple j'ai un tableau qui contient des colonnes de mois, chaque mois je dois alimenter ce tableau, au lieu de faire du copier coller, je voudrais que la macro copie automatiquement les formules et les copier dans la colonne à alimenter. Comme chaque mois, j'avance d'une colonne, j'aimerai que la colonne soit défini comme variable.
Pour l'instant j'utilise ça :
Sheets("PLBIO").Select
Range("A8:A55").Select
Selection.Copy
Windows("TBBBM.xls").Activate
Sheets("PLBIO").Select
Range("AA8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
mais je voudrais remplacer Range("AA8) par une variable, merci.
J'ai un petit problème, j'ai fait une macro qui doit copier les formules d'une colonne dans une autre.
Je vous explique mieux, par exemple j'ai un tableau qui contient des colonnes de mois, chaque mois je dois alimenter ce tableau, au lieu de faire du copier coller, je voudrais que la macro copie automatiquement les formules et les copier dans la colonne à alimenter. Comme chaque mois, j'avance d'une colonne, j'aimerai que la colonne soit défini comme variable.
Pour l'instant j'utilise ça :
Sheets("PLBIO").Select
Range("A8:A55").Select
Selection.Copy
Windows("TBBBM.xls").Activate
Sheets("PLBIO").Select
Range("AA8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
mais je voudrais remplacer Range("AA8) par une variable, merci.