Copie d'une valeur et non d'une formule

[nougitch]

Bonjour,

J'aimerais savoir comment ne copier que la valeur comprise dans une cellule vers une autre cellule, et non la formule.

Je m'explique.
Si en A1, j'ai 15000, il me copie bien 15000 en A10.
Si en A1, j'ai =30000/2, il me copie =30000/2 en A10. Or, j'aimerais qu'il n'y ait que 15000 dans cette cellule A10.

Je vuos remercie par avance.
Cdt,

 

[Cousinhub]

Re : Copie d'une valeur et non d'une formule

Bonjour, essaie :
Range("A10).Value = Range("A1").Value

 

[Catrice]

Re : Copie d'une valeur et non d'une formule

Bonsoir,

Ou bien, à la main (sans macro).
Edition/copier
Edition/collage Spécial/Valeurs

 

[nougitch]

Re : Copie d'une valeur et non d'une formule

Hello,
Merci pour votre 🙂
Catrice, le nouveau fichier que tu m'as envoyé fonctionne parfaitement.
Double merci.
++

 

[WDAndCo]

Re : Copie d'une valeur et non d'une formule

Bonsoir le Forum

J'ai un classeur de suivis d'heures, toutes les semaines ce classeur m'en créer un nouveau avec le n° de la semaine. Et a chaque ouverture du classeur 'Semaine" j'ai droit à : voulez vous mettre a jour les données ?

D'où ma question : cela marche aussi entre différents classeurs ?

 

[Cousinhub]

Re : Copie d'une valeur et non d'une formule

Bonsoir,
tout d'abord, avant de poser une nouvelle question, il est bien préférable de répondre, ou donner une suite à une question ultérieure

Ensuite, pour répondre à ta question, ce code :

Range("A10).Value = Range("A10").Value

remplace la formule (s'il y en a une) par la valeur (correspond au Collage Spécial/Valeurs)
Bonne soirée

 

[WDAndCo]

Re : Copie d'une valeur et non d'une formule

Bonjour le Forum

Merci pour cette réponse mais cela marche pour une cellule isolée mais dans mon cas ces des partie de ligne !
Voir le code ici dessous !

Sub miseenfichier2pages()
'
' miseenfichier2pages Macro
' Macro enregistrée le 01/02/2005 par WD And Co
'

'
Union(Range( _
"U3:U4,P3😛4,T3:T4,S3:S4,O3:O4,N3:N4,M3:M4,J3:J4,W3:W4,3:35,AB3:AB4,AE3:AE4,AD3:AD4,AC3:AC4,AF3:AF4,Z3:Z4,AL3:AL4,AI3:AI4,AG3:AG4,AH3:AH4,AN3:AN4,AO3:AO4,AP3:AP4,AQ3:AQ4,AV3:AV4,AU3:AU4,X3:X4,Y3:Y4,I3:I4,3:34,K3:K4,L3:L4" _
), Range( _
"R3:R4,Q3:Q4,AJ3:AJ4,AK3:AK4,AR3:AR4,AM3:AM4,AS3:AS4,AA3:AA4,AT3:AT4,V3:V4")). _
Select
Range("A3").Activate
Selection.EntireRow.Hidden = False
Range("A14").Select
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Select
Sheets("TNA A et D").Activate
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Copy
Sheets("VHR A et D").Select
Call avecressources2
Call Effacecolonne
Columns("Q:Q").Select
Selection.EntireColumn.Hidden = True
Dim li As Long
Dim x As Long
li = 81
For x = li To 5 Step -1
If Cells(x, 10).Value = "" And Cells(x, 11).Value = "" Then
Rows(x).Delete
End If
Next x

Columns("Q:Q").Select
Selection.EntireColumn.Hidden = True
Columns("AJ:AU").Select
Selection.Delete Shift:=xlToLeft
Sheets("TNA A et D").Select
Range("A1").Select
ActiveWorkbook.SaveAs FileName:= _
"F:\WD And Co\Personnel\Semaines CRU 2008\Secteur SM S00.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("VHR A et D").Select
Range("J2").Select
End Sub

Comment faire pour ne plus avoir le message 'Voulez vous mettre a jour ?'

 

[Cousinhub]

Re : Copie d'une valeur et non d'une formule

Bonjour,
d'après ton code, je ne vois pas de liaisons
Cependant, lorsque tu fais Edition/Liaisons, et Invite de démarrage, tu peux choisir la manière dont excel met à jour les liaisons, ou tu rajoutes ce code à l'ouverture du fichier :

ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

 

[WDAndCo]

Re : Copie d'une valeur et non d'une formule

Re bhbh

Je crées un nouveau classeur Secteur SM S00 avec :

ActiveWorkbook.SaveAs FileName:= _
"F:\WD And Co\Personnel\Semaines CRU 2008\Secteur SM S00.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

Comment rajouter ton code :

ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

lors de la création de celui-ci ?

 

[Cousinhub]

Re : Copie d'une valeur et non d'une formule

Re-,
essaie en mettant ce code dans le ThisWorkbook :

Private Sub Workbook_Open()
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub

 

[WDAndCo]

Re : Copie d'une valeur et non d'une formule

Re-
Je ne peu pas faire cela !

ActiveWorkbook.SaveAs FileName:= _
"F:\WD And Co\Personnel\Semaines CRU 2008\Secteur SM S00.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Private Sub Workbook_Open()
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub
ActiveWindow.Close

Alors ou mettre ton code a la création du fichier ?

 

[Cousinhub]

Re : Copie d'une valeur et non d'une formule

Re-,
OK, supprime les deux lignes Private Sub......., et End sub, garde uniquement la ligne du milieu.

 

[WDAndCo]

Re : Copie d'une valeur et non d'une formule

Merci beaucoup, et bon dimanche

 

[WDAndCo]

Re : Copie d'une valeur et non d'une formule

Bonjour le Forum

Mal grès cette modification, j'ai encore a l'ouverture du fichier généré un message me demandant de mettre ou pas a jour !