Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Recherche dans la dernière colonne non vide d'un tableau (Excel 2003)

33 réponses
Avatar
thomas
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un tableau?

Cette dernière colonne n'est pas toujours la même

Merci

10 réponses

1 2 3 4
Avatar
thomas
ca donne #VALEUR


"LSteph" a écrit dans le message de groupe de
discussion : uXKxwKs$
=(MAX(SI(NBCAR(3:3)>0;COLONNE(3:3);"")))
à rentrer en matricielle
ctrl+maj+entrée

renvoie le numéro de colonne la dernière cellule remplie de la ligne 3

'lSteph


thomas a écrit :
ben une formule qui permette de faire la recherche directement dans la
feuille. toutes les colonnes contiennent des formules (liens vers
d'autres
feuilles) - je voudrais récupérer le numéro de colonne de la dernière
colonne qui ne contient aucune valeur

"LSteph" a écrit dans le message de groupe de
discussion : uc8CL7r$
...?
tu veux lancer une recherche (ce sera forcément vba)
ou
tu voudrais une formule



thomas a écrit :
Merci

c'est directement dans la feuille de calcul que je veux connaître la
recherche, pas en VBA. je mets ce code dans une fonction alors? et plutôt
que UsedRange je passe le nom de la zone en paramètre?


"Daniel.C" a écrit dans le message de groupe de
discussion : Ob2t#tr$
Bonjour.
With ActiveSheet.UsedRange
Colonne = .Column + .Columns.Count - 1
End With
Cordialement.
Daniel
"thomas" <nomail> a écrit dans le message de news:
er5Tifr$
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un
tableau?

Cette dernière colonne n'est pas toujours la même

Merci







Avatar
thomas
une fonction serait plus pratique en fait


"LSteph" a écrit dans le message de groupe de
discussion : uXKxwKs$
=(MAX(SI(NBCAR(3:3)>0;COLONNE(3:3);"")))
à rentrer en matricielle
ctrl+maj+entrée

renvoie le numéro de colonne la dernière cellule remplie de la ligne 3

'lSteph


thomas a écrit :
ben une formule qui permette de faire la recherche directement dans la
feuille. toutes les colonnes contiennent des formules (liens vers
d'autres
feuilles) - je voudrais récupérer le numéro de colonne de la dernière
colonne qui ne contient aucune valeur

"LSteph" a écrit dans le message de groupe de
discussion : uc8CL7r$
...?
tu veux lancer une recherche (ce sera forcément vba)
ou
tu voudrais une formule



thomas a écrit :
Merci

c'est directement dans la feuille de calcul que je veux connaître la
recherche, pas en VBA. je mets ce code dans une fonction alors? et plutôt
que UsedRange je passe le nom de la zone en paramètre?


"Daniel.C" a écrit dans le message de groupe de
discussion : Ob2t#tr$
Bonjour.
With ActiveSheet.UsedRange
Colonne = .Column + .Columns.Count - 1
End With
Cordialement.
Daniel
"thomas" <nomail> a écrit dans le message de news:
er5Tifr$
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un
tableau?

Cette dernière colonne n'est pas toujours la même

Merci







Avatar
Misange
Bonjour

Il y a beaucoup d'interprétation possible à la notion de dernière
cellule, suivant qu'on veut qu'elle ne contienne rien ou qu'elle ne
contienne rien de visible ou que ce soit l'intersection ou.... Enfin
bref, Alain vallon a traité ce sujet de façon très exhaustive, avec des
formules ou des fonctions VBA au choix du "client" (gratuit !). Je ne
saurais que trop te conseiller son classeur exemple :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-lesdernieres

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

thomas a écrit :
oui mais je ne veux pas de boite

je veux simplement aller chercher les valeurs de la dernière colonne d'un
tableau (par exemple avec RECHERCHEV() ) mais pour cela il faut que je
connaisse le numéro de cette dernière colonne - donc une fonction qui me
ramène ce numéro de dernière colonne ce serait une bonne solution

"LSteph" a écrit dans le message de groupe de
discussion : OyZ6J5r$
..oupsss
trompé de boiboite

Sub cherchlastcol()
With [3:3]
.Cells(.Cells.Count).End(xlToLeft).EntireColumn.Activate
End With
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub



thomas a écrit :
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un
tableau?

Cette dernière colonne n'est pas toujours la même

Merci





