recalcul automatique d'une personnalisée

Question

Bonjour,

je viens de créer une fonction super simple(extraite d'un fichier tres lourd) permettant d'importer la valeur d'une cellule d'une autre feuille (Feuil1). Je sais qu'il y a beaucoupe plus simple, mais c'est juste un exemple. 
donc la fonction est :
 Function seb()
  seb=Sheets("Feuil1").Cells(1,1).Value
 End Function

Comment faire pour que cette fonction se calcul automatiquement (ie a chaque modification de la cellule source) ? Elle ne se met a jour que lorsque je la selectionne pour l'executée.

merci d'avance

charly2812 · Answer

Salut essaye ca, dans vba, sur la feuille "Feuil1"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Range("rgCelluleSource"), Target) Is Nothing) Then
        call seb
    End If
end sub

et : Insertion, nom, définir dans Excel sur la (les) celulles sources puis mettre "rgCelluleSource".
J'espere que ca marchera.

cs_SebastienC44 · Answer

ok merci,
ca ne marche pas. Y a pas un moyen de mettre un bouton qui permettrait de lancer le calcul de toute le routine du classeur?
merci d'avance

charly2812 · Answer

je comprend pas très bien se que tu veux faire en fait, si tu pouvais m'expliquer un peu plus...

cs_SebastienC44 · Answer

OK,
j'ai un fichier avec pas plusieurs onglets. Un premier onglet permet de rentrer des parametres, les autres renvoient des resultats en fonction de ces parametres mais aussi en fonction d'arguments present dans ces onglets (plusieurs centaines de lignes).
L'exemple que j'ai donné est "stupide" mais c'etait juste pour simplifié le probleme.
Ce fichier contient tout un tas de fonction et on se rends compte qu'elles ne se mettent pas à jour à chaque parametrage. Peut faut il revoir tout le classeur ?

charly2812 · Answer

Ce que je t'ai donné au premier post fonctionne normalement, a chaque fois que tu modifies une cellule il lance les procedures/fonctions qui sont dans le if...
il faut juste bien penser à définir les plages dans excel...

mortalino · Answer

salut,

me semble que F9 rafraichit les données d'excel.

comment utilises-tu ta fonction ?
t'as mis =seb dans une cellule ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Recalcul automatique d'une personnalisée

6 réponses

Votre réponse

Discussions similaires