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

Signaler
Messages postés
319
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
1 juin 2018
-
Messages postés
319
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
1 juin 2018
-
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.

4 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 608
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
1144
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
Bonjour

A la place du msgbox tu met :

cells(Trouve.Row ,13).select
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
319
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
1 juin 2018
27
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
319
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
1 juin 2018
27
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.