Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

comment faire référence à l'onglet précédent

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

alfazoulou

XLDnaute Occasionnel
Bonjour le forum,
pourriez vous me dire comment faire référence à l'onglet précédent.
je m'explique.
à l'activation d'une feuille je voudrais que la cellule A2 contienne la valeur de la cellule A1 de la feuille précédente dont je ne connais pas le nom.
J'imagine une histoire de Count-1 mais bon...😱
merci pour votre aide.
 
Trier par date Trier par votes
Re : comment faire référence à l'onglet précédent

Bonjour Alfazoulou,

code ci dessous à placer dans le module de la feuille concernée :

Code: 
Option Explicit
Private Sub Worksheet_Activate()
If Me.Index > 1 Then Range("A2").Value = Sheets(Me.Index - 1).Range("A1").Value
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : comment faire référence à l'onglet précédent


merci pierrot93 pour ta réponse, en fait j'ai trouvé entre temps que l'on pouvait écrire If Sheets(Sheets.Count - 1) pour faire référence à la page d'avant.
 
Vote positif 0 Vote négatif
Re : comment faire référence à l'onglet précédent

Re, bonsoir Job

Car si le code est placé dans le premier onglet, cela planterait car il n'existe pas d'index 0... simple test...

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : comment faire référence à l'onglet précédent

Bonjour le forum,

Quelqu'un pourrait-il m'expliquer ce qu'il convient d'entendre par "dans le module" ? S'agit-il d'une macro ?

Merci par avance.
 
Vote positif 0 Vote négatif
Re : comment faire référence à l'onglet précédent

Bonjour toutvavraimentbien,

Il s'agit en effet de ce que l'on appelle une macro.

Et j'en profite pour améliorer la macro de Pierrot 🙂

Pour qu'elle fonctionne sur toutes les feuilles, coller dans ThisWorkbook :

Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index > 1 Then Sh.Range("A2") = Sheets(Sh.Index - 1).Range("A1")
End Sub
Pour cela Alt+F11 pour aller dans Visual Basic, puis double-clic en haut à gauche sur ThisWorkbook.

A+
 
Vote positif 0 Vote négatif
Re : comment faire référence à l'onglet précédent

Re,

S'il y a des feuilles type "Graphique" intercalées, la macro précédente plante...

Alors on peut utiliser une macro un peu plus compliquée, toujours dans ThisWorkbook :

Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
For i = 2 To Worksheets.Count
  If Worksheets(i).Name = Sh.Name Then
    Sh.Range("A2") = Worksheets(i - 1).Range("A1")
    Exit For
  End If
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Re : comment faire référence à l'onglet précédent

Bonjour job75,

Un autre essai (devrait fonctionner avec n'importe quel type de feuille)
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim X
On Error GoTo FIN:
Set X = Sh
Do
    Set X = X.Previous
Loop Until X.Type = xlWorksheet
Sh.Range("A2") = X.Range("A1")
FIN:
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer
2
Réponses
19
Affichages
1 K
nikeu01
N
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
256
Atiom
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
593
Dranreb
A
  • Résolu(e)
XL 2021 Ajustement automatique d'une référence cellule dans une macro ?
Réponses
2
Affichages
367
Alamyr
A
M
  • Question Question
Autres Je cherche à extraire des cellules en ordre croissant et sans doublons Les colonnes de référence ne peuvent être triées.
Réponses
5
Affichages
165
Dranreb
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
828
nat54
R
  • Résolu(e)
XL 2021 NB.SI dans la colonne n°3
Réponses
4
Affichages
239
rpatty85
R
D
  • Résolu(e)
Microsoft 365 formule SIERREUR qui semble fausse
Réponses
6
Affichages
234
mapomme
  • Question Question
XL 2016 ajouter, une nouvelle feuille avec le contenu d'une cellule
Réponses
7
Affichages
353
job75
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
346
Marie.
M
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
304
Cousinhub
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
579
laurent950
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
354
komarlehomard
K
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
349
CHRIS1945
C
U
  • Résolu(e)
Autres Comment modifier les macros pour qu’elles arrivent à faire ce que je veux
Réponses
6
Affichages
278
un internaute
U
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
2 K
richard31
R
B
  • Résolu(e)
Microsoft 365 Fonction Si - Ne renvoie pas à la bonne référence
2
Réponses
22
Affichages
940
BSF
B
U
  • Question Question
Autres [RÉSOLU] Comment faire masquer mes plages de cellules vides par macro
2
Réponses
17
Affichages
762
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…