XL 2010 Utilisation de UsedRange

patricktoulon à dit:

'dl = .UsedRange.Rows.Count 'Attention c'est pas bon si le usedrange ne commence pas en ligne 1 dl = .UsedRange.Cells(.UsedRange.Cells.Count).Row 'Là on est sur dans tout les cas !!!!

Cliquez pour agrandir...

La propriété CountLarge est fonctionnellement la même que la propriété Count , sauf que la propriété Count génère une erreur de dépassement si la plage spécifiée comporte plus de 2 147 483 647 cellules (une moins de 2 048 colonnes). La propriété CountLarge, toutefois, peut traiter des plages ayant la taille maximale d'une feuille de calcul, c'est-à-dire 17 179 869 184 cellules.

Cliquez pour agrandir...

   With ActiveSheet
      DerLig = .UsedRange.Row + .UsedRange.Rows.Count - 1
      DerCol = .UsedRange.Column + .UsedRange.Columns.Count - 1
   End With

mapomme à dit:

nota : de plus, un numéro de ligne se déclare en Long pas en integer. Un integer est limité à 32 767 bien moins que le nombre de lignes d'une feuille de calcul.

Cliquez pour agrandir...

patricktoulon à dit:

ha ben là on est sur mars
on voyage c'est bien

le problème avec ton truc cathodique c'est qu'il faut une plage définie au départ
exemple ta feuille est remplie avec des cellules vides ici et là de A1 à j20
set plage=[A1:J20]
si ta cellule j20 ou non remplie dans cette colonne n'est pas remplie ben ton résultat sera faux
autrement dit il te faut dimensionner une plage bien plus gran,de au départ

on t'a donné deux solutions qui te permettent de te passer de tout renseignement au départ
si on transforme tout ça en fonction avec une structure (type)

VB:

Type prop
    Row As Long
    Column As Long
End Type

Function LastOccuped() As prop
    Dim p As prop
    With ActiveSheet.UsedRange
        p.Row = .Cells(.Cells.CountLarge).Row
        p.Column = .Cells(.Cells.CountLarge).Column
    End With

    LastOccuped = p
End Function

Sub test()
MsgBox "ligne : " & LastOccuped.Row & vbCrLf & "colonne : " & LastOccuped.Column
End Sub

Cliquez pour agrandir...

mapomme à dit:

Pour s'amuser le classeur joint. Les cellules en dehors de la plage A1 : B7 sont et resterons vides.
Saisir un numéro de ligne n et de colonne j pour qu'Excel fixe la cellule cells(n,j) comme étant la dernière cellule (et pourtant cette dernière cellule ne comporte ni valeur ni formule).

Cliquez pour agrandir...

crocrocro à dit:

Bonjour le fil,
il semble que cette discussion soit très animée et que les esprits s'échauffent un peu ....
certaines remarques sont, même si ce n'est pas intentionnel, blessantes.
Il me semble que l'on est ici dans un forum d"entraide, non ?
Pour revenir sur le sujet, je me suis parfois demandé, faut-il utiliser cette méthode plutôt que celle-là (UsedRange ou Find) ?
Et pour moi, la 1ère qualité d'une méthode, c'est sa fiabilité. une erreur sur 10 000 en météo c'est très fiable, pour un ordinateur non : 1 000 000 d'opérations à la seconde signifierait 100 erreurs par seconde !!! Viré !
En pj un fichier avec un exemple et donc une anomalie que je ne comprends pas.
Un pouce levé à qui m'en donnera la raison. Pas la raison pour laquelle je ne comprends pas, par exemple "t'es nul" mais avec pédagogie me fasse dire "mais c'est bien sûr !"

Cliquez pour agrandir...

Jeannette à dit:

Bonsoir,
Il semblerait que The KingOf ait enlevé toutes ses interventions...
Dommage, il me faisait bien rire...
Bonne soirée

Cliquez pour agrandir...