Couleur de cellule et format

[WyLLoU]

Bonjour,j'ai un souci de couleur et de format de cellule.Je veux mettre en couleur une cellule choisie et j'utilise cette fonction Feuil2.Cells(2, 5).interor.ColorIndex = 3 mais il me met une erreur comme quoi il ne gére pas cette méthode sachant que je suis sous excel97.Et je veux aussi forcer le format monetaire d'une colonne....car à chaque fois que je récupére des données d'une autre feuille,le format reviens en standard...que faire????

 

[WyLLoU]

Bin non ça marche toujours pas???!!!

 

[WyLLoU]

Bin non ça marche toujours pas???!!!

 

[WyLLoU]

Mon souci viens de la postion de la commande dans le programme..car sur un nouveau fichier ça marche.... :S

 

[WyLLoU]

Oui le I c'est parceque j'avais mal tapé sur le forum...je vais mettre en fichier joint mais je c'est pas si ça va marcher

 

[WyLLoU]

Private Sub CB_type_Change()
'calcul nombre de ligne
Dim total As Integer

nbreligne = 0
I = 2
J = 3
Do While Feuil1.Cells(I, 3) <> ''
nbreligne = nbreligne + 1
I = I + 1
Loop
Range('A3:E' & nbreligne + 1).Clear
'mise en page
Dim mois As String
Dim typeint As String

mois = Mid(TextBox1.Text, 4, 5)

For I = 2 To nbreligne + 1

If Mid(Feuil1.Cells(I, 15), 4, 5) = mois Then

If CB_type.Value = 'Courtier' Then
typeint = 'C'
ElseIf CB_type.Value = 'Agent' Then
typeint = 'A'
Else: typeint = 'S'
End If

If typeint = UCase(Feuil1.Cells(I, 1)) Then
Range('A' & J).FormulaR1C1 = Feuil1.Cells(I, 3)
Range('B' & J).FormulaR1C1 = Feuil1.Cells(I, 14)
Range('C' & J).FormulaR1C1 = Feuil1.Cells(I, 9)

If Feuil1.Cells(I, 19) <> '' Then
Range('D' & J).FormulaR1C1 = 'TPM'
ElseIf Feuil1.Cells(I, 20) <> '' Then
Range('D' & J).FormulaR1C1 = 'TPC'
ElseIf Feuil1.Cells(I, 21) <> '' Then
Range('D' & J).FormulaR1C1 = 'FAC'
ElseIf Feuil1.Cells(I, 22) <> '' Then
Range('D' & J).FormulaR1C1 = '3A'
Else: Range('D' & J).FormulaR1C1 = 'Pas définie'

End If
Range('E' & J).FormulaR1C1 = Feuil1.Cells(I, 23)
J = J + 1
End If

End If
Next I
total = 0
For I = 3 To nbreligne + 1
total = total + Range('E' & I).Value
Next I
Range('E' & J).FormulaR1C1 = 'TOTAL'
Range('E' & J + 1).FormulaR1C1 = total

Dim L As Long
Dim nbTPM, nbTPC, nbFAC, nb3A, totalTPM, totalTPC, totalFAC, total3A As Long
nbTPM = 0
nbTPC = 0
nbFAC = 0
nb3A = 0
totalTPM = 0
totalTPC = 0
totalFAC = 0
total3A = 0

Range('B' & J + 3).FormulaR1C1 = 'Nbr'
Range('C' & J + 4).FormulaR1C1 = 'TPM'
Range('C' & J + 5).FormulaR1C1 = 'TPC'
Range('C' & J + 6).FormulaR1C1 = 'FAC'
Range('C' & J + 7).FormulaR1C1 = '3A'
Range('C' & J + 3).FormulaR1C1 = 'Type'
Range('D' & J + 3).FormulaR1C1 = 'Total'

For L = 3 To J


If Feuil2.Cells(L, 4) = 'TPM' Then
nbTPM = nbTPM + 1
ElseIf Feuil2.Cells(L, 4) = 'TPC' Then
nbTPC = nbTPC + 1
ElseIf Feuil2.Cells(L, 4) = 'FAC' Then
nbFAC = nbFAC + 1
ElseIf Feuil2.Cells(L, 4) = '3A' Then
nb3A = nb3A + 1
End If

If Feuil2.Cells(L, 4) = 'TPM' Then
totalTPM = totalTPM + Feuil2.Cells(L, 5)
ElseIf Feuil2.Cells(L, 4) = 'TPC' Then
totalTPC = totalTPC + Feuil2.Cells(L, 5)
ElseIf Feuil2.Cells(L, 4) = 'FAC' Then
totalFAC = totalFAC + Feuil2.Cells(L, 5)
ElseIf Feuil2.Cells(L, 4) = '3A' Then
total3A = total3A + Feuil2.Cells(L, 5)
End If
Next L
Range('B' & J + 4).FormulaR1C1 = nbTPM
Range('B' & J + 5).FormulaR1C1 = nbTPC
Range('B' & J + 6).FormulaR1C1 = nbFAC
Range('B' & J + 7).FormulaR1C1 = nb3A
Range('D' & J + 4).FormulaR1C1 = totalTPM
Range('D' & J + 5).FormulaR1C1 = totalTPC
Range('D' & J + 6).FormulaR1C1 = totalFAC
Range('D' & J + 7).FormulaR1C1 = total3A
Range('B' & J + 4).Interior.ColorIndex = 3


End Sub


c'est du lourd quand mm!!

 

[WyLLoU]

Voila... [file name=progfinaltest3.zip size=38060]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/progfinaltest3.zip[/file]

 

[WyLLoU]

Arfff d'après JMPS c'est un souci du fait que je suis sous excel97......;si quelqu'un a une idée!!!

 

[Hervé]

bonjour wyllou, josé, le forum

J'ai pas de solutions à cette histoire de 97, mais j'ai vu dans ta pièce jointe un truc bizarre, alors j'en fait part au cas ou ceci pourrait rendre service.

Tu codes la date dans la textbox avec une année à 2 chiffres : TextBox1.Text = Format(Now, 'dd/mm/yy')

Dans ton code tu compares une partie de cette date : mois = Mid(TextBox1.Text, 4, 5) soit par exemple 06/05

avec une date en colonne 15 au format (dd/mm/yyyy) : Mid(Feuil1.Cells(I, 15), 4, 5) soit par exemple 06/20;

ainsi tu n'auras jamais de correspondance (sauf pour l'année 2020).

tu devrais essayer d'uniformiser tes formats de dates : TextBox1.Text = Format(Now, 'dd/mm/yyyy')

et corriger tes mid Mid(TextBox1.Text, 4) pour pouvoir comparer des 06/2005.

Voilà, en espérant ne pas avoir fait dans la zopette

Salut

 

[WyLLoU]

Bi non moi tout mes format date sont en jj/mm/aa.....c'est surment sous ta version de excel qui fait ça...moi non!!!ça marche!!!

 

[Hervé]

Bonjour wyllou, josé, le forum

Bizarre, chez moi les données dans la colonne 15 de la feuille 1, sont au format (dd/mm/yyyy) et si je corrige pas le code comme indiqué, ca marche pas

bon ben c'est ma tournée au zop bar team

Salut