remplacer la formule par ca valeur

[iliess]

bonjour
comment copier une cellule qui contien une formule.
dans la piece jointe un fichier detailé

 

[Softmama]

Re : remplacer la formule par ca valeur

Bonjour,

Si tu veux ne garder que la valeur du résultat d'une formule,

Edition Copier
Puis selection de la celulle où copier, Edition / Collage Spécial / Valeurs.

Sinon par VBA (pour copier la valeur renvoyée par la formule de la cellule A1 vers A2) :

Range("A2") = Range("A1")

Je peux pas ouvrir ton.xslx alors je fais un cas général, adapte le à ton pb.

 

[Robert]

Re : remplacer la formule par ca valeur

Bonjour Iliess, bonjour le forum,

Je n'ai pas ouvert ton fichier mais tu peux faire Copier, puis menu Edition/Collage spécial... et la tu choisis l'option valeurs.

[Édition]

Bonjour Softmama on s'est croisé....

 

[iliess]

Re : remplacer la formule par ca valeur

merci mr softmama ça marche trés bien
voici mon code qui est dans le fichier
est ce qu'il ya un moyen de minimisé mon code

Sheets("table").Range("a1").End(xlDown).Offset(1, 0).Value = Sheets("caisse").Range("b1").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 1).Value = Sheets("caisse").Range("b2").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 2).Value = Sheets("caisse").Range("b5").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 3).Value = Sheets("caisse").Range("b6").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 4).Value = Sheets("caisse").Range("b7").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 5).Value = Sheets("caisse").Range("b8").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 6).Value = Sheets("caisse").Range("b9").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 7).Value = Sheets("caisse").Range("b12").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 8).Value = Sheets("caisse").Range("b13").Value
Sheets("table").Range("a1").End(xlDown).Offset(0, 9).Value = Sheets("caisse").Range("b14").Value

et merci beaucoup

 

[Robert]

Re : remplacer la formule par ca valeur

Bonjour le fil, bonjour le forum,

Pas vraiment minimisé :

Sub Macro1()
Dim dest As Range
Set dest = Sheets("table").Range("A1").End(xlDown)
With Sheets("caisse")
    dest.Offset(1, 0).Value = .Range("B1").Value
    For x = 1 To 9
        Select Case x
            Case 1
                y = x + 1
            Case Is > 1
                y = x + 3
            Case Is > 6
                y = x + 5
            End Select
        dest.Offset(0, x).Value = .Cells(y, 2).Value
    Next x
End With
End Sub

[Édition :]
Bonjour Masterdisco on s'est croisé