Cells.Count, Target.Count et autres .count

[Guest]

Bonsoir,

Depuis la version 2007 je ne vois personne se plaindre du fait que taper ?cells.count dans la fenêtre exécution de VBE provoque une erreur 'Dépassement de capacité' (17 179 869 184 cellules dans une feuille)


Idem pour les Fameux if Target.Count>1 des évènements SelectionChange lorsque la sélection dépasse la capacité d'un type Long positif (2 147 483 647)

D'où la question, est-ce qu'il n'y a que mon petit excel préféré qui dérape ou serait-ce microsoft qui a oublié d'adapter le type des .Count (long) aux nouvelles capacités (double).
Qui rencontre le même problème?

Je précises que Office à toutes ses mises à niveau.

A+

 

[Staple1600]

Re : Cells.Count, Target.Count et autres .count

Bonsoir Hasco, le fil, le forum

Je ne compte que les lignes
?cells.rows.count
et Excel ne bronche pas 😉 et c'est pour cela que tu ne mes vois pas me plaindre 😉

(Pourquoi veux-tu compter le nombre de cellules alors que ce nombre est fixe (oui je sais qu'il diffère selon les versions)
mais reste fixe quand même selon les versions (donc il suffit d'identifier les versions)

EDITION: Comme ceci, il bronche pas le bougre 😉

?Activesheet.rows.count*activesheet.columns.count
17179869184

 

[Guest]

Re : Cells.Count, Target.Count et autres .count

Hello l'ami,

Je ne tiens pas absolument à compter le nombre de cellules (surtout qu'excel doit me battre sur ce compte)
Mais plusieurs fois j'ai rencontré le problème de 'dépassement de capacité' lorsque dans SelectionChange il y avait le test

If Target.Count > 1 then  Exit Sub 'patatipata

Et que l'utilisateur, par mégarde ou intentionnellement clique sur la ch'tite case en haut à gauche de la cellule A1, qui sélectionne TOUTES les cellules de la feuille.

A+++

[Edit] va s'en dire que ?Activesheet.rows.count*activesheet.columns.count plante.
Je vois que sous 2013 le problème a été résoudu. 2007 - 2013 (8 ans bornes inclues) pour que les cellules des informaticiens de microsoft se dénombrent....

 

[Staple1600]

Re : Cells.Count, Target.Count et autres .count

Re

Hasco
Voir mon édition (dans message précédent) pour compter jusqu'au bout sans problème 😉

 

[Cousinhub]

Re : Cells.Count, Target.Count et autres .count

Hi,

Salut Ges 🙂, le Rennais 🙂

Perso, si je sélectionne toutes les cellules (sous 2010), et avec ce code de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then
    MsgBox Target.Count
End If
End Sub

Ben, j'ai le magnifique msg "Erreur d'éxécution 6 : Dépassement de capacité"

Donc ce n'est pas un épiphénomène, rien de changer....

Bonne soirée

 

[Roland_M]

Re : Cells.Count, Target.Count et autres .count

bonjour à tous,

j'ai exactement le même problème avec 2007 !

 

[Guest]

Re : Cells.Count, Target.Count et autres .count

Re,

AHHHH, rien de mieux que de croiser les potes🙂

Tu me rassures Hub, c'est donc bien une question de version et de lenteur d'acheminement des synapses microsoftiennes

Passez une bonne soirée.
A+

[Edit] Hello Roland🙂

 

[Staple1600]

Re : Cells.Count, Target.Count et autres .count

Bonsoir bhbh 😉

Tiens je me déguise en schtroumph grognon 😉
J'aime pas les dépassements de capacité!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Areas.Count > 1 Then
    MsgBox Target.Count
End If
End Sub

😛🙄😛

 

[Cousinhub]

Re : Cells.Count, Target.Count et autres .count

Hi,

Vi, mais j'ai pas mon msgbox.....😎

 

[Guest]

Re : Cells.Count, Target.Count et autres .count

Re,

@ l'agrafe:
Niarc, celui-ci ne plante pas puisque un seul Area contenant toutes les cellules dans la sélection.😀

A+

 

[Roland_M]

Re : Cells.Count, Target.Count et autres .count

re

de toute manière, ceci, cause la même erreur !?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Count
End Sub

 

[Staple1600]

Re : Cells.Count, Target.Count et autres .count

Re

Biaisons pour le fun alors 😉

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ACHTUNG_BABY
ACHTUNG_BABY = 17179869184#
If Selection.Rows.Count > 1 Then
If Selection.Rows.Count * Selection.Columns.Count = ACHTUNG_BABY Then
MsgBox "Big is too much!", vbCritical, "Houps!"
Else
MsgBox "Shine on your crazy diamonds!", vbInformation, "NO DANGER AT ALL!"
End If
End If
End Sub

 

[Roland_M]

Re : Cells.Count, Target.Count et autres .count

re

même ceci ne fonctionne pas !?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
C& = Target.Columns.Count
L& = Target.Rows.Count
MsgBox C& * L&
End Sub

j'ai essayé avec des déclarations de var double pour le calcul rien n'y fait !?

 

[Cousinhub]

Re : Cells.Count, Target.Count et autres .count

Pour ajouter au schmilblick....

Dans ce code, le premier x me donne dépassement de capacité, pas le deuxième....

Bizarre....

Sub ee()
Dim x As Double
x = Cells.Count ' -> dépassement de capacité
nbl = Rows.Count
nbc = Columns.Count
x = nbl * nbc
End Sub

 

[Staple1600]

Re : Cells.Count, Target.Count et autres .count

Re

Roland_M
Le mien fonctionne 😉
(voir message précédent)

bhbh
C'est ce que disait le message #12 tout à l'heure 🙄
(et avant lui mon édition du message #2 )

Les aminches
PS: Ne sommes-nous pas des grands malades de jouer avec autant de lignes et colonnes juste avant l'apéritif 😉 ?