Salut le forum
Paritec, petite modification de la macro
Sub remplir()
Dim jour As Byte, mois As Byte, m As Variant, x As Byte
For Each m In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _
"Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
mois = mois + 1
If UserForm3.ComboBox1 = m Then Exit For
Next m
For jour = 1 To Day(DateAdd("d", -1, DateSerial(Year(Date), mois + 1, 1)))
If Weekday(DateSerial(Year(Date), mois, jour)) = 3 Or Weekday(DateSerial(Year(Date), mois, jour)) = 4 Then
ActiveSheet.Cells(2, 6 + x) = Format(DateSerial(Year(Date), mois, jour), "mm/dd")
x = x + 1
End If
Next jour
End Sub
Vérification si feuille déjà existant dans Private Sub CommandButton1_Click()
'...
If ComboBox1.ListIndex = -1 Then Exit Sub
If SheetExists(ComboBox1) Then
MsgBox "La feuille existe déjà"
Unload Me
Exit Sub
End If
'...
Rajoute dans un module
Function SheetExists(SName As String, _
Optional ByVal wb As Workbook) As Boolean
'Chip Pearson
On Error Resume Next
If wb Is Nothing Then Set wb = ThisWorkbook
SheetExists = CBool(Len(wb.Sheets(SName).Name))
End Function
Mytå