Calcul et liaison sur colonne active

JCGL

XLDnaute Barbatruc

• 24 Mai 2010

• #2

Re : Calcul et liaison sur colonne active

Bonjour à tous,

Je ne pense pas que cela soit possible : la méthode de calcul vaut pour le classeur

A+ à tous

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 24 Mai 2010

• #3

Re : Calcul et liaison sur colonne active

Mince et pour les liaisons avez-vous une idée?

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 24 Mai 2010

• #4

Re : Calcul et liaison sur colonne active

Bonjour,

Si les calculs sont réalisés via macro et non via formule, cela doit être possible.

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 24 Mai 2010

• #5

Re : Calcul et liaison sur colonne active

et non les calculs sont fait par formule.

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 24 Mai 2010

• #6

Re : Calcul et liaison sur colonne active

Voila j'ai reussi a faire une parti de la fonction calcul mais je suis obligé de lancer manuellement la macro.
Comment puis-je faire?

Code:

Sub d()

numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 250, numColumns + 0).Calculate

End Sub

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 24 Mai 2010

• #7

Re : Calcul et liaison sur colonne active

J'arrive à faire fonctionner le systeme mais je dois lancer une fois la macro à l'ouverture du fichier.
Mais je n'arrive pas à le faire automatiquement

Code:

Sub Worksheet_SelectionChange(ByVal Target As Range)
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 250, numColumns + 0).Calculate
End Sub

cela bloque sur

Code:

Sub Workbook_Open()
EnableCalculation = False
[COLOR="Red"]Call Worksheet_SelectionChange[/COLOR]

End Sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 24 Mai 2010

• #8

Re : Calcul et liaison sur colonne active

Bonjour à tous,

Peux-tu essayer :

Dans un module :

Code:

[COLOR=Red]Sub Test[/COLOR]()
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 250, numColumns + 0).Calculate
End Sub

Dans le ThisWorkBook

Code:

Sub Workbook_Open()
EnableCalculation = False
[COLOR=Red]Call Test[/COLOR]
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 25 Mai 2010

• #9

Re : Calcul et liaison sur colonne active

Je viens de faire l'essai, cela ne fonctionne pas car la macro Test ne trourne pas en boucle aprés excusion elle s'arrête.
Je ne sais pas si mon idée est bonne.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Mai 2010

• #10

Re : Calcul et liaison sur colonne active

Bonjour à tous,

Tu veux lancer la macro Test à l'ouverture et à chaque changement sur la feuille ?

Si oui :

Dans le ThisWorkBook :

Code:

Private Sub Workbook_Open()
EnableCalculation = False
Call Test
End Sub

Dans le module de la feuille :

Code:

Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Test
End Sub

Dans un module :

Code:

Sub Test()
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 250, numColumns + 0).Calculate
End Sub

A+ à tous

 

Dernière édition: 25 Mai 2010

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 25 Mai 2010

• #11

Re : Calcul et liaison sur colonne active

Cela fonctionne, comment puis-je faire pourque le calcul se fasse sur la 1er ligne à la 250 eme lignes.

Code:

Selection.Resize([COLOR="Red"]numRows + 250[/COLOR], numColumns + 0).Calculate

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 25 Mai 2010

• #12

Re : Calcul et liaison sur colonne active

Erreur le calcul n'est fait que sur le cellule active et non la colonne.
J'ai mis une piece jointe cela sera plus explicite.

 

Pièces jointes

• Classeur1.xls

  30.5 KB · Affichages: 47
• Classeur1.xls

  30.5 KB · Affichages: 44
• Classeur1.xls

  30.5 KB · Affichages: 46

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 25 Mai 2010

• #13

Re : Calcul et liaison sur colonne active

Voila la modif. qui fonctionne le calcul fonctionne que sur la colonne active.

Code:

Public Sub test()
ActiveCell.EntireColumn.Calculate
End Sub

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 26 Mai 2010

• #14

Re : Calcul et liaison sur colonne active

Pour les liaisons je pensais naîvement faire ceci:

Code:

ActiveCell.EntireColumn.xlUpdateLinksAlways

Mais non si vous avez une idée?
Merci

 

Vote positif 0 Vote négatif