XL 2013 raz de cellules apres calcul de celle ci

JCGL

XLDnaute Barbatruc

• 26 Janvier 2016

• #2

Re : raz de cellules apres calcul de celle ci

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer :

VB:

Sub RaZ()
' Macro de GB
' Reinitialisation des cellules de collecte
    Range("J4:J11") = Range("J4:J11").Value
    Range("I4:I11").ClearContents
    Range("J4:J11").Formula = "=RC[-3]-RC[-1]"
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

B

bandimalou

XLDnaute Occasionnel

• 26 Janvier 2016

• #3

Re : raz de cellules apres calcul de celle ci

bonsoir, merci de votre reponse rapide mais ca efface bien la colonne H mais les colonnes I passent a 0

 

Dernière modification par un modérateur: 26 Janvier 2016

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 26 Janvier 2016

• #4

Re : raz de cellules apres calcul de celle ci

Bonsoir, bandimalou, JC 🙂

Les explications ne correspondent pas au fichier joint : les cellules inutilement fusionnées en sont la cause.
Pour information, la largeur des colonnes d'une feuille Excel est modulable : ici

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Janvier 2016

• #5

Re : raz de cellules apres calcul de celle ci

Bonjour à tous,

Sans les cellules fusionnées

VB:

Sub RaZ()
' Macro de GB
' Reinitialisation des cellules de collecte
   Range("F4:F11") = Range("F4:F11").Value
    Range("D4:E11").ClearContents
    Range("F4:F11").Copy Range("D4")
    Range("F4:F11").Formula = "=RC[-2]-RC[-1]"
End Sub

A+ à tous

 

Pièces jointes

• JC PAPIER GDO.xlsm

  26.9 KB · Affichages: 29

Vote positif 0 Vote négatif

B

bandimalou

XLDnaute Occasionnel

• 27 Janvier 2016

• #6

Re : raz de cellules apres calcul de celle ci

re bonsoir sincèrement désolé je vous ai joint le fichier après avoir travaille dessus
c'est exactement cela que je cherchais je vous remercie par avance

bonne soirée

 

Vote positif 0 Vote négatif