Trouver l'information dans l'avant dernière cellule d'une colonne
Fermé
Mayou0202
-
Modifié le 30 sept. 2019 à 21:38
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 1 oct. 2019 à 16:38
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 1 oct. 2019 à 16:38
A voir également:
- Trouver l'information dans l'avant dernière cellule d'une colonne
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Trouver adresse mac - Guide
- Colonne word - Guide
- Si cellule contient texte alors ✓ - Forum Excel
3 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
1 oct. 2019 à 10:18
1 oct. 2019 à 10:18
Bonjour
peut être avec (s'il n'y a pas de cellule vide en A:A de la feuil A8
=INDEX(INDIRECT("'"&A8&"'!A:A");NBVAL(INDIRECT("'"&A8&"'!A:A"))-1)
crdlmnt
peut être avec (s'il n'y a pas de cellule vide en A:A de la feuil A8
=INDEX(INDIRECT("'"&A8&"'!A:A");NBVAL(INDIRECT("'"&A8&"'!A:A"))-1)
crdlmnt
Malheureusement, cela ne fonctionne pas. Je crois que les cellules fusionnées pourraient expliquer le tout.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
1 oct. 2019 à 14:41
1 oct. 2019 à 14:41
Bonjour Mayou, Vaucluse
...."Je crois que les cellules fusionnées pourraient expliquer le tout."
Dans ce cas:
...."Je crois que les cellules fusionnées pourraient expliquer le tout."
Dans ce cas:
Mettre le classeur sans données confidentielles en pièce jointe sur
https://mon-partage.fr
Dans lien de téléchargement
faire un clic droit- copier l’adresse du lien et le coller dans votre message en cours sur ccm
Bonjour,
Voici le lien vers un fichier exemple:
Il a fallu que je fasse une version simplifiée, car le fichier original contient trop de données que je devais modifier (il comporte 70 feuilles au moins, avec des années de changements).
Je n'ai pas laissé la macro de la TdeM qui créer automatiquement les liens vers les différentes feuilles dans la colonne A, car le problème n'est pas là. Le bouton est quand même là.
Voici le lien vers un fichier exemple:
https://mon-partage.fr/f/oNBnrPzN/
Il a fallu que je fasse une version simplifiée, car le fichier original contient trop de données que je devais modifier (il comporte 70 feuilles au moins, avec des années de changements).
Je n'ai pas laissé la macro de la TdeM qui créer automatiquement les liens vers les différentes feuilles dans la colonne A, car le problème n'est pas là. Le bouton est quand même là.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
1 oct. 2019 à 16:05
1 oct. 2019 à 16:05
Tu demandes l'avant-dernier document mais Tu as le cas où tu n'as qu'un document (p.e: "lettre_prés")
que fait-on dans ce cas ?
que fait-on dans ce cas ?
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié le 1 oct. 2019 à 16:40
Modifié le 1 oct. 2019 à 16:40
Effectivement, "Retour à la table des matières" est à mettre ailleurs que dans la colonne "A"; une fois fait cette modif:
ci dessous proposition de fonction en attendant que tu répondes à mon post "que fait on ?
ci dessous proposition de fonction en attendant que tu répondes à mon post "que fait on ?
Option Explicit
'-------------------------------------------------------------
Function av_dern_doc(Feuille As String)
Dim Derlig As Byte, Lig As Byte
With Sheets(Feuille)
Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
Lig = .Columns("A").Find(what:="*", after:=Cells(Derlig, "A"), searchdirection:=xlPrevious).Row
av_dern_doc = .Cells(Lig, "A")
End With
End Function