Bonjour, Comment faire référence à la feuille précédent celle en cours ? Configuration: Mac OS X Mountain Lion (10.8.2) / Safari 6.0.2

bonjour, en VBA, pour récupérer le nom de la feuille précédente :Sheets(ActiveSheet.Index - 1).Name vous pouvez donc vous inspirer de ce code pour faire référence à la feuille précédente. Cordialement.

Bonjour, un exemple de fonction personnalisée : Function Cel_P_Précédente(cel As Range) As Variant Dim idx As Long Application.Volatile idx = Application.Caller.Worksheet.Index If idx = 1 Then Error (xlErrValue) Else Cel_P_Précédente = Worksheets(idx - 1).Range(cel.Address) End If End FunctionFonction personnalisée en vba à mettre dans un module standard (Alt+F11 pour ouvrir VBE). https://www.cjoint.com/?CBhucLE5atP eric

Référence à une feuille :

gth3 -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention - 7 févr. 2013 à 20:04

Bonjour,

Comment faire référence à la feuille précédent celle en cours ?

Afficher la suite

2 réponses

Réponse 1 / 2
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention 1 313
bonjour,

en VBA, pour récupérer le nom de la feuille précédente :
```
Sheets(ActiveSheet.Index - 1).Name
```
vous pouvez donc vous inspirer de ce code pour faire référence à la feuille précédente.

Cordialement.
0
1. gth3
  
  Merci pour la rapidité de votre réponse;ce qui n'est pas mon cas;
  D'autant plus que je ne connais pas le langage VBA !
  Donc problème !
  Je ne voulais que, dans une formule, faire référence à une cellule de la page précédente.
  Et en dupliquant la feuille en cours, en la nommant différemment (bien sûr) la dite formule dupliquée fasse référence automatiquement à la nouvelle feuille précédente.
  Je me demande si je suis lisible ?
  Tout aussi cordialement.
  
  0
Réponse 2 / 2
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
Bonjour,

un exemple de fonction personnalisée :
```
Function Cel_P_Précédente(cel As Range) As Variant
    Dim idx As Long
    Application.Volatile
    idx = Application.Caller.Worksheet.Index
    If idx = 1 Then
        Error (xlErrValue)
    Else
        Cel_P_Précédente = Worksheets(idx - 1).Range(cel.Address)
    End If
End Function
```
Fonction personnalisée en vba à mettre dans un module standard (Alt+F11 pour ouvrir VBE).

https://www.cjoint.com/?CBhucLE5atP

eric
0

Référence à une feuille :

2 réponses

Discussions similaires

Newsletters