remerder avec excel

Re : remerder avec excel

Re


EDITION: Autant pour moi 😛 (J'ai été distrait sur ce coup-là )

Avec cette modif, plus de problème
Code vba:
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
'D'après Utiliser le contrle ListView en VBA Excel
Dim j As Integer
Set Sh = Sheets("Feuil1") '--->> ajout ici
If Item.Checked = True Then
Item.ForeColor = RGB(0, 0, 255) 'Changement couleur
Item.Bold = True 'Gras
Sh.Cells(ListView1.ListItems(Item.Index).ListSubItems(4), 4) = 1
For j = 1 To Item.ListSubItems.Count
Item.ListSubItems(j).ForeColor = RGB(0, 0, 255)
Item.ListSubItems(j).Bold = True
Next j
Else
Item.ForeColor = RGB(1, 0, 0) 'Changement couleur
Item.Bold = False
Sh.Cells(ListView1.ListItems(Item.Index).ListSubItems(4), 4) = ""
For j = 1 To Item.ListSubItems.Count
Item.ListSubItems(j).ForeColor = RGB(1, 0, 0)
Item.ListSubItems(j).Bold = False
Next j
End If
End Sub

Re : remerder avec excel

Bon le probléme de date n'apparaît plus sur ce fichier :

Bonne nuit !

[/CODE]
Sub essai2()
Dim i As Integer
For i = 2 To 16
If Cells(i, 3) = Date - 10 Then
Range(Cells(i, 1), Cells(i, 3)).Font.ColorIndex = 6 ' 20 déc
ElseIf Cells(i, 3) = Date - 5 Then
Range(Cells(i, 1), Cells(i, 3)).Font.ColorIndex = 5 '25 déc
ElseIf Cells(i, 3) = Date + 2 Then
Range(Cells(i, 1), Cells(i, 3)).Font.ColorIndex = 3 '1 Janvier 2014
End If
Next i
End Sub
[/CODE]

Attention priére de le lire maintenant pour les fêtes de noel et du nouvelle an

Que le champagne jaillit !