derniere cellule

matthieu33

XLDnaute Occasionnel

• 7 Novembre 2007

• #2

Re : derniere cellule

Bonsoir Aurel,

Voici le code :

Code:

Private Sub RechercheCellule()
    Dim MaLigne As Long
    
    For MaLigne = Range("A65536").End(xlUp).Row To 1 Step -1
        If Range("A" & MaLigne) = "ID" Then
            Range("A" & MaLigne).Select
            Exit For
        End If
    Next MaLigne
End Sub

Dès que je trouve la valeur, je sors de la boucle.

J'espère que cela te convient.

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Novembre 2007

• #3

Re : derniere cellule

Bonjour Aurel

si j'ai bien compris, essaye le code ci dessous :

Code:

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Range("A" & i).Value = "ID" Then Range("A" & i).Select: Exit For
Next i
End Sub

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

A

aurel30

Guest

• 7 Novembre 2007

• #4

Re : derniere cellule

bonjour Pierrot et matthieu

merci pour vos reponses rapides, les deux fonctionnent tres bien. 🙂

bonne soirée

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 7 Novembre 2007

• #5

Re : derniere cellule

Bonsoir
Une autre méthod au cas ou !!! par offset : exemple de 100 lignes démarrant en D200

With Sheets(1)
For x = 100 To 1 Step -1
ma_cel= Sheets(1).Range("D200").Offset(x - 100, 0).Value (decalage vers le haut

If ma_cel = "toto" Then
ici tu mets ce que tuveux faire dans ton cas
End If
Next x
end with

Hervé

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Novembre 2007

• #6

Re : derniere cellule

Bonsoir Hervé

comprends pas trop ta méthode, quelque chose doit m'échapper, je viens de la tester et ma valeur n'est pas retrouvée.

Pourquoi utiliser "Offset" dans ce cas ? Quel en est l'avantage ?

bonne soirée
@+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 7 Novembre 2007

• #7

Re : derniere cellule

Bonsoir Pierrot
c'est une formule qui m'a été donnée par un XLDnaute et qui fonctionne dans une appli
certe en colonnes , mais là j'ai simplement inversé le "x" offset ( row, column)
je l'ai testé , ça marche ; regarde l'exemple
Bonne soirée

 

Pièces jointes

• offset.xls

  24 KB · Affichages: 40

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Novembre 2007

• #8

Re : derniere cellule

Re Hervé

oui, ok celle ci fonctionne, mais je ne vois toujours pas le plus à utiliser la propriété "offset", enfin bon pourquoi pas...

bonne soirée
@+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 7 Novembre 2007

• #9

Re : derniere cellule

Pierrot
C'est simplement une autre methode qui pourra peut-être lui servir plus tard !!
d'un autre point de vue on concrétise le point de départ pas comme "A65536"
là c'est juste mon avis ....... dépend de l'application

Bye

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Novembre 2007

• #10

Re : derniere cellule

Bonjour le fil

@Hervé
justement, comme tu concrétises ton point de départ, il faut déjà connaitre la dernière cellule vide, "b14" dans ton exemple et à priori Aurel ne connaissait pas cette dernière cellule... Mais bon tous les chemins ménent à Rome...🙂

bonne journée
@+

 

Vote positif 0 Vote négatif