Y
yohan
Guest
Coucou, c'est remoi ;-)
Resalutations au forum,
Un nouveau problème m'empêche d'aller de l'avant sur mon projet : je voudrais copier d'une feuille à une autre une plage de cellules (ceci pour faire une feuille à exporter sur l'intranet dans laquelle ne figurent que les éléments importants). Seulement je voudrais copier les valeurs affichées par les cellules, et non les formules qu'elles contiennent.
J'avais essayé ça :
Sub CellSem()
Dim CellSemaine As Byte
Dim CellDef As Integer
CellSemaine = Worksheets("ExporWeb").Range("H1")
CellDef = (CellSemaine - 1) * 28 + 5
Sheets("Planning").Select
Range("A1").Select
ActiveCell.Offset(CellDef, 2).Select
ActiveCell.Range("A1:J24").Select
Selection.Copy
Sheets("ExporWeb").Select
Range("C7").Select
ActiveCell.Range("A1:J24").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= True, Transpose:=True
Application.CutCopyMode = False
End Sub
Mais Excel me renvoie le message suivant : "Erreur 1004 L'opération requiert que les cellules fusionnées soient de taille identique".
Et en effet c'est aussi le message qu'il me donne si j'essaie à la main de ne copier-coller que les valeurs. Ceci ne marche que quand je ne copie-colle qu'une seule celllule.
Quelqu'un connaît-il l'astuce ??
Merci à tous, et bon week-end (pluvieux-orageux sur Paname... Un temps à bosser sur l'Excel ;-))
yohan (après j'arrête, promis ;-))
Resalutations au forum,
Un nouveau problème m'empêche d'aller de l'avant sur mon projet : je voudrais copier d'une feuille à une autre une plage de cellules (ceci pour faire une feuille à exporter sur l'intranet dans laquelle ne figurent que les éléments importants). Seulement je voudrais copier les valeurs affichées par les cellules, et non les formules qu'elles contiennent.
J'avais essayé ça :
Sub CellSem()
Dim CellSemaine As Byte
Dim CellDef As Integer
CellSemaine = Worksheets("ExporWeb").Range("H1")
CellDef = (CellSemaine - 1) * 28 + 5
Sheets("Planning").Select
Range("A1").Select
ActiveCell.Offset(CellDef, 2).Select
ActiveCell.Range("A1:J24").Select
Selection.Copy
Sheets("ExporWeb").Select
Range("C7").Select
ActiveCell.Range("A1:J24").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= True, Transpose:=True
Application.CutCopyMode = False
End Sub
Mais Excel me renvoie le message suivant : "Erreur 1004 L'opération requiert que les cellules fusionnées soient de taille identique".
Et en effet c'est aussi le message qu'il me donne si j'essaie à la main de ne copier-coller que les valeurs. Ceci ne marche que quand je ne copie-colle qu'une seule celllule.
Quelqu'un connaît-il l'astuce ??
Merci à tous, et bon week-end (pluvieux-orageux sur Paname... Un temps à bosser sur l'Excel ;-))
yohan (après j'arrête, promis ;-))