Recherche avec VBA

Christian_koffi

XLDnaute Nouveau
Bonjour,
Lorsque j'inscris dans la colonne C l'avancement en pourcentage, je voudrais comparer la date de la colonne B au valeurs (dates) de la liste D1:K1. Si la date est trouvée dans cette liste le pourcentage inscrit s'affiche dans zone bleue c'est à dire au croisement de la ligne où le pourcentage est inscrit et la colonne où la date est trouvée.
Je voudrais un code en VBA mais je n'arrive pas.
Ci joint le fichier pour plus de visibilité.
Merci.
 

Pièces jointes

  • Classeur1 essai.xlsx
    10.7 KB · Affichages: 38
  • Classeur1 essai.xlsx
    10.7 KB · Affichages: 37
  • Classeur1 essai.xlsx
    10.7 KB · Affichages: 37

Modeste

XLDnaute Barbatruc
Re : Recherche avec VBA

Bonsoir Christian_koffi,

Essaie, dans le module de la feuille2, la procédure événementielle suivante:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [C2:C7]) Is Nothing Then
        If Target <> "" Then
            col = Application.Match(Target.Offset(0, -1), [1:1], 0)
            If Not IsError(col) Then Cells(Target.Row, col) = Target
        End If
    End If
End Sub
 

Statistiques des forums

Discussions
312 496
Messages
2 088 982
Membres
103 997
dernier inscrit
SET2A