[VBA-E] RechercheV si changement de valeur sur une cellule

Bonjour à tous,

J'ai un petit soucis sur ma macro :oops:

J'ai 3 feuilles : EquipeA , EquipeB , Statut

Dans la feuille Statut se trouve 3 colonnes, Equipe Statut et Date ,et la ca mets les equipes (du groupe A ou B), avec leur statut (en course,eliminé) et si éliminé alors on met la date dans la 3ème colonne.(exemple C1)

Dans les feuilles EquipeA et EquipeB se trouve les équipes (avec des redondances),et leur statut ainsi que leur date d'elimination si y'a.

j'aimerais ,lorsqu'on modifie le statut dans la feuille 'Statut' ,que ca me mette a jour(via un recherchev) le statut dans les feuilles EquipeA et EquipeB


Je pense que ca devrait commencer comme ca

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "C1" Then

'et la ca devrait lancer un rechercheV sur les deux feuilles ,puis en faire un copier coller valeur (pour enlever la formule)
Quelqu'un pourrait m'aider?

Merci d'avance!:)

Bon ben j'ai trouvé tt seul et je laisse la solution pour ceux a qui ca peut aider :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Worksheets("Statut").Range("A:C"), 3, False) Macro1 End If End Sub

---

et la macro1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub Macro1()   Sheets("EquipeA").Select Range("P2").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-15],statut!C[-15]:C[-13],3,0)" Range("P2").Select   Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)) Calculate Range("P2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("P2").Select Application.CutCopyMode = False       Sheets("EquipeB").Select   Range("P2").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-15],statut!C[-15]:C[-13],3,0)" Range("P2").Select   Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)) Calculate Range("P2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("P2").Select Application.CutCopyMode = False   Sheets("statut").Select Range("A2").Select End Sub

---