Selectionner 1ère cellule [VBA Excel]
Résolu
nightsheart
Messages postés
319
Date d'inscription
Statut
Membre
Dernière intervention
-
nightsheart Messages postés 319 Date d'inscription Statut Membre Dernière intervention -
nightsheart Messages postés 319 Date d'inscription Statut Membre Dernière intervention -
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.
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]
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
4 réponses
Bonjour,
Un exemple avec la méthode find.
Adapte juste le nom de ta feuille. Dans l'exemple "Feuil1" :
Tu dis...
Cordialement,
Franck P
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
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
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
