Bonjour à toutes et à tous
J'ai un petit soucis de débutant dans pour un select case placé dans un if.
J'ai le code ci-dessous qui:
- vérifie une condition, (OK)
- copie les lignes respectant cette condition (OK)
- doit les coller dans l'onglet demandé (PAS OK)
Sub virement_auto_mr()
Dim dates
Dim ligne
Dim Jour
dates = Format(Now, "dd/mm/yyyy")
Jour = Format((Day(dates)))
For i = 11 To 20
If dates > Range("D" & i).Value And Jour = Range("C" & i).Value Then
Range("D" & i) = dates
Range("D" & i & ": O" & i).Copy
Select Case Month(dates)
Case 1
Sheets("Janvier Mr").Visible = True
Sheets("Janvier Mr").Select
Case 2
Sheets("Février Mr").Visible = True
Sheets("Février Mr").Select
Case 3
Sheets("Mars Mr").Visible = True
Sheets("Mars Mr").Select
Case 4
Sheets("Avril Mr").Visible = True
Sheets("Avril Mr").Select
Case 5
Sheets("Mai Mr").Visible = True
Sheets("Mai Mr").Select
Case 6
Sheets("Juin Mr").Visible = True
Sheets("Juin Mr").Select
Case 7
Sheets("Juillet Mr").Visible = True
Sheets("Juillet Mr").Select
Case 8
Sheets("Août Mr").Visible = True
Sheets("Août Mr").Select
Case 9
Sheets("Septembre Mr").Visible = True
Sheets("Septembre Mr").Select
Case 10
Sheets("Octobre Mr").Visible = True
Sheets("Octobre Mr").Select
Case 11
Sheets("Novembre Mr").Visible = True
Sheets("Novembre Mr").Select
Case 12
Sheets("Décembre Mr").Visible = True
Sheets("Décembre Mr").Select
End Select
Range("D65536").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next
End Sub
En fait, la copie se passe bien mais ça ne colle pas au bonne endroit, ca colle dans mon onglet en cours et pas dans l'onglet du mois d’août comme demandé bien que ça l'ouvre....
quelqu'un pourrait m'aider?
Merci par avance,