Calcul et liaison sur colonne active

[guigui76]

Bonjour, dans un désir d'alléger l'ouverture d'un fichier puis-je faire ceci:

_De réaliser le calcul que sur la colonne active et sur un nombre donnée de (B1>b200).
_D'avoir les mises à jour que sur la colonne active.
_Et que les fromules ne soit active que sur la colonne active.

Merci

 

[JCGL]

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

 

[guigui76]

Re : Calcul et liaison sur colonne active

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

 

[Guillaumega]

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.

 

[guigui76]

Re : Calcul et liaison sur colonne active

et non les calculs sont fait par formule.

 

[guigui76]

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?

Sub d()

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

End Sub

 

[guigui76]

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

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

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

End Sub

 

[JCGL]

Re : Calcul et liaison sur colonne active

Bonjour à tous,

Peux-tu essayer :

Dans un module :

[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

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

A+ à tous

 

[guigui76]

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.

 

[JCGL]

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 :

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

Dans le module de la feuille :

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

Dans un module :

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

A+ à tous

 

[guigui76]

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.

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

 

[guigui76]

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.

 

[guigui76]

Re : Calcul et liaison sur colonne active

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

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

 

[guigui76]

Re : Calcul et liaison sur colonne active

Pour les liaisons je pensais naîvement faire ceci:

ActiveCell.EntireColumn.xlUpdateLinksAlways

Mais non si vous avez une idée?
Merci