MuscatMimi
XLDnaute Accro
Bonjour a toutes et Tous
me revoila pour un autre soucis
Apparament les Balises Code ne fonctionne plus !!!!!
Bon voici mon Code qui est de je crois, de Kjin
Ce que je cherche a réaliser, c'est de Modifier la couleur de Police dans ma feuille et dans ma ListView,aprés Modifs
J'ai déja réalisé le Code pour Modifier la Couleur de Police dans mes TextBox de mon Usf
ça fonctionne
me revoila pour un autre soucis
Apparament les Balises Code ne fonctionne plus !!!!!
Bon voici mon Code qui est de je crois, de Kjin
Code:
Private Sub CommandButton2_Click() 'Bouton Modifier
Dim C As Byte, li As Long
'--mise à jour listview
With ListView1
li = Mid(.ListItems(.SelectedItem.Index).Key, 2)
If MsgBox("Confirmation de la modification.", vbYesNo, "Confirmation") = vbNo Then Exit Sub
'--mise à jour des colonnes de la listview
.ListItems(.SelectedItem.Index).Text = (TextBox1)
For C = 1 To 12 '.ColumnHeaders.Count - 1
.ListItems(.SelectedItem.Index).ListSubItems(C).Text = Controls("TextBox" & C + 1)
Next C
End With
'--mise à jour de la feuille
With Sheets(1)
'.Unprotect Password:="0000"
For C = 1 To 11
Select Case C
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13
.Cells(li, C) = (Controls("TextBox" & C))
Case 2
.Cells(li, C) = (Controls("TextBox" & C))
.Font.ColorIndex = 5
' Case 2
'If Right(Controls("TextBox" & C), 1) = "%" Or Right(Controls("TextBox" & C), 1) = "€" Then _
'.Cells(li, C) = CDbl(Left(Controls("TextBox" & C), Len(Controls("TextBox" & C)) - 1))
'Case 4, 14, 17, 20, 23
'.Cells(li, C) = CDate(Controls("TextBox" & C))
Case Else
.Cells(li, C) = Controls("TextBox" & C)
End Select
Next C
'--.Protect Password:="0000"
End With
End SubJ'ai déja réalisé le Code pour Modifier la Couleur de Police dans mes TextBox de mon Usf
ça fonctionne