Selectionner 1ère cellule [VBA Excel] Résolu/Fermé

Question

Bonjour,  

Voila mon soucis. 
Dans la colonne M je rentre des 2 dans différentes cellules de cette colonne. 
Ces cellules ne sont pas toujours les mêmes. 
Je voudrais simplement le code qui permettrait de sélectionner la première cellule qui possède un 2. 
"Sélectionner la première cellule possédant un 2 dans la colonne M"
J'ai fait pas mal de recherche et je trouve juste des méthodes pour sélectionner des cellules vides. 
Merci d'avance. 
Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

Bonjour,  
Un exemple avec la méthode find.  
Adapte juste le nom de ta feuille. Dans l'exemple "Feuil1" :  
Sub TrouvePremierDeux()  
Dim Trouve As Range  
With Sheets("Feuil1").Columns(13)  
    Set Trouve = .Cells.Find(2)  'le 2 entre parenthèse représente la valeur à chercher...
    If Trouve Is Nothing Then  
        MsgBox "Il n'y a aucun 2 colonne M"  
    Else  
        MsgBox "Premier 2 trouvé à la ligne : " & Trouve.Row  
    End If  
End With  
Set Trouve = Nothing  
End Sub
Tu dis...  
Cordialement,  
Franck P

nightsheart · Answer

Tout d'abord, Merci
Ecoute c'est plutôt bien mais je voudrais juste que le programme selectionne tout seul la cellule correspondante, non pas qu'il me la donne dans un MsgBox.

moiced59 · Answer

Bonjour

A la place du msgbox tu met :

cells(Trouve.Row ,13).select

nightsheart · Answer

C'est tout bon j'ai trouvé :)
Merci beaucoup pour ton aide. Ca marche nickel.

With Sheets("Feuil1").Columns(13)  
    Set Trouve = .Cells.Find(2)  'le 2 entre parenthèse représente la valeur à chercher...
    If Trouve Is Nothing Then  
        MsgBox "Il n'y a aucun 2 colonne M"  
    Else  
        Trouve.Select
    End If  
End With  
Set Trouve = Nothing  
End Sub

Selectionner 1ère cellule [VBA Excel]

4 réponses

Discussions similaires