Changer la couleur de la ligne

Caroline1 · 15 Avril 2008

BOnjour, merci à tous ceux qui m'ont envoyés des réponses concernant mon userform. Maintenant je comprend un peu plus.

J'ai une autre question qui concerne le changement de couleur des lignes où l'information est entrée. J'ai essayé plusieurs formules mais rien ne marche.

En résumé:

J'ai deux onglets le premier facturation qui focntionne très bien. Merci
Dans le deuxième onglet (de mon userform) je suis capable d'entrées toutes les données. Elles vont se placer à la bonne place mais j'aimerais que la ligne change de couleur pour gris à la place de rester blanche.

Le fichier est en pièce jointe. J'ai mis la couleur que j'aimerais que la ligne devienne.

Merci de bien vouloir m'aider.

skoobi · 15 Avril 2008

Re : Changer la couleur de la ligne

Bonjour,

utilise l'enregistreur de macro et VBA t'aidera

roro69 · 15 Avril 2008

Re : Changer la couleur de la ligne

Bonsoir voici le code pour ton bouton de commande OK/

Private Sub CmdOk_Click()

DerLig = Cells(Cells.Rows.Count, 7).End(xlUp).Row + 1

If IsDate(TxtDate_Facture.Text) Then Cells(DerLig, 1) = CDate(TxtDate_Facture.Text)
Cells(DerLig, 2) = TxtNumero_Facture.Text

Cells(DerLig, 3) = Format(TxtMontant_facture.Text, "0.00")
Cells(DerLig, 7) = TxtNom_Entreprise.Text

' L'enregistrement est terminé, il faut vider les zones de saisie pour
' Voici le code Pour charger la couleur
Dim c As Byte
For c = 1 To 7
If c Mod 1 = 0 Then
With Cells(DerLig, c)
.Interior.ColorIndex = 16
End With
End If
Next

TxtNom_Entreprise.Value = ""
TxtDate_Facture.Value = ""
TxtMontant_facture.Value = ""
TxtNumero_Facture.Value = ""

' Pour se repositionner dans la première zone de saisie
TxtNom_Entreprise.SetFocus

End Sub

Bonne soirée

Changer la couleur de la ligne

Caroline1

XLDnaute Nouveau

Pièces jointes

skoobi

XLDnaute Barbatruc

roro69

XLDnaute Impliqué

Discussions similaires