Entrer une variable dans un Range ("B2:Variable") Répondre

Version imprimable

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:

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

06/07/2021, 16h11
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:

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 "$"
06/07/2021, 16h16
Vins75

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

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

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:

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

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

Code:

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

06/07/2021, 17h42
MarcelG

Salut,

Citation:

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:

Listobjects("T_Machin").Listrows.Count
06/07/2021, 17h55
Vins75

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

Citation:

Envoyé par MarcelG

Code:

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