changer valeur

dg62

XLDnaute Barbatruc

• 8 Avril 2007

• #2

Re : changer valeur

Bonsoir

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 8 Avril 2007

• #3

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

Cliquez pour agrandir...

A+

Oups : Collision avec Didier ;-)

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 8 Avril 2007

• #4

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+

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 8 Avril 2007

• #5

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 😉 😉

 

Vote positif 0 Vote négatif