Recherche cellule

Bonjour à toutes et tous

J'ai encore besoin de vous.

Je voudrais dans le tableau en pièce jointe quand je tape le numéro de dossard dans la cellule H2, ce numéro se reporte dans la cellule correspondante au numéro de dossard, par exemple si j'entre le numéro 5, ce numéro doit se porter dans la cellule H8 et ce numéro doit rester afficher quand j'entre un autre numéro en H2.

J'ai entrer un code VBA en module 1, mais cela ne fonctionne pas.

Merci d'avance pour votre aide.

Bonjour,

Code à mettre dans le module de la feuille "Feuil1" et non dans un module standard car procédure événementielle :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) <> "H2" Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Not IsNumeric(Target.Value) Then Exit Sub
    If Target.Value < 1 Then Exit Sub

    Application.EnableEvents = False
    Cells(Target.Value + 3, 8).Value = Target.Value
    Application.EnableEvents = True

End Sub

Bonjour,

Une autre proposition à étudier.

Un petit bonjour à Theze.

Cdlt.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long, rng As Range, p As Long
    If Target.Address = "$H$2" Then
        If IsEmpty(Target) Or Not IsNumeric(Target) Then Exit Sub
        If Target.Value < 1 Or Target.Value >= 150 Then Exit Sub
    End If
    With Me
        N = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Cells(1).Resize(N)
        On Error Resume Next
        p = Application.Match(Target.Value, rng, 0)
        If Err.Number <> 0 Then
            Err.Clear
            MsgBox "Le dossard " & Format(Target.Value, "000") & " est inconnu !..."
            Exit Sub
        Else
            .Cells(p, 8).Value = Target.Value
        End If
    End With
End Sub

Bonjour Theze et Jean-Eric.

J'ai utilisé le code de These, il fonctionne bien, mais je garde celui Jean-Eric sous le coude, surtout dans le cas d'erreur de saisie..

Merci à vous deux.

Pour moi le post est clos.

A vous relire.

Re,

J'ai pensé à la buvette qui ne servait pas que de l'eau !...

Cdlt.