j ai une procedure qui excute une formule le resultat est correct sauf
la formule reste aussi
je voudrais un genre de collage special valeur
Merci
voila mon code
Sub DatLivManqSfTar()
Dim Rg As Range
With Worksheets("Feuil1") 'Nom =E0 adapter
With .Range("CY2")
.Formula =3D "=3DIF(CW2<>0,MAX(DE2,DM2,DU2,EC2,EK2,ES2,FA2),0)"
End With
DerLig =3D .Cells.Find(What:=3D"*", _
LookIn:=3DxlFormulas, _
SearchOrder:=3DxlByRows, _
SearchDirection:=3DxlPrevious).Row
.Range("CY2:CY" & DerLig).FillDown
End With
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Essaie :
Sub DatLivManqSfTar() Dim Rg As Range With Worksheets("Feuil1") 'Nom à adapter With .Range("CY2") .Formula = "=IF(CW2<>0,MAX(DE2,DM2,DU2,EC2,EK2,ES2,FA2),0)" '.Value = .Value End With DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row With .Range("CY2:CY" & DerLig) .FillDown .Value = .Value End With End With End Sub
Daniel
Bonjour tout le monde
j ai une procedure qui excute une formule le resultat est correct sauf la formule reste aussi
je voudrais un genre de collage special valeur
Merci
voila mon code
Sub DatLivManqSfTar() Dim Rg As Range With Worksheets("Feuil1") 'Nom à adapter With .Range("CY2") .Formula = "=IF(CW2<>0,MAX(DE2,DM2,DU2,EC2,EK2,ES2,FA2),0)"
End With DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row .Range("CY2:CY" & DerLig).FillDown End With End Sub
Bonjour,
Essaie :
Sub DatLivManqSfTar()
Dim Rg As Range
With Worksheets("Feuil1") 'Nom à adapter
With .Range("CY2")
.Formula = "=IF(CW2<>0,MAX(DE2,DM2,DU2,EC2,EK2,ES2,FA2),0)"
'.Value = .Value
End With
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
With .Range("CY2:CY" & DerLig)
.FillDown
.Value = .Value
End With
End With
End Sub
Daniel
Bonjour tout le monde
j ai une procedure qui excute une formule le resultat est correct sauf
la formule reste aussi
je voudrais un genre de collage special valeur
Merci
voila mon code
Sub DatLivManqSfTar()
Dim Rg As Range
With Worksheets("Feuil1") 'Nom à adapter
With .Range("CY2")
.Formula = "=IF(CW2<>0,MAX(DE2,DM2,DU2,EC2,EK2,ES2,FA2),0)"
End With
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
.Range("CY2:CY" & DerLig).FillDown
End With
End Sub
Sub DatLivManqSfTar() Dim Rg As Range With Worksheets("Feuil1") 'Nom à adapter With .Range("CY2") .Formula = "=IF(CW2<>0,MAX(DE2,DM2,DU2,EC2,EK2,ES2,FA2),0)" '.Value = .Value End With DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row With .Range("CY2:CY" & DerLig) .FillDown .Value = .Value End With End With End Sub
Daniel
Bonjour tout le monde
j ai une procedure qui excute une formule le resultat est correct sauf la formule reste aussi
je voudrais un genre de collage special valeur
Merci
voila mon code
Sub DatLivManqSfTar() Dim Rg As Range With Worksheets("Feuil1") 'Nom à adapter With .Range("CY2") .Formula = "=IF(CW2<>0,MAX(DE2,DM2,DU2,EC2,EK2,ES2,FA2),0)"
End With DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row .Range("CY2:CY" & DerLig).FillDown End With End Sub