Remplir une cellule de la même ligne que la valeur recherchée (VBA)

Bonjour,

Je recherche une fonction VBA qui me permettrait d'ajouter du contenu à une cellule donnée en fonction d'une valeur que j'aurais cherchée précédemment.

Par exemple, si ma valeur cherchée est "Julien" alors ma procédure complète la cellule "Nombre de Virement" qui est sur la même ligne que ma valeur cherchée.

Comment peut-on arriver à cela ?
Merci d'avance pour votre aide

Horusbk.

Bonjour

Vu le peu de renseignement…

ci joint ma solution

double clic sur la feuille pour voir le formulaire

A+ François

Bonjour,

Merci pour votre réponse.

Effectivement, j'ai sans doutes omis de préciser que je récupère la valeur cherchée depuis une cellule de mon classeur. La valeur qui est ensuite ajoutée à la colonne "Nombre de virement" est elle-même calculée automatiquement.

Je ne cherche donc pas à remplir cette cellule via un formulaire. Mais plutôt dire à Excel que la cellule à compléter à pour référence "B3" lorsque la personne sélectionnée est "Julien".

Cordialement,

Horusbk.

Re,

J'ai trouvé une solution, elle n'est pas très évolutive mais elle fonctionne...

            If MaRecherche = "Julien" Then
                Feuil4.Range("D2") = LaDate
            End If
            '
            If MaRecherche = "Lise" Then
                Feuil4.Range("D3") = LaDate
                Feuil4.Range("E3") = 1
            End If
            '
            If MaRecherche = "Adrien" Then
                Feuil4.Range("D4") = LaDate
                Feuil4.Range("E4") = 1
            End If

Bonjour

En évolutif macro à mettre sur la feuille (clic droit sur l'onglet, choisir visualiser le code, copier la macro ci dessous)

Pour ce faire j'ai déplacé E2 et E3 en H2 et H3 (vu que tu utilise la colonne E)

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lig As Long
 lig = 0
 If Target.Count > 1 Then Exit Sub
 If Target.Address <> "$H$3" Then Exit Sub
 lig = ActiveSheet.Columns(1).Find(Target.Value).Row
 If lig = 0 Then Exit Sub
 Range("D" & lig).Value = Date
 Range("E" & lig).Value = 1
End Sub

A+ François

Bonjour François,

Merci pour ton aide ! C'est exactement la solution que je recherche.

Merci