Reference circulaire !...

G

Guest

Guest

• 3 Février 2014

• #2

Re : Reference circulaire !...

Bonjour,

Indications incohérentes avec l'exemple! Mais peut-être que cela suffira:

Code:

Range("I10").Value = Range("I1").Value
Range("I4:I9").ClearContents

A+

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 3 Février 2014

• #3

Re : Reference circulaire !...

Bonjour

Ceci vous conviendrait -il ?

 

Pièces jointes

• ref_circulaire.xlsm

  29.1 KB · Affichages: 32

Vote positif 0 Vote négatif

B

bercla

XLDnaute Nouveau

• 3 Février 2014

• #4

Re : Reference circulaire !...

Merci a vous deux,
Hasco ta formule fait la raz mais pas le transfert de I9 en I2
Gilbert c'est le contraire que je voudrais pas I2 en I9 mais I9 en I2 avant raz

Private Sub CommandButton1_Click()
Range("A4:A9,B4:B9,C4:C9,D49,4:E9") = ""
(ecrire le total I9 en I2)
Range("I4:I9")=""
End Sub

 

Vote positif 0 Vote négatif

B

bercla

XLDnaute Nouveau

• 3 Février 2014

• #5

Re : Reference circulaire !...

PARDON

il ne faut pas que je fasse raz I4:I9 cela enlève les formule des cellules et dans le raz A à E elle reviennent a zero

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 3 Février 2014

• #6

Re : Reference circulaire !...

je ne comprends pas votre logique mais bon

il n'y a pas de formule c'est du VBA

 

Pièces jointes

• ref_circulaire_v2.xlsm

  29.2 KB · Affichages: 79

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Février 2014

• #7

Re : Reference circulaire !...

Re

Bercla, soit plus clair!!!! Ta flèche à double sens ne montre pas i9 mais i10! De plus il fallait donner toutes les informations dans ta demande!!!!

Les réponses sont à la hauteur des demandes!

A+

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 3 Février 2014

• #8

Re : Reference circulaire !...

et ce n'est pas I2 mais I1

 

Vote positif 0 Vote négatif

B

bercla

XLDnaute Nouveau

• 3 Février 2014

• #9

Re : Reference circulaire !...

oui excuse moi mais il y a deux erreurs, I1 et non I2 , et I10 et non I9

 

Vote positif 0 Vote négatif

B

bercla

XLDnaute Nouveau

• 3 Février 2014

• #10

Re : Reference circulaire !...

A toutes les reponses,

Je viens de trouver une solution

Private Sub CommandButton1_Click()
Range("I1") = Range("I10")
Range("A4:A9,B4:B9,C4:C9,D49,E4:E9") = ""
End Sub

mais comment faire, lorque je veux fermer (enregistrer) le fichier j'ai un avertissement comme quoi l' enregistrement ne prend pas en charge ce type de fichier il faut que l'enregistre dans un fichier prenant en charges les macros, dans la liste types de fichiers

Et là ou trouver cette liste

Merci a vous

 

Vote positif 0 Vote négatif

B

bercla

XLDnaute Nouveau

• 3 Février 2014

• #11

Re : Reference circulaire !...

Je viens de comprendre et cela marche

Mes excuses a vous et merci encore de votre aide

Claude

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 3 Février 2014

• #12

Re : Reference circulaire !...

il faut enregistrer en xlsm et non en xlsx

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Février 2014

• #13

Re : Reference circulaire !...

Re,

Dans la fenêtre d'enregistrer sous,
Sous la zone nom de fichier, cliquer sur le bouton 'Type:' normalement xlsm est le deuxième choix.

Code:

Range("A4:A9,B4:B9,C4:C9,D4:D9,E4:E9") = ""

Devrait pouvoir s'écrire:

Code:

Range("A4:E9") = ""

A+[

 

Vote positif 0 Vote négatif

B

bercla

XLDnaute Nouveau

• 3 Février 2014

• #14

Re : Reference circulaire !...

oui merci c'était tellement bête que je suis passé à coté

Merci encore à toi pour ta réponse

Claude

 

Vote positif 0 Vote négatif