Liaisons avec la feuille precedente

[ron0013]

Bonjour,

Comment lier une cellule a une cellule se trouvant sur la feuille précédente sans nommé la feuille ? ce qui importe est le fait de reprendre la valeur de la feuille immédiatement précédente car suivant les cas, des feuilles peuvent être ajouter ou supprimer donc la liaison du type ='Feuil4'!E7 ne marche plus si je rajoute la feuil5 ou si je supprime la feuil4

Merci d'avance pour vos réponses.

Roni

 

[Guest]

Re : Liaisons avec la feuille precedente

Bonjour,

Avec la fonction personnalisée ci-dessous:

[COLOR=blue]Function[/COLOR] FeuillePrécédente()
    Application.Volatile
    [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] ActiveSheet.Previous [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR]
        FeuillePrécédente = [I]"'"[/I] & ActiveSheet.Previous.Name & [I]"'!"[/I]
    [COLOR=blue]Else[/COLOR]
        [COLOR=green]'Renvoyer l'erreur NA[/COLOR]
        FeuillePrécédente = CVErr(xlErrNA)
    [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Function[/COLOR]

Exemple d'utilisation dans une cellule.

Renvoyer la valeur de A1 de la feuille précédente:

=INDIRECT(feuilleprécédente() & "A1")

Sur la première feuille (n'ayant donc pas de précédente) la formule renverra #N/A

A+

 

[ron0013]

Re : Liaisons avec la feuille precedente

impec
Merci bcp de ton aide