Discussion :

[amelyfred]

Bonjour,
Voici mon problème.

J'ai une macro qui doit sélectionner une cellule dans une colonne dont la valeur est égale à ma variable.

En générale, je fais une boucle dui sélectionne la dernière cellule remplie de la colonne , si la valeur de la cellule est égale à ma variable, j'exécute ma procédure sinon je remonte d'une cellule etc,...

Je voulais savoir s'il y avait un moyen de faire cette sélection sans créer de boucle.
Merci d'avance

Frédéric

[mercatog]

Bonjour

Regarde l'aide su la méthode Find

Exemple à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim MaValeur As String
Dim c As Range
Dim Lig As Long
 
MaValeur = "aaaa"
With Sheets("Feuil1")
    Set c = .Range("C:C").Find(MaValeur, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious) 'xlprevious cherche la dernière cellule contenant mavaleur
    If Not c Is Nothing Then
        Lig = c.Row 'dans lig on récuppère la ligne de la cellule trouvée
        MsgBox Lig & vbTab & c.Address
        Set c = Nothing
    End If
End With

[amelyfred]

Merci je vais étudier cela