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

[VBA] Bug sur numéro de dernière colonne

2 réponses
Avatar
HD
Bonjour,

Pour connaître la dernière ligne d'une feuille j'utilise :
iMax = ActiveSheet.Columns(2).Find("*", , LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Et cela fonctionne...

Mais pour connaître la dernière colonne d'une feuille j'utilisait :
cMax = ActiveSheet.Cells.Find("*", , LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column
Or dans mon cas, cela me ressort 5 alors que j'ai 28 colonnes d'utilisées
!!!

Cela fonctionnait bien avec l'ancien Excel 97... mais cela me ressort des
résultats folkloriques avec Excel 2007....

L'on ne peut donc plus utiliser cette fonction ? :-(
--
@+
HD

2 réponses

Avatar
michdenis
Et ceci :

Et comme tu utilises "ActiveSheet", assure-toi que c'est
vraiment la feuille de calcul désiré qui est active lorsque
le code s'exécute.

cMax = ActiveSheet.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column




"HD" a écrit dans le message de news:
g6pdpn$1frl$
Bonjour,

Pour connaître la dernière ligne d'une feuille j'utilise :
iMax = ActiveSheet.Columns(2).Find("*", , LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Et cela fonctionne...

Mais pour connaître la dernière colonne d'une feuille j'utilisait :
cMax = ActiveSheet.Cells.Find("*", , LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column
Or dans mon cas, cela me ressort 5 alors que j'ai 28 colonnes d'utilisées
!!!

Cela fonctionnait bien avec l'ancien Excel 97... mais cela me ressort des
résultats folkloriques avec Excel 2007....

L'on ne peut donc plus utiliser cette fonction ? :-(
--
@+
HD
Avatar
HD
> cMax = ActiveSheet.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column



Effectivement cela fonctionne maintenant. Merci à toi MichDenis. :-)

@+
HD