Discussion :

[henripec]

Bonjour,

Je peine sur un double problème depuis 2 jours.

J'en fait deux posts pour plus de clarté:

Je souhaite trouver la dernière cellule d'une plage de cellules non contigues.

J'utilise la methode "SpecialCells(xlCellTypeLastCell)" comme suit :

Code :

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

1
2
3
4
5
6
7
 
Set RangeToImport = xlApp.Union(.Range("A4"), .Range("D4:D8"), .Range("D9:E10"), .Range("D11:D12"), .Range("D13:E13"), .Range("D14:D15"), .Range("E16:E24"), .Range("D25"), .Range("D26:E37")) 
 
'plage de test qui à terme sera passée argument de ma fonction
 
Set b = RangeToImport.SpecialCells(xlCellTypeLastCell)
 'j'attend ici la cellule d'adresse E37 mais j'obtiens ce qui semble être la dernière celulle existante de la feuille de calcul

Je commence à être à bout de ressources et de nerfs ....

Merci pour votre aide.

Je suis un développeur VBA très occasionnel. Je visite à ces occasions votre site depuis 2004 qui me permet toujours de me remettre dans le bain très rapidement. Merci à tous les contributeurs.

H.

[cafeine]

Hello,

comme ça, vite fait, je vois deux pistes :

• tu es en automation, est-ce que la constante xlCellTypeLastCell est définie ?
• ton xlApp.Range(... ne précise pas la feuille sur laquelle pointer

ex :

Code :

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

xlApp.Workbooks("Machin").sheets("Truc").Range(...

[henripec]

Bonjour,

Merci pour cette réponse rapide.

ma plage est bien défine. Je ne l'ai pas fait apparaitre dans le code pour ne pas charger mais je travail dans un bloc :

Code :

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

1
2
3
4
5
6
 
With xlBook.Worksheets("PFM")
 
'code préccédent
 
end with

Ma plage existe bien, a priori.

Quant à savoir si la constante xlCellTypeLastCell est bien définie. Je dirais que oui car c'est proposé par le menu déroulant "contextuel" arpès que je tape .SpecialCells ... et surtout que la méthode renvoie bien une celulle mais pas celle que j'attends.

Je comprend que la méthode Range.SpecialCells(xlCellTypeLastCell) renvoie la dernière cellule de Range. Peut être est-ce là le problème.

Quant à mon second problème, si je n'ai pas trouvé de solution, j'ai sans doute trouvé comment le contourner, donc pas de second post ...

[aalex_38]

Bonjour,

Je pense effectivement que cafeine pose les bonnes questions, je viens de faire le test suivant qui fonctionne parfaitement chez moi :

Code :

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

1
2
3
4
5
6
7
8
9
Dim RangeToImport As Range, b As Range
With Feuil1
Set RangeToImport = Union(.Range("A4"), .Range("D4:D8"), .Range("D9:E10"), .Range("D11:D12"), .Range("D13:E13"), .Range("D14:D15"), .Range("E16:E24"), .Range("D25"), .Range("D26:E37"))
 End With
'plage de test qui à terme sera passée argument de ma fonction
 
Set b = RangeToImport.SpecialCells(xlCellTypeLastCell)
 
MsgBox b.Address

[cafeine]

Hello,

finalement je n'ai pas trouvé mieux qu'une fonction qui analyse l'adresse ...

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
Type LastCellFinder_
    Left As Long
    Top As Long
    Right As Long
    bottom As Long
End Type
 
Function findLastCell(ByVal rng As Range) As LastCellFinder_
 
Dim x As LastCellFinder_
Dim r As String
Dim c As String
Dim iMin As Long
Dim iMax As Long
 
' lignes
r = Replace(rng.EntireRow.Address(True, False, xlR1C1), ":", ",")
r = Replace(r, "R", "")
tmp = Split(r, ",")
iMin = 65536
For i = LBound(tmp) To UBound(tmp)
    If tmp(i) < iMin Then iMin = tmp(i)
    If tmp(i) > iMax Then iMax = tmp(i)
Next i
x.Top = iMin
x.bottom = iMax
 
' colonnes
r = Replace(rng.EntireColumn.Address(False, True, xlR1C1), ":", ",")
r = Replace(r, "C", "")
tmp = Split(r, ",")
iMin = 65536
iMax = 0
For i = LBound(tmp) To UBound(tmp)
    If tmp(i) < iMin Then iMin = tmp(i)
    If tmp(i) > iMax Then iMax = tmp(i)
Next i
x.Left = iMin
x.Right = iMax
 
findLastCell = x
 
End Function

Utilisation

Code :

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

1
2
?findlastcell(Union(Range("A4"), Range("D26:E37"), Range("D4:D8"), Range("D9:E10"), Range("D11:D12"), Range("D13:E13"), Range("D14:D15"), Range("E16:E24"), Range("D25"))).right
 5

Code :

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

1
2
?findlastcell(Union(Range("A4"), Range("D26:E37"), Range("D4:D8"), Range("D9:E10"), Range("D11:D12"), Range("D13:E13"), Range("D14:D15"), Range("E16:E24"), Range("D25"))).bottom
 37

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim K As Integer
Dim L As Long
Dim c As Range
L = 0: K = 0
For Each c In MaPlage
    If c.Column > K Then K = c.Column
    If c.Row > L Then L = c.Row
Next c
 
 
MsgBox K & "...................." & L

[henripec]

Je vais en effet partir sur les boucles que vous me proposez d'autant que je n'ai en fin de compte de besoin que de la ligne de dernière cellule. Ca fonctionne bien.

Je pensais que la méthode SpecialCells serait plus rapide.

Je vais pouvoir avancer jusqu'au prochain problème d'ici 5 min!!

Merci pour vos conseils.

[edelweisseric]

Bonsoir à tous

Avec un peu de retard, je propose ceci :

Code :

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

1
2
3
Set RangeToImport = Range("A4:d8", "a10:d13") 
der_cell = RangeToImport.Cells(RangeToImport.Cells.Count).Address
der_lign = RangeToImport.Cells(RangeToImport.Cells.Count).Row

qui donne l'adresse ou la ligne de la dernière cellule
si j'ai bien compris

Eric

[mercatog]

Je me rends compte que la notion de dernière cellule n'a pas de sens
on peut trouver la dernière colonne et la dernière ligne de différentes méthodes mais, la cellule déterminée par cette dernière ligne et cette dernière colonne n'est pas forcément à l'intérieur de la plage

Testez pour MaPlage=Range("A4:d8", "E6")

ça donne E8 pour la dernière cellule
eh bien E8 n'appartient pas à MaPlage!!!