Avatar
Misange
voir ma réponse plus bas dans le fil, tu trouveras ça sous la patte d'AV
dans son classeur exemple.
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

thomas a écrit :
une fonction serait plus pratique en fait


"LSteph" a écrit dans le message de groupe de
discussion : uXKxwKs$
=(MAX(SI(NBCAR(3:3)>0;COLONNE(3:3);"")))
à rentrer en matricielle
ctrl+maj+entrée

renvoie le numéro de colonne la dernière cellule remplie de la ligne 3

'lSteph


thomas a écrit :
ben une formule qui permette de faire la recherche directement dans la
feuille. toutes les colonnes contiennent des formules (liens vers
d'autres
feuilles) - je voudrais récupérer le numéro de colonne de la dernière
colonne qui ne contient aucune valeur

"LSteph" a écrit dans le message de groupe de
discussion : uc8CL7r$
...?
tu veux lancer une recherche (ce sera forcément vba)
ou
tu voudrais une formule



thomas a écrit :
Merci

c'est directement dans la feuille de calcul que je veux connaître la
recherche, pas en VBA. je mets ce code dans une fonction alors? et plutôt
que UsedRange je passe le nom de la zone en paramètre?


"Daniel.C" a écrit dans le message de groupe de
discussion : Ob2t#tr$
Bonjour.
With ActiveSheet.UsedRange
Colonne = .Column + .Columns.Count - 1
End With
Cordialement.
Daniel
"thomas" <nomail> a écrit dans le message de news:
er5Tifr$
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un
tableau?

Cette dernière colonne n'est pas toujours la même

Merci









Avatar
thomas
merci mais je ne comprends rien a ce tableau , d'autant que tous les
tableaux n'ont qu'une seule ligne

"Misange" a écrit dans le message de groupe de
discussion : evImw2s$
Bonjour

Il y a beaucoup d'interprétation possible à la notion de dernière
cellule, suivant qu'on veut qu'elle ne contienne rien ou qu'elle ne
contienne rien de visible ou que ce soit l'intersection ou.... Enfin
bref, Alain vallon a traité ce sujet de façon très exhaustive, avec des
formules ou des fonctions VBA au choix du "client" (gratuit !). Je ne
saurais que trop te conseiller son classeur exemple :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-lesdernieres

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

thomas a écrit :
oui mais je ne veux pas de boite

je veux simplement aller chercher les valeurs de la dernière colonne d'un
tableau (par exemple avec RECHERCHEV() ) mais pour cela il faut que je
connaisse le numéro de cette dernière colonne - donc une fonction qui me
ramène ce numéro de dernière colonne ce serait une bonne solution

"LSteph" a écrit dans le message de groupe de
discussion : OyZ6J5r$
..oupsss
trompé de boiboite

Sub cherchlastcol()
With [3:3]
.Cells(.Cells.Count).End(xlToLeft).EntireColumn.Activate
End With
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub



thomas a écrit :
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un
tableau?

Cette dernière colonne n'est pas toujours la même

Merci





Avatar
Frédéric Sigonneau
Essaye plutôt comme ça :

'=============== Function Derniere_Colonne(Zone)
With ActiveSheet.Range(Zone.Address)
Derniere_Colonne = .Column + .Columns.Count - 1
End With
End Function
'===============
ou, si tu veux récupérer la lettre de la colonne au lieu de son numéro :

'=============== Function Derniere_Colonne(Zone)
Dim X
With ActiveSheet.Range(Zone.Address)
X = .Column + .Columns.Count - 1
End With
Derniere_Colonne = Split(Cells(1, X).Address, "$")(1)
End Function
'===============
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr

thomas a écrit :
J'ai essayé cela :

Function Derniere_Colonne(Zone As Range)

With ActiveSheet.Range(Zone)
Derniere_Colonne = .Column + .Columns.Count - 1
End With

End Function

mais cela retourne #VALEUR

merci


"thomas" <nomail> a écrit dans le message de groupe de discussion :
e2XY6yr$
Merci

c'est directement dans la feuille de calcul que je veux connaître la
recherche, pas en VBA. je mets ce code dans une fonction alors? et plutôt
que UsedRange je passe le nom de la zone en paramètre?


"Daniel.C" a écrit dans le message de groupe de
discussion : Ob2t#tr$
Bonjour.
With ActiveSheet.UsedRange
Colonne = .Column + .Columns.Count - 1
End With
Cordialement.
Daniel
"thomas" <nomail> a écrit dans le message de news:
er5Tifr$
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un
tableau?

