Ajouter une couleur

nikkyb · 28 Avril 2010

Bonjour,

J'ai dans un userform des textbox dans les quels ont trouve des text et des montant, j'aimerai qu'aprés une validation celle ci devienne rouge et s'enregistre tel quel dans la feuil excel.

Voici mon code actuel de validation :

Code:

Private Sub cmdvalidemodifjanvier_Click()
Dim cel As Range

    If txtheureeefectue.Value = "" Then MsgBox "Indiquer le nombre d'heures réalisé!": Exit Sub
     If txtmontant = "" Then MsgBox "Indiquer le montant du paiement": Exit Sub
       If txtmontantcharge = "" Then MsgBox "Indiquer le montant des charge(0 si nul)!": Exit Sub
   If txtrepasetdeplacement = "" Then MsgBox "Indiquer le montant repas et déplacement(0 si nul)": Exit Sub
    If txtdatepaiement = "" Then MsgBox "Indiquer la date de paiement!": Exit Sub
       If txtcheque = "" Then MsgBox "Indiquer le numéro de chèque": Exit Sub
   If txttotalapayer = "" Then MsgBox "Indiquer le montant total": Exit Sub
    If MsgBox("Voulez vous enregistrez ces données ?", vbYesNo, "Paiement d'un prestataire") = vbYes Then
    If sup = vbCancel Then Exit Sub

Set cel = Sheets("Paie FO").Columns(1).Find(ComboBoxnumero, LookIn:=xlValues, lookat:=xlWhole)
 If cel Is Nothing Then GoTo erreur
   With cel
   .Cells(1, 17) = txtheureeefectue.Value
      .Cells(1, 18) = txtdatepaiement.Value
    .Cells(1, 19) = CCur(txtmontant)
    .Cells(1, 20) = CCur(txtmontantcharge)
     .Cells(1, 21) = CCur(txtrepasetdeplacement)
    .Cells(1, 22) = CCur(txttotalapayer)
       .Cells(1, 23) = txtcheque
  End With
 Unload Me
 Exit Sub
erreur:
   End If
End Sub

J'ai essayé de rajouter ca un peu dans tout les sens mais rien n'y fais...

.ForeColor = &H000000FF&

Merci de votre aide

ROGER2327 · 28 Avril 2010

Re : Ajouter une couleur

Bonjour nikkyb

Pour colorier une cellule, il faut utiliser la propriété Interior :

Code:

[B]Cells(4, 3).Interior.Color = 255[/B]par exemple.

ROGER2327
#3354

9 Floréal An CCXVIII
2010-W17-3T20:38:32Z

nikkyb · 28 Avril 2010

Re : Ajouter une couleur

Merci pour la réponse mais comment dois je le mettre en forme dans mon code pour qu'il soit pris en compte?

Merci d'avance

ROGER2327 · 28 Avril 2010

Re : Ajouter une couleur

Re...

J'ai dans un userform des textbox dans les quels ont trouve des text et des montant, j'aimerai qu'aprés une validation celle ci devienne rouge et s'enregistre tel quel dans la feuil excel.

Le problème est que je n'ai pas bien compris quelle cellule, de quelle feuille, vous voulez colorier.

ROGER2327
#3357

9 Floréal An CCXVIII
2010-W17-3T21:52:48Z

nikkyb · 28 Avril 2010

Re : Ajouter une couleur

Salut

Dans mon exemple je veux mettre en rouge (que l'écriture) de :

.Cells(1, 17) = txtheureeefectue.Value
.Cells(1, 18) = txtdatepaiement.Value
.Cells(1, 19) = CCur(txtmontant)
.Cells(1, 20) = CCur(txtmontantcharge)
.Cells(1, 21) = CCur(txtrepasetdeplacement)
.Cells(1, 22) = CCur(txttotalapayer)
.Cells(1, 23) = txtcheque
de la feuil "Paie FO"
A bientot

ROGER2327 · 29 Avril 2010

Re : Ajouter une couleur

Re...

Essayez ceci :

Code:

[COLOR="DarkSlateGray"][B].Cells(1, 17) = txtheureeefectue.Value
.Cells(1, 18) = txtdatepaiement.Value
.Cells(1, 19) = CCur(txtmontant)
.Cells(1, 20) = CCur(txtmontantcharge)
.Cells(1, 21) = CCur(txtrepasetdeplacement)
.Cells(1, 22) = CCur(txttotalapayer)
.Cells(1, 23) = txtcheque
[COLOR="Sienna"].Cells(1, 17).Resize(1, 7).Font.Color = 255[/COLOR][/B][/COLOR]

ROGER2327
#3358

9 Floréal An CCXVIII
2010-W17-3T22:03:30Z

nikkyb · 29 Avril 2010

Re : Ajouter une couleur

Salut merci pour la réponse

Ca fonctionne parfaitement seulement les données transmise sur la feuil sont bien rouge mais ces meme donnée sont reprise automatiquement sur un lisview

Récuperé de cette manière :

Private Sub OptionButtonpaye_Click()
Dim cel1 As Range
vide

ListViewpayfo.ListItems.Clear

For Each cel1 In rgpayefo
If cel1.Offset(0, 9) = cel1.Offset(0, 12) Then

With ListViewpayfo
.ListItems.Add , , cel1
.ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 3), "# ##0.00 H")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 4), "# ##0.00 H")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 5), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 6), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 7), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 8), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 9), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 10), "# ##0.00 H")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 11), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 12), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 13), "# ##0.00 ")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 14), "# ##0.00 H")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 15), "# ##0.00 ")
End With

End If
Next cel1
end sub

Sait tu comment elle pourrait devenir rouge dés que lces meme donnée sont rouge dans la feuil ?

Merci d'avance

ROGER2327 · 29 Avril 2010

Re : Ajouter une couleur

Re...

Je n'ai pas expérimenté la chose, mais il y a peut-être une réponse ici.

ROGER2327
#3361

10 Floréal An CCXVIII
2010-W17-4T10:45:02Z

Ajouter une couleur

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Ajouter une couleur

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

nikkyb

Guest

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency