Formules non recalculées

[simraill]

Bonjour tout le monde,

Voilà, j'ai créer un petit classeur excel dans lequel j'utilise une fonction perso qui permet d'aller rechercher le contenue d'une cellule de la feuille précédente que voici :

Function CellFeuillPrec(cell As String)
Dim name As String
If Not ActiveSheet.Index = 1 Then name = Worksheets(ActiveSheet.Index - 1).name
CellFeuillPrec = Sheets(name).Range(cell).Value
End Function

Pour utiliser ma fonction je rentre dans mes cellules je rentre ceci par exemple :

=CellFeuillPrec("E"&ROW(A10))

J'utilise le "&ROW(A10)" afin de pouvoir "tirer vers le bas" ma formule et que ça s'incrémente. (ROW et non LIGNE car je suis sur la version anglaise).

Alors mon problème c'est que si je change la valeur de la cellule E10 (pour reprendre mon exemple) de la feuille précédente, et bah cellule où ma formule est rentrée ne s'actualise pas, la valeur ne change pas.

J'ai tout essayé (dans mes connaissances) F9, shift+f9, fermer le classeur puis le rouvrir. Le seul moyen est de rentrer dans l'eddition de la formule et de la revalidé. Ce qui est plutôt embêtant.

Si quelqu'un a déjà eu ce problème et qu'il a une solution !

Merci,
Simon

 

[simraill]

Re : Formules non recalculées

RE :

La solution de Papou-Net est peut être un peu trop complexe à modifier pour mon niveau !!

Du coup je vais rester sur celle de Pascal !

Mais je ne m'en sort pas avec les formats de date :

Comment faire en VBA pour que à chaque nouvelle feuille la macro la renomme par le mois suivant au format "Octobre 2012"
Et pour incrémenter la cellule contenant la date du mois d'un mois? (J'arrive à incrémenter uniquement les jours).

Sinon j'avais pensé passer une autre cellule qui contiendrais la date du mois suivant que je j'utiliserais pour connaitre le mois suivant et la convertirais pour avoir le nom du mois.
Mais je pense qu'il doit bien y avoir une solution en vba non?

Simon

 

[PascalXLD]

Re : Formules non recalculées

RE

Modif de ta création de feuille pour que cela soit en automatique

 

[Papou-net]

Re : Formules non recalculées

Pour Papou-Net il faut aussi que le recalcul se fasse en cas de modif de la colonne E de la première feuille

RE Pascal,

Voilà qui est réparé.

Amicalement.

PS : je te remercie pour ton compliment, venant de toi, il me touche tout particulièrement.

 

[simraill]

Re : Formules non recalculées

Comment arrivez vous à faire ça en si peu de temps ?!! L'expérience j'imagine ^^!

Bon tout marche au poil, plus rien à retoucher.
J'aurais juste deux question pour ma comprehension personnelle :

-Comment faites vous pour vider le contenue des cellules de la colonne F?

 .Range("M7:M500,P7:P500,S7:S500").ClearContents

Il n'y a rien dans cette ligne de code concernant la plage F7:F500

-A quoi sert cette ligne suivante :

For Each c In .Range("D7:D500").SpecialCells(xlCellTypeConstants)
        c.Offset(0, 2).Value = ""
      Next

 

[Papou-net]

Re : Formules non recalculées

Comment arrivez vous à faire ça en si peu de temps ?!! L'expérience j'imagine ^^!

Bon tout marche au poil, plus rien à retoucher.
J'aurais juste deux question pour ma comprehension personnelle :

-Comment faites vous pour vider le contenue des cellules de la colonne F?

 .Range("M7:M500,P7:P500,S7:S500").ClearContents

Il n'y a rien dans cette ligne de code concernant la plage F7:F500

-A quoi sert cette ligne suivante :

For Each c In .Range("D7:D500").SpecialCells(xlCellTypeConstants)
        c.Offset(0, 2).Value = ""
      Next

RE simraill,

C'est justement la deuxième ligne citée qui efface la colonne F.

Explication :

c.offset(0,2).value=""

dit au code d'effacer la cellule décalée (offset=décalage) de 0 ligne (0) et de 2 colonnes (2).

(c appartient à la colonne D, donc décalage de 2 colonnes = F).

Si tu sélectionnes Offset et que tu cliques sur F1, tu auras toutes les explications nécessaires.

Cordialement.

 

[simraill]

Re : Formules non recalculées

D'accord,
Qu'elle en est l'utilité? Pourquoi ne pas tout simplement rajouter .Range("F7:F500,M7:M500,P7500,S7:S500").ClearContents ??

 

[PascalXLD]

Re : Formules non recalculées

Comment arrivez vous à faire ça en si peu de temps ?!! L'expérience j'imagine ^^!

Re

On est tombé dedans étant petit

Bon sans rire à force d'en faire on prend vite des automatismes et cela vient vite après
D'ailleurs je suis sûr que l'expérience de ce fichier te resservira pour d'autres

Bonne journée

 

[Papou-net]

Re : Formules non recalculées

D'accord,
Qu'elle en est l'utilité? Pourquoi ne pas tout simplement rajouter .Range("F7:F500,M7:M500,P7500,S7:S500").ClearContents ??

J'ai dû séparer le traitement de la colonne D car l'effacement global de la colonne génère une erreur dans la procédure MaJFeuilles. On transmet effectivement la référence de la cellule à traiter et si c'est une plage de cellules ça conduit au plantage. Tu auras d'ailleurs remarqué que la colonne D est traitée au moyen d'une boucle pour chaque cellule individuelle, contrairement aux autres colonnes que j'ai traitées globalement pour diminuer le temps d'exécution.

Tu peux, pour t'amuser ou pour t'aider à comprendre, intégrer cette colonne aux autres et tu constateras toi-même l'anomalie. C'est toujours utile de faire sa propre expérience, notamment pour répondre à ta question précédente : "comment faites-vous...?"

Cordialement.

 

[simraill]

Re : Formules non recalculées

D'accord je comprends.

En tout cas merci beaucoup à vous deux, car sans vous je n'aurais jamais pû finir mon ficher!!