Vba - Rechercher une cellule par sa valeur et écrire dessous Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
M
MrShadee
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 24 décembre 2016
Version d'Excel : 2016 FR

Message par MrShadee » 29 décembre 2016, 20:44

Bonsoir le forum,

Je tâtonne sur une chose qui à première vue, n'a pas l'air très compliquée
A l'aide de VBA, j'aimerais chercher une cellule dans ma feuille active contenant la valeur "Etude" et pouvoir écrire la valeur de mon textBox juste en dessous.
Je sèche

En attente de vos lumières,
Nicolas
M
MrShadee
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 24 décembre 2016
Version d'Excel : 2016 FR

Message par MrShadee » 29 décembre 2016, 21:29

J'ai trouvé, pour ceux que ça peut aider :
Valeur_Cherchee = "Etude"
    '
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
If Trouve Is Nothing Then
    AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
    AdresseTrouvee = Trouve.Address
End If

Set PlageDeRecherche = Nothing
Set Trouve = Nothing
Range(AdresseTrouvee).Offset(2, 0) = ComboBox1.Value
  
End If
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message