Microsoft 365 Index de Cellule

TCHIS · 25 Février 2023

Bonjour à tous et à toutes
Dans le cadre d'un projet j'ai appliqué un code VBA qui coince juste parce qu'il me faut l'index de ma dernière cellule non vide de mon tableau source.
En conclusion pourriez-vous m'aider à ressortir l'index de ma dernière cellule non vide de ma colonne A.
N.B : Voir pièce jointe cette dernière cellule dont il me faut l'index est ma cellule A6.
Et je ne veux pas appliqué la fonction INDEX+Equiv mais juste savoir l'index de ma cellule.

Pour la petite histoire le code récupérer à pour index de cellule "Xfd1" ce qui correspond à l'index de la cellule A25 et pour qu'il arche chez moi il me faut l'index correspondant à ma dernière cellule non vide sur ma colonne A qui est A6

Pour être plus précis quel peut être l'index de ma cellule A6

TooFatBoy · 25 Février 2023

Bonjour,

TCHIS à dit:
Pour la petite histoire le code récupérer à pour index de cellule "Xfd1" ce qui correspond à l'index de la cellule A25 et pour qu'il arche chez moi il me faut l'index correspondant à ma dernière cellule non vide sur ma colonne A qui est A6

J'pige pô : XFD1 c'est XFD1, ce n'est pas A25.

Je te propose ceci :

Code:

MonIndex = Range("Tbl_Datas[[#Headers],[N°]]").Offset(Range("Tbl_Datas").Rows.Count).Address

Ça te donnera $A$6

Mais je ne suis pas persuadé que travailler avec les adresses des cellules par rapport à la feuille soit le mieux.

Oneida · 25 Février 2023

Bonjour,

VB:

Dim PCV As Long

PCV = Range("A" & Rows.Count).End(xlUp).Row+1        'Derniere cellule non vide + 1

bsalv · 25 Février 2023

bonjour Oneida, TooFatBoy, Tchis

VB:

PCV = Range("A" & Rows.Count).End(xlUp).Row+1        'Derniere cellule non vide + 1

avec cela PCV sera le numéro de la dernière cellule non vide & visible donc si vous utilisez un filtre ou cacher certaines lignes, ce n'est pas sûr que PCV est la dernière !!!!

Un alternatif sur l'idée de TooFatBoy

Code:

     With Range("Tbl_Datas")
          MsgBox .Cells(.Rows.Count, 1).Address
     End With

TooFatBoy · 25 Février 2023

bsalv à dit:
avec cela PCV sera le numéro de la dernière cellule non vide & visible

Je crois que ce sera en fait le numéro de ligne de la cellule située sous la dernière cellule non vide.

TCHIS · 25 Février 2023

TooFatBoy à dit:
Bonjour,

J'pige pô : XFD1 c'est XFD1, ce n'est pas A25.

Je te propose ceci :

Code:

MonIndex = Range("Tbl_Datas[[#Headers],[N°]]").Offset(Range("Tbl_Datas").Rows.Count).Address

Ça te donnera $A$6

Mais je ne suis pas persuadé que travailler avec les adresses des cellules par rapport à la feuille soit le mieux.

Bonjour

TooFatBoy il semble que tu maitrise le sujet concernant l'index.

A partir de fichier test tu peux s'il te plait me ressortir l'index de colonne de ma dernière cellule non vide ?

Aidez moi s'il vous plait

TooFatBoy · 25 Février 2023

TCHIS à dit:
A partir de fichier test tu peux s'il te plait me ressortir l'index de colonne de ma dernière cellule non vide ?

Tu ne veux plus le numéro de ligne par rapport à la feuille, de la dernière cellule de la première colonne de ton TS ?

TCHIS · 25 Février 2023

c'est

TooFatBoy à dit:
Tu ne veux plus le numéro de ligne par rapport à la feuille, de la dernière cellule de la première colonne de ton TS ?

Exactement ça.
Ce qu'il faut c'est l'index de colonne de la dernière cellule non vide.
En dessous il y a le lien de la vidéo qui m'a aider à monter le code et c'est à la 6ème minute qu'il aborde le sujet. Maintenant je souhaiterai appliqué cela à mon tableau.

TooFatBoy · 25 Février 2023

TCHIS à dit:
Ce qu'il faut c'est l'index de colonne de la dernière cellule non vide.

Ça, je ne sais pas faire.

TCHIS · 25 Février 2023

TooFatBoy à dit:
Ça, je ne sais pas faire.

Pas de souci je vais chercher encore et encore

TCHIS · 25 Février 2023

Excusez moi vous aurez comment l'index d'un colonne ?
En l'occurrence il s'agit de la dernière colonne du fichier joint

TooFatBoy · 25 Février 2023

Essaye ceci :

TooFatBoy à dit:
IndexCol = Range("Tbl_Datas[NomDeLaColonne]").Column

TCHIS · 25 Février 2023

Effectivement ça passe merci beuacoup

Microsoft 365 Index de Cellule

TCHIS

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

bsalv

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

TCHIS

XLDnaute Occasionnel

TooFatBoy il semble que tu maitrise le sujet concernant l'index.

TooFatBoy

XLDnaute Barbatruc

TCHIS

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

TCHIS

XLDnaute Occasionnel

TCHIS

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

TCHIS

XLDnaute Occasionnel

TooFatBoy

Discussions similaires

Microsoft 365 Index de Cellule

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

TooFatBoy il semble que tu maitrise le sujet concernant l'index.​

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

TooFatBoy ​

Discussions similaires

TooFatBoy il semble que tu maitrise le sujet concernant l'index.

TooFatBoy