VBA - Rechercher une cellule par sa valeur et écrire dessous

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

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
Rechercher des sujets similaires à "vba rechercher valeur ecrire dessous"