Voici mon soucis:
J'ai créé plusieur macro que je lance en cliquant sur des bouton a partir dun onglet Accueil et qui doivent remplir des cases d'un onglet RRA.
(je ne peut pas mettre les boutons directement sur RRA étant donné que l'onglet RRA est remplacé chaque semaine).

Ma première macro fonctionne mais s'exerce sur mon onglet d'accueil.. malgré l'instruction With worksheets ("RRA") ou Worksheets ("RRA").activate cf le code:

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
Private Sub CommandButton1_Click()
    Dim LastLig As Long, i As Long
 
 
  With Worksheets("RRA")
 
    Range("R4") = "Code 1"
    Range("S4") = "Devise "
    Range("T4") = "val"
    Range("U4") = "Date val"
    Range("V4") = "val euro"
    Range("W4") = "expo/val"
    Range("V4").AutoFilter
    Columns("K:Q").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        'étape obligatoire puisque les chiffres de longlet RRA ont un point et non une virgule ce qui empeche les operation excel
 
    Range("R5") = _
        "=VLOOKUP(RC[-14],'[table1.xls]Feuil1'!C1:C3,3,FALSE)"
    Range("R5").AutoFill Destination:=Range("R5:R195"), Type:=xlFillDefault
 
 
 
    LastLig = Cells(Rows.Count, 1).End(xlUp).Row
 
    Range("A5:R" & LastLig).Sort Key1:=Range("D5"), Order1:=xlAscending, _
    Key2:=Range("F5"), Order2:=xlAscending, Header:=xlNo
        For i = LastLig To 5 Step -1
             If Range("R" & i).Value = Range("R" & i - 1).Value And Range("F" & i).Value = Range("F" & i - 1).Value Then
             Range("P" & i - 1).Value = Range("P" & i - 1).Value + Range("P" & i).Value
             Rows(i).Delete
             End If
        Next i
End With
 
End Sub