Erreur de syntaxe... need help

[sharkantipav]

bonjour
Je plante sur un truc qui parait tt simple si qq peut aider

Voila mon code

Dim LastRow as Long
Dim OKRange as Range
With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
OKRange = Range(Cells(2, 42), Cells(LastRow, 42))

Ca me sort un erreur d'objet non definis.... javoue que je bug
MErci bcp

 

[gilbert_RGI]

Re : Erreur de syntaxe... need help

Bonjour

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

a la place de A mettre 1 sans ""

 

[Efgé]

Re : Erreur de syntaxe... need help

Bonjour sharkantipav
OKRange est un objet (Range) donc, il faut utiliser Set :

Set OKRange = Range(Cells(2, 42), Cells(LastRow, 42))

Cordialement

EDIT
Bonjour gilbert_RGI 🙂

 

[sharkantipav]

Re : Erreur de syntaxe... need help

Merci bcp ... je loublie tjrs ce Set

 

[Staple1600]

Re : Erreur de syntaxe... need help

Bonsoir à tous

Bonjour

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

a la place de A mettre 1 sans ""

Cette syntaxe fonctionne, et elle a l'avantage d'être plus lisible 😉
Et le problème ne venait pas du A mais du Set comme signalé par Efgé.

NB: A tester sur une feuille vierge, dans un nouveau classeur

Sub CestKifkif()
Dim LastRow&, RowLast&
[A1:A10] = Rnd
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
RowLast = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "LastRow= " & LastRow & vbCrLf & "RowLast= " & RowLast
MsgBox LastRow = RowLast
End Sub