Discussion :

[bonilla]

Bonjour à tous,

J'ai un petit soucis sur ma macro

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!

[bonilla]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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