Find avec plusieurs valeurs

Bonjour,

Je travail actuellement sur une macro avec plusieurs colonnes, quand je vais changer certaine cellule une date va venir incrémenté mes colonnes "Modif date"

Actuellement mon code fonctionne pour la premier colonne "Modif date" mais ne va pas chercher les autres colonnes du même nom

je ne sais pas comment modifier mon code en fonction

Voici le code :

Private Sub WorkSheet_Change(ByVal Target As Range)

    stRech = "Validation Composant"
    stRech2 = "Validation Quantité"
    stRech3 = "Modif date"

        Set Valcomp = Sheets("Nomenclature Chantier").Rows(2).Find(stRech, LookIn:=xlValues, LookAt:=xlWhole)
        Set Valquan = Sheets("Nomenclature Chantier").Rows(2).Find(stRech2, LookIn:=xlValues, LookAt:=xlWhole)

      'Il me trouve le numéro de la premier colonne Modif date
Set essai = Sheets("Nomenclature Chantier").Rows(2).Find(stRech3, LookIn:=xlValues, LookAt:=xlWhole)

        If Target.Column >= Valcomp.Column And Target.Column <= Valquan.Column Then
 'et m'affiche la date du jour dans la colonne Modif date
        Cells(Target.Row, essai.Column) = Now
        On Error Resume Next
        If Target.Value = "" Then
            Target.ClearComments
        Else
            If Target.Comment Is Nothing Then
                Target.AddComment
                Target.Comment.Visible = False
                Target.Comment.Text Text:="Modifé en " & Target.Value & " le " & Date & " à " & Time & " par " & Application.UserName
                Target.Comment.Visible = True
                Target.Comment.Shape.Select True
                Selection.ShapeRange.ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft
                Target.Comment.Visible = False
                Target.Select
            Else
                Target.Comment.Text Text:=Target.Comment.Text & Chr(10) & "Modifé en " & Target.Value & " le " & Date & " à " & Time & " par " & Application.UserName
            End If
        End If
        On Error GoTo 0
    End If

End Sub

En espérant que je m'exprime bien

Merci à vous

Cordialement

Antoine

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Bonjour,

Voici le fichier en question

Merci pour votre aide

Bonjour,

Un essai (non optimisé !...).

Cdlt.

Bonjour,

C'est parfais, c'est pile ce que je cherchais !

Merci beaucoup, je vais essayer de comprendre ce code maintenant ^^

Bonjour,

désolé de remonté le sujet mais au lieux d'en créer un nouveau vu que c'est le même sujet j'ai préféré reprendre celui ci.

Pour évité les formules qui supprimer par mégarde par d'autre utilisateurs, j'ai créer un script qui pour moi devrais fonctionner

c'est un vlookup simple

Mais je ne comprendre pas quand dans la colonne 7 je met une donnée de la liste déroulante il m'affiche une erreur 1004

voici le code de ma ligne :

If Sheets("Nomenclature Chantier").Cells(R, 5) = "" Then Sheets("Nomenclature Chantier").Cells(R, 5) = WorksheetFunction.VLookup(Cells(6, 7), Sheets("BDD").Range("A1:E1000"), 2, False)

et je vous joint également le fichier excel :

Comment résoudre ce problème ? pour moi le code me semble bon

Merci d'avance

Antoine