changer valeur

[Dennnisss]

Bonjour a tous

Voici une formule que j'ai dans mon user et au lieu d'effacer les valeur ClearContents qui sont egale peut-on lui dire de mettre de zero a la place

Dim vCell As Range
For Each vCell In Range("AK3:AK122")
If (vCell / 3) = vCell.Offset(0, -3) Then
Range(vCell.Offset(0, -3), vCell.Offset(0, -1)).ClearContents
End If
Next vCell


merci de votre aide

dennnisss 😉 😉

 

[dg62]

Re : changer valeur

Bonsoir

Range(vCell.Offset(0, -3), vCell.Offset(0, -1)).value = 0

 

[JCGL]

Re : changer valeur

Bonsoir,

Essaye avec :

Dim vCell As Range
For Each vCell In Range("AK3:AK122")
If (vCell / 3) = vCell.Offset(0, -3) Then
Range(vCell.Offset(0, -3), vCell.Offset(0, -1)).Value = 0 'ClearContents
End If
Next vCell

A+

Oups : Collision avec Didier ;-)

 

[Gorfael]

Re : changer valeur

Salut Dennnisss et le forum

Voici une formule 😕 que j'ai dans mon user et au lieu d'effacer les valeur ClearContents qui sont egale peut-on lui dire de mettre de zero a la place

Dim vCell As Range
For Each vCell In Range("AK3:AK122")
If (vCell / 3) = vCell.Offset(0, -3) Then
Range(vCell.Offset(0, -3), vCell.Offset(0, -1)) = 0
End If
Next vCell

A+

 

[Dennnisss]

Re : changer valeur

Salut DG62 , JCGL , GORFAEL

Ok je vous remercie tous j'ai pris note et la correction est faite

merci de votre aide

dennnisss 😉 😉