Discussion :

[JPierreM]

Bonsoir à tous,
Je cherche à retrouver l’adresse de la dernière cellule de la plage utilisée.
J’ai donc créé une fonction qui à priori fonctionne normalement si je l’utilise en passant par l’intermédiaire d’une Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Cells(3, 3) = sc("Feuil1")
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function sc(Optional feuilleRecherche As String)
    If feuilleRecherche = "" Then
        Set sht = ActiveSheet
    Else
        Set sht = Worksheets(feuilleRecherche)
    End If
sc = sht.Cells.SpecialCells(xlCellTypeLastCell).Address
End Function

J’obtiens la bonne cellule, par contre si je lance directement la fonction en saisissant dans une cellule =sc("Feuil1") j’ai en retour $1:$1048576, ce qui correspond à la feuille entière.
Je dois dire que je ne comprends pas. Quelqu’un a-t-il une explication, et une solution ?
Merci de vos retours, bien cordialement
JP

[riton00]

Bonjour,

Avec une formule matricielle pour la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{=MAX(SI(ESTVIDE(A:A);0;LIGNE(A:A)))}

Slts

[jurassic pork]

Hello,

Bonsoir à tous,
Je cherche à retrouver l’adresse de la dernière cellule de la plage utilisée.

tu nous parles de plage et tu fais la recherche sur une feuille ? tu cherches la dernière cellule utilisée dans une feuille ? Avec des lignes sans donnée ?
Ami calmant, J.P

[JPierreM]

Bonjour,

Oui c’est exactement cela, en fait c’est la cellule que l’on obtient par le raccourci clavier Ctrl+Fin ou par Accueil<Rechercher et sélectionner<Atteindre...<Cellules...Dernière cellule. Je voudrai généraliser la recherche en précisant la feuille sur laquelle la recherche se fait.

Merci

[jurassic pork]

Hello,
tu peux essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function sc(Optional feuilleRecherche As String)
    If feuilleRecherche = "" Then
        Set sht = ActiveSheet
    Else
        Set sht = Worksheets(feuilleRecherche)
    End If
sc = sht.UsedRange.SpecialCells(xlCellTypeLastCell).Address
End Function

mais cela te donnera plutôt la dernière ligne et la dernière colonne utilisées.

Ami calmant, J.P

[JPierreM]

Bonjour,
Merci de vos retours. La solution proposée par JP m’aide beaucoup. Elle renvoie l’adresse de UsedRange de la feuille passée en argument. A partir de là j’ai apporté quelques ajouts, code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function sc(Optional feuilleRecherche As String)
Dim sht As Worksheet
Dim a As String, b As Long, c As String
    If feuilleRecherche = "" Then
        Set sht = ActiveSheet
    Else
        Set sht = Worksheets(feuilleRecherche)
    End If
Application.EnableEvents = False '*Je donne plus bas la raison de cette utilisation
a = sht.UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Address(False, False)
b = Range(a).Cells.Count
c = Range(a).Cells(b).Address(False, False)
Application.EnableEvents = True
 
    If a = "A1" Then
        If sht.UsedRange.Cells(1) <> "" Then
            sc = c
        Else
            sc = "La feuille est vide"
        End If
    Else
        sc = c
    End If
Set sht = Nothing
End Function

*Je me suis rendu compte que SpecialCells(xlCellTypeLastCell) faisait appel à la macro Worksheet_SelectionChange si elle existait, donc pour éviter tout problème j’ai utilisé la propriété Application.EnableEvents.
J’ai fait le test de la fonction à partir de la même feuille vers plusieurs feuilles en passant leurs noms en argument. Ça semble fonctionner, un petit bémol malgré tout.
Pour une feuille donnée lorsque le retour de la fonction est A1, 4 cas se présentent :
- La cellule A1 est non vide et non formatée
- La cellule A1 est non vide et formatée
- La cellule A1 est vide et formatée
- La feuille est vierge de tout
Pour les deux premiers cas j’utilise un test sur la cellule A1 pour savoir si elle n’est pas vide.
Pour les deux autres cas je n’arrive pas à déterminer si A1 a été formatée, donc même si elle est vide et formatée la fonction renvoie « La feuille est vide ». Ce cas doit être extrêmement rare mais existe-t-il une façon pour savoir si une cellule a été formatée, car tester tous les cas de formatage possibles ne me semble pas envisageable ?
Merci
JP

[Philippe Tulliez]

Bonjour,
La propriété NumberFormat de l'objet Range permet de connaître le format d'une cellule

[JPierreM]

Bonsoir,

Sauf erreur il me semble que le formatage d’une cellule ne se limite pas aux nombres, il y a aussi la couleur de fond, les bordures, la police, l’alignement …C’est pourquoi je disais que tout tester ne me semblait pas envisageable.
Merci

JP