copier le contenu des cellules sans la formule?

Question

Bonjour,

Je voudrai copier des cellules, où sont utilisé des formules, dans un autre onglet sans les formules!

Pouvez vous me mettre sur la piste

Merci par avance!

Voici quelque lignes:

Set R = ActiveSheet.Range("A4")
Set plage = Sheets(1).Range("A64:A113")

For Each Cel In Application.Sheets(1).Range("A64:A113")
Cel.EntireRow.Copy R
Set R = R.Offset(1)
Next

c148270 · Answer

Bonjour

Voici une piste
    Sheets("Feuil1").Range("A1:A32").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

A adapter bien sur

Bonne journée

Calade · Answer

Bonjour,

Pour toutes ces manips:

1)Activer l'enregistreur de macros
2)Faire la manip à la mano
3)Arrêter l'enregistreur de macro
4)Adapter éventuellement le code ainsi généré.


Calade

elemal · Answer

Bonjour,

J'ai essayé vos conseil mais rien ne se passe tout comme ça!
Je ne vois pas ce que je peux faire!
Avez vous d'autres idées s'il vous plait?
Merci par avance!

Voici mon programme

Dim Cel As Range
Dim R As Range
Dim plage As Range
Dim numstring As String


ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sheets(1).Range("I115")
MsgBox "It is successfull"

Set R = ActiveSheet.Range("A8")
Set plage = Sheets(1).Range("A64:A113")

For Each Cel In Application.Sheets(1).Range("A64:A113")
Cel.EntireRow.Copy R
Set R = R.Offset(1)
Next

Copier le contenu des cellules sans la formule?

3 réponses

Votre réponse

Discussions similaires