Range error

[ryadus]

Bonjour à tous;

j'ai une petite question:

x = .Range("A1750").End(xlUp).Row

pourquoi cette commande me retourne x =1 malgré que la colonne A contient pelin de valeurs ???!!!

Merci

 

[flo2002]

Re : Range error

Bonjour,

essaye:

x = Range("A1750").End(xlUp).Row

 

[ryadus]

Re : Range error

Au fait le point existe par ce que je fais juste avant un

With sheets("Feuil1")

c'est pour ça qu'il ya le point.

 

[flo2002]

Re : Range error

Ok alors colle tout ton code se sera plus facil peut etre!

 

[ryadus]

Re : Range error

Voici le code:

Sub cherche()
Dim j, i, val, x As Variant
 
 With Sheets("stock à date")
   x = .Range("A1750").End(xlUp).Row
    For j = 2 To x
        val = Cells(j, 1).Value
 
     With Sheets("Stock 240")
        i = Application.Match(val, .Range("A:A"), 0)
        If Not IsError(i) Then
            Sheets("Stock à date").Cells(j, 8).Value = 240
 
        End If
     End With
 
    Next j
 End With
End Sub

 

[flo2002]

Re : Range error

Chez moi cela fonctionne bien avec ou sans . avant le range.


je mettrais cependant:
x = .Range("A65536").End(xlUp).Row

bon courage

 

[JeanMarie]

Re : Range error

Bonjour

L'explication de X= 1, la méthode .end(xlUp) demande à Excel de remonter la colonne jusqu'à la ligne qui suit une ligne vide, elle est identique à la combinaison de touches Ctrl+Flèche Haut dans Excel. Donc entre la cellule A1 et la cellule A1750, il n'y a pas de cellule vide.

Il suffit de mettre comme l'a indiqué Flo, Range("A65536").end(xlUp)

@+Jean-Marie