Selectionner 1ère cellule [VBA Excel]

Résolu/Fermé

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 - Modifié par nightsheart le 8/08/2011 à 09:34
nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 - 8 août 2011 à 10:21

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.

A voir également:

Selectionner 1ère cellule [VBA Excel]
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Excel compter cellule couleur sans vba - Guide

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 8/08/2011 à 09:37

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

Réponse 2 / 4

moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 60
8 août 2011 à 10:19

Bonjour

A la place du msgbox tu met :

cells(Trouve.Row ,13).select

Réponse 3 / 4

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
8 août 2011 à 10:21

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

Réponse 4 / 4

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
Modifié par nightsheart le 8/08/2011 à 09:54

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.

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Excel formule : savoir si une cellule contient partie texte

Discussions similaires

Newsletters