meego78
1Messages postés
17 janvier 2008Date d'inscription
17 janv. 2008 à 14:54
Bonjour,
pour les couleurs, tu fais Menu Format -> Mise en forme conditionnelle
Tu mets tes conditions "La valeur de la cellule égale MC" tu cliques sur le bouton format et tu choisis la couleur désirée
Tu cliques sur le bouton Ajouter. Et là tu mets autant de conditions que tu désires ( enfin pas 50000 ! )
Voila pour les couleurs
Pour les totaux : c'est du VBA ( ALT+F11 )
Pour par exemple "traquer" les valeurs entre les cellules J16 à N31
ColStart = "J": ColEnd = "N"
LigneStart = 16: LigneEnd = 31
Inserer un module et y mettre ce code
Global flag As Byte
Private Sub Worksheet_Change(ByVal Target As Range)
If flag = 1 Then Exit Sub
Rem
Rem on traque entre les colonnes J et N
Rem et entre les lignes 16 et 31
Rem
ColStart = "J": ColEnd = "N"
LigneStart = 16: LigneEnd = 31
Cellule = Target.Address
Dollar = InStr(2, Cellule, "$")
colonne$ = Mid$(Cellule, 2, Dollar - 2)
Ligne$ = Mid$(Cellule, Dollar + 1)
If (colonne$ >= ColStart And colonne$ <= ColEnd) Then
If (Ligne$ >= LigneStart And Lignes <= LignesEnd) Then
For Colonnes = Asc(ColStart) To Asc(ColEnd)
For Lignes = LigneStart To LigneEnd
Longueur = Len(Cells(Lignes, Colonnes - 64).Text)
Select Case Longueur
Case 1
P = P + 1
Case 2
MC = MC + 1
Case 3
MSC = MSC + 1
End Select
Next Lignes
flag = 1
Cells(LigneEnd + 1, Colonnes - 64).Value = "MC = " + CStr(MC)
Cells(LigneEnd + 2, Colonnes - 64).Value = "MSC = " + CStr(MSC)
Cells(LigneEnd + 3, Colonnes - 64).Value = "P = " + CStr(P)
flag = 0
MC = 0: MSC = 0: P = 0
Next Colonnes
End If
End If
End Sub
Voila, cela devrait faire l'affaire !
Il faut nommer ta liste pour pouvoir l'utiliser sur une autre feuille.
merci pour le tuyau!!