Discussion :

[Vins75]

Bonjour,

Je souhaite encadrer un plage de données sur Excel à l'aide de vba,

problème : je n'arrive pas à recuperer la dernière cellule dans le range ...

La variable dernierecellule_adresse recupere la dernière cellule mais je n'arrive pas a récupérer le contenu dans le Range ...

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
DerniereCellule_Adresse = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Range("B2:DerniereCellule_Adresse").Select
    Cells
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

[ChristianBosch]

Salut, tu as mis dans variable en tant que chaine de caractère. en suite ta variable n'est pas une adresse mais un objet de type "range", il faut préciser que c'est l'adresse de cet objet que tu veux. VBA ne peux donc pas l'interpreter. Il faut que tu fasse :

Code :

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

Range("B2:" & DerniereCellule_Adresse.address).Select

Mais attention je ne suis pas sur que cela fonctionne car le formatage texte risque d'etre avec des "$"

[Vins75]

Salut,
Merci pour ta réponse
oui j'avais déjà testé cette solution mais la fonction Range n'apprécie pas ....

[MarcelG]

Salut Vins75 (Je vais souvent à Paris et suis amateur )

Salut Christian, le Forum,

(Désolé pour cette absence. Surbooké)

Christian,

Ls paramètres d'adresse sont absolus.
Il n'y aura donc pas de "$" dans l'adresse telle que reportée par notre ami.
(Ce qui évite parfaitement les Split et Join)

Au passage, bonne idée de préciser les paramètres comme ici dans la propriété Address. Voir mon billet à ce sujet.

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub essai()
Dim dern As String
dern = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Feuil1.Range("A2:" & dern).Interior.Color = RGB(125, 10, 214)
End Sub

A bientôt, j'espère.

(J'ai une discussion en instance, dont je suis initiateur. )

J'oubliais un détail des plus importants. VIVA LA SQUADRA AZZURA

[Vins75]

Merci a vous pour vos réponses
j'ai trouvé la solution

Code :

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

1
2
3
DerniereCellule_Ligne = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
 
    Range(Cells(2, 2), Cells(DerniereCellule_Ligne, 5)).Select

[MarcelG]

Salut,

j'ai trouvé la solution

Euh! Oui! Sauf que là, la colonne est en absolue (colonne E)

Dans ce cas, autant partir de la dernière cellule de la colonne E de la feuille avec la méthode End(xlUp).

Cela dit, peut-être en d'autres circonstances, l'emploi des tables de données évite ce genre de manipulation

Code :

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

Listobjects("T_Machin").Listrows.Count

[Vins75]

C'est vrai, tu as raison je vais plutôt utiliser la solution que tu m'as proposé merci

[ChristianBosch]

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub essai()
Dim dern As String
dern = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Feuil1.Range("A2:" & dern).Interior.Color = RGB(125, 10, 214)
End Sub

Cool je savais pas qu'on pouvais paramétrer le retour de la fonction address ! Merci