Cette dernière colonne n'est pas toujours la même

Merci






Avatar
thomas
Ca marche !

merci

mais en fait ca me donne la dernière colonne du tableau et non la dernière
colonne sans valeurs
dans toutes les colonnes il y a des formules.. donc non vides et c'est la
dernière colonne sans valeur que je voudrais (les valeurs sont toujours
numériques)



"Frédéric Sigonneau" a écrit dans le message de groupe de
discussion : e7IJY#s$
Essaye plutôt comme ça :

'=============== Function Derniere_Colonne(Zone)
With ActiveSheet.Range(Zone.Address)
Derniere_Colonne = .Column + .Columns.Count - 1
End With
End Function
'===============
ou, si tu veux récupérer la lettre de la colonne au lieu de son numéro :

'=============== Function Derniere_Colonne(Zone)
Dim X
With ActiveSheet.Range(Zone.Address)
X = .Column + .Columns.Count - 1
End With
Derniere_Colonne = Split(Cells(1, X).Address, "$")(1)
End Function
'===============
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr

thomas a écrit :
J'ai essayé cela :

Function Derniere_Colonne(Zone As Range)

With ActiveSheet.Range(Zone)
Derniere_Colonne = .Column + .Columns.Count - 1
End With

End Function

mais cela retourne #VALEUR

merci


"thomas" <nomail> a écrit dans le message de groupe de discussion :
e2XY6yr$
Merci

c'est directement dans la feuille de calcul que je veux connaître la
recherche, pas en VBA. je mets ce code dans une fonction alors? et plutôt
que UsedRange je passe le nom de la zone en paramètre?


"Daniel.C" a écrit dans le message de groupe de
discussion : Ob2t#tr$
Bonjour.
With ActiveSheet.UsedRange
Colonne = .Column + .Columns.Count - 1
End With
Cordialement.
Daniel
"thomas" <nomail> a écrit dans le message de news:
er5Tifr$
Bonjour,

Comment faire une recherche dans la dernière colonne non vide d'un
tableau?

Cette dernière colonne n'est pas toujours la même

Merci






Avatar
Jacky
Pourtant......Saint Thomas.....
;o)))

--
Salutations
JJ


"thomas" <nomail> a écrit dans le message de news:
%23Bgsi9s$
merci mais je ne comprends rien a ce tableau , d'autant que tous les
tableaux n'ont qu'une seule ligne

"Misange" a écrit dans le message de groupe de
discussion : evImw2s$
Bonjour

Il y a beaucoup d'interprétation possible à la notion de dernière
cellule, suivant qu'on veut qu'elle ne contienne rien ou qu'elle ne
contienne rien de visible ou que ce soit l'intersection ou.... Enfin
bref, Alain vallon a traité ce sujet de façon très exhaustive, avec des
formules ou des fonctions VBA au choix du "client" (gratuit !). Je ne
saurais que trop te conseiller son classeur exemple :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-lesdernieres

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net



Avatar
thomas
je suis athée

"Jacky" a écrit dans le message de groupe de discussion :
u0Wj7nt$
Pourtant......Saint Thomas.....
;o)))

--
Salutations
JJ


"thomas" <nomail> a écrit dans le message de news:
%23Bgsi9s$
merci mais je ne comprends rien a ce tableau , d'autant que tous les
tableaux n'ont qu'une seule ligne

"Misange" a écrit dans le message de groupe de
discussion : evImw2s$
Bonjour

Il y a beaucoup d'interprétation possible à la notion de dernière
cellule, suivant qu'on veut qu'elle ne contienne rien ou qu'elle ne
contienne rien de visible ou que ce soit l'intersection ou.... Enfin
bref, Alain vallon a traité ce sujet de façon très exhaustive, avec des
formules ou des fonctions VBA au choix du "client" (gratuit !). Je ne
saurais que trop te conseiller son classeur exemple :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-lesdernieres

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net



Avatar
Misange
oui moi aussi mais il y a des formulistes qui sont de vrais dieux
d'excel et ça vaut vraiment la peine de faire un petit effort pour
comprendre...
Sur le sujet, on peut difficilement faire plus complet

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

thomas a écrit :
je suis athée

"Jacky" a écrit dans le message de groupe de discussion :
u0Wj7nt$
Pourtant......Saint Thomas.....
;o)))



1 2 3 4