derniere cellule

[aurel30]

Bonjour,

je cherche un code vba pour me permettre de chercher une valeur dans une cellule en partant de la derniere ligne.

j'ai ecrit ce code mais ça ne fonctionne pas 🙁

Dim MaLigne As Variant
MaLigne = Range("A65536").End(xlUp) = "ID" 'ici valeur à chercher ds la colonne A
Range("A" & MaLigne).Select

Merci

Aurel

 

[matthieu33]

Re : derniere cellule

Bonsoir Aurel,

Voici le 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.

@+

 

[Pierrot93]

Re : derniere cellule

Bonjour Aurel

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

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
@+

 

[aurel30]

Re : derniere cellule

bonjour Pierrot et matthieu

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

bonne soirée

 

[herve62]

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é

 

[Pierrot93]

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
@+

 

[herve62]

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

 

[Pierrot93]

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
@+

 

[herve62]

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

 

[Pierrot93]

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
@+