Refedit et calculs

pierrejean

XLDnaute Barbatruc

• 4 Novembre 2006

• #2

Re : Refedit et calculs

bonjour Toutou

a 1ere vue la mise en place du calcul doit se faire par quelque cjose du genre:

range("A1").formula="=SUM(A2:A20)"

sinon tu peux creer un fichier avec des données "bidons" pour que l'on puisse t'aider efficacement

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 5 Novembre 2006

• #3

Re : Refedit et calculs

bonjour toutou, salut pierrejean

en pièce jointe un petit exemple de ce que l'on peut faire à l'aide d'un inputbox (méthode).

salut

 

Pièces jointes

• Classeur1.zip

  7.1 KB · Affichages: 65
• Classeur1.zip

  7.1 KB · Affichages: 62
• Classeur1.zip

  7.1 KB · Affichages: 66

Vote positif 0 Vote négatif

T

Toutou

XLDnaute Occasionnel

• 7 Novembre 2006

• #4

Re : Refedit et calculs

Bonjour le forum, Hervé, Pierre-Jean,

merci pour ta proposition, ça m'a donné des idées, mais concernant la ligne de code:
Set Plage = Application.Inputbox ( "Quelle Plage ?", Type:= 8 );

A quoi correspond le "Type"? Et quelle son importance?

mais ce que je souhaiterai, c'est plus de réccupéré la formule que la valeur. Car si la valeur d'une cellule de la plage de cellules selectionnées dont sont issue les termes du calculs varie, alors le résultat est mis a jour automatiquement.

J'ai joint un fichier pour une meilleure explications.

Au passage, est-il possible de selectionner une plage de cellule automatiquement?

par exemple, si une cellule est colorée en vert, alors sélectionner les 5 cellules suivantes vers la droite?

merci d'avance,

Toutou

 

Pièces jointes

• exemple.zip

  9.2 KB · Affichages: 26
• exemple.zip

  9.2 KB · Affichages: 25
• exemple.zip

  9.2 KB · Affichages: 26

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Novembre 2006

• #5

Re : Refedit et calculs

bonsoir Toutou

en attendant Que Hervé passe par la

vois le fichier joint

tout n'est pas expliqué mais les problemes sont en voie de resolution

 

Pièces jointes

• exemple.xls

  29 KB · Affichages: 83
• exemple.xls

  29 KB · Affichages: 85
• exemple.xls

  29 KB · Affichages: 80

Vote positif 0 Vote négatif

T

Toutou

XLDnaute Occasionnel

• 7 Novembre 2006

• #6

Re : Refedit et calculs

merci Pierre Jean pour ta reponse,

mais malheureusement mon probleme persiste; car l'exemple est une simplification extreme de mon probleme; et je tiens vraiment a pouvoir choisir la plage de cellules qui entrent en compte dans le calculs; entre autre autre pour pouvoir facilement les changer. Mais je ne sais pas de Refedit ou Inputbox lequel convient le mieux...

merci encore,

bonne soiree,

Toutou

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Novembre 2006

• #7

Re : Refedit et calculs

Bonsoir Hervé,pierre-Jean,Toutou
un essai avec évènement feuille
si le curseur est dans la plage c2:g8,la somme de la colonne se fait
à bientôt

 

Pièces jointes

• exemple.xls

  33.5 KB · Affichages: 82
• exemple.xls

  33.5 KB · Affichages: 84
• exemple.xls

  33.5 KB · Affichages: 83

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Novembre 2006

• #8

Re : Refedit et calculs

bonjour Toutou

Salut Hervé
Salut Bebere

voila un essai avec refedit

 

Pièces jointes

• exemplerefedit.xls

  37 KB · Affichages: 79

Vote positif 0 Vote négatif

T

Toutou

XLDnaute Occasionnel

• 9 Novembre 2006

• #9

Re : Refedit et calculs

Bonjour a tous,

merci Piere-Jean, bebere et Herve de vous etre penches sur mon pb.
J'ai adapter la derniere proposition de Pierre-Jean a mon probleme et ca tourne nickel. Sauf que je me demandais s'il etait possible de retirer auomatiquement le symbole $ qui s'insere dans le controle Refedit et qui me gene un peu...

Sinon, j'aurais un autre probleme a vous soumettre (cf pj):
toujours avec un control refedit, je voudrais pouvoir selectionne la plage de valeur a afficher dans un graphique afin de ne pas passer par le menu source du graphique et diminuer les pb ayant une cause humaine.
J'ai essaye, mais encore une fois, le controle Refedit me donne du fil a retordre...

pourriez vous jeter un coup d'oeil a mon fichier et ms dire ce qui cloch svp?

merci d'avance,

bonne soiree a toutes et tous,

Toutou

 

Pièces jointes

• exemplerefedit.zip

  15 KB · Affichages: 21

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Novembre 2006

• #10

Re : Refedit et calculs

bonsoir Toutou

bonsoir a tous

j'en ai bavé et le code est une veritable horreur mais...

Il tourne !!!

Hervé S.T.P ne rigole pas trop

 

Pièces jointes

• exemplerefeditb.zip

  20.3 KB · Affichages: 44

Vote positif 0 Vote négatif

T

Toutou

XLDnaute Occasionnel

• 12 Novembre 2006

• #11

Re : Refedit et calculs

Bonjour a toutes et tous,

c'est super, Merci 1000 fois Pierre-Jean,
c'est nickel, c'est exactement ce que je souhaitais faire.

Bon dimanche,

a+

Toutou

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Novembre 2006

• #12

Re : Refedit et calculs

Bonjour

j'avais perdu ce fil de vue

pierrejean, j'ai pas rigolé en voyant ton code 😛

une autre syntaxe possible :

Code:

Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1).Values = Range(RefEdit1)
Unload Me
End Sub

si j'ai bien compris de quoi on parlait

salut

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Novembre 2006

• #13

Re : Refedit et calculs

re

ajoutons un test si le refedit est vide, c'est plus propre :

Code:

Private Sub CommandButton1_Click()
If Not RefEdit1 = "" Then
    ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1).Values = Range(RefEdit1)
End If
Unload Me
End Sub

salut

 

Vote positif 0 Vote négatif

T

Toutou

XLDnaute Occasionnel

• 18 Décembre 2006

• #14

Re : Refedit et calculs

Bonsoir a tous,

merci Hervé pour ces dernières propositions.
Je pensais en avoir fini (grace a votre aide) avec mon programme;
mais il y a un cas que je n'avais pas envisagé:
si ma sélection n'est pas continue le programme bug et je ne comprends pas pourquoi. Par exemple:
si je souhaite sélectionner les cellules
A1, A2, A3, et A4 ca roule,
mais si j'ajoute la cellule A8, SANS les cellules A5, A6 et A7 alors rien ne va plus...
est-ce que quelqu'un pourrait me dire pourquoi?
J'espere que mes explications sont claires...

je vous remercie d'avance,

Bonne soirée,

Toutou

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 18 Décembre 2006

• #15

Re : Refedit et calculs

bonsoir Toutou


Private Sub CommandButton1_Click()
'ancienne ligne
Range(RefEdit3).Formula = "=SUM(" & RefEdit1 & "," & RefEdit2 & ")"
'nouvelle ligne
Range(RefEdit3).Formula = "=SUM(" & RefEdit1 & ")+Sum(" & RefEdit2 & ")"
End Sub

à bientôt

 

Vote positif 0 Vote négatif