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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #16439701
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" 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
HD
Le #16439851
> cMax = ActiveSheet.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column



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

@+
HD
Publicité
Poster une réponse
Anonyme