Discussion :

[chloe2]

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

[Krovax]

Bonjour

Quand tu mets un with il faut l'utiliser

essaye ceci

Code :

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

1
2
3
4
With Worksheets("RRA")
range("A1")= "Sans le point"
.range("B1")="Avec le point
end with

Plus généralement

Code :

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

1
2
3
with AAAAA
.BBBBB
end with

reviens a faire

Code :

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

AAAAA.BBBBB

si tu fais come toi

Code :

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

1
2
3
with AAAAA
BBBBB
end with

cela reviens a faire

Code :

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

BBBBB

A toi de mettre les point la ou il faut. Si tu met un point ca utiliseraz ton with et travaillera sur RRA si tu ne le met pas ca n'utilise pas le with et travail sur acceuil