Discussion :

[isfet]

hello forum

la fonction de ma macro marchait bien, elle prenait une plage et l'inserait en haut d'une autre page (sans ecraser les cells de cette page).


Code :

Code :

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

1
2
3
4
5
6
Rows("1:1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Data").Activate
    Range("A1").Select
    Selection.Insert Shift:=xlDown

mais maintenant j'ai des formules dans ma première page et du coup, il m'insert aussi les formules mais je ne voudrait que les valeurs pour eviter les erreurs !

le paste special xlvalues et bien mais comment faire pour ne pas ecraser les valeurs de ma page data ?

pouvez vous m'aider ? thanks

[Tempas]

Pour ne pas écraser les anciennes valeurs, tu peux peut-être tester si la cellule contient une donnée, si ce n'est pas le cas tu peux écrire dedans

Code :

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

1
2
3
While ActiveCell.Value <> ""
            ActiveCell.Offset(1, 0).Select
Wend

Une fois sorti du while tu es à une case vide

[isfet]

ça aurait pu etre la solution, mais les données inserées doivent se retrouver au dessus ..

je vais faire un count puis inserer autant de lignes vide et faire un collage spéciale je pense

[isfet]

Code :

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

1
2
3
4
While i < nbligne
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    i = i + 1
    Wend

Code :

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

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

plus ou moins résolu.. pouvez vous me dire si il existe un attribut pour que je colle mes bordure aussi, car je ne colle strictement que les valeurs avec cette fonction.. merci d'avance

[sabzzz]

bonjour isfet,

plus ou moins résolu.. pouvez vous me dire si il existe un attribut pour que je colle mes bordure aussi, car je ne colle strictement que les valeurs avec cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Dim plg As Range
With Sheets("Feuil1") '<-----adapter de nom de la feuille source
    Set plg = .Range(.Rows(1), .Rows(1).End(xlDown))
End With
plg.Copy
Sheets("Data").Range("A1").Insert Shift:=xlDown
Sheets("Data").Range(plg.Address).Value = Sheets("Data").Range(plg.Address).Value
Application.CutCopyMode = False
End Sub