Microsoft 365 "Dépassement de capacité"

Oneida

XLDnaute Impliqué

• 10 Mars 2023

• #2

Bonjour,
Pouvez mettre un fichier exemple a dispo

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mars 2023

• #3

Bonjour
A tester:

VB:

Sub Col_Affiche_tout()
ActiveSheet.Columns.Hidden = False
Range("A1").Select
End Sub

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 10 Mars 2023

• #4

Merci Pierrejean !
c'était bien ça
mais pour que je puisse aller pêcher tout seul : quelle est l'explication ?
car je m'y perds toujours dans les multiples façon d'écrire la même chose en VB

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mars 2023

• #5

Je pense que c'est le fait de sélectionner toutes les cellules qui sature la mémoire

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 10 Mars 2023

• #6

j'y ai pensé
mais le pb ne se pose pas quand il n'y a pas de combobox sur la feuille

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 10 Mars 2023

• #7

Bonjour,
Hello @pierrejean
A tout hasard, il n'y aurait pas un code genre :

VB:

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

Si c'est le cas, il faut remplacer Count par CountLarge (mais c'est rarement le cas de devoir sélectionner toutes les cellules...
Bonne fin d'apm

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 10 Mars 2023

• #8

très bien, merci !

 

Vote positif 0 Vote négatif

K

Katido

XLDnaute Occasionnel

• 10 Mars 2023

• #9

Bonjour,

C'est effectivement le Target.Count qui sature quand on sélectionne toutes les cellules (il y en a 2 ^ 34)
car c'est plus que la limite du Long, et .Count ramène un Long.

C'est en fait très facile de sélectionner toutes les cellules, même si on ne le veut pas : il suffit de cliquer sur le petit carré en haut à gauche des en-têtes (au-dessus du 1 et à gauche du A)

Plusieurs solutions :
1) utiliser .CountLarge (mais probablement pas disponible avec les anciennes versions) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
End Sub

Cliquez pour agrandir...

2) décomposer les lignes et les colonnes

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

Cliquez pour agrandir...

3) multiplier les nombres de lignes et de colonnes après conversion en Double

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CDbl(Target.rows.Count) * Target.columns.Count > 1 Then Exit Sub
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Mars 2023

• #10

Bonsoir à tous,

Une fonction CellsCount qui prend en compte les Range à plusieurs zones:

VB:

Function CellsCount(xrg As Range)
Dim xa, x As Currency
   For Each xa In xrg.Areas: x = x + xa.Rows.Count * xa.Columns.Count: Next
   CellsCount = x
End Function

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 13 Mars 2023

• #11

merci à tous !
Raphaël

 

Vote positif 0 Vote négatif