Discussion :

[NEC14]

Bonjour,

Actuellement sous Excel j'ai mis en place une mise en forme conditionnelle come celle-ci :

Nb.si($b$6:$b$2126;b6)>1 alors la cellule se met en jaune.
Je traduit, si le numéro de facture existe déjà, alors je suis averti par la mise en couleur de la cellule. Mon soucis c'est qu'à chaque fois qu'un numéro est commun avec un autre, la couleur est jaune.
La facture est parfois répartie sur plusieurs sites au prorata.
Je voudrais savoir si il est possible à l'aide de VBA de créer un code qui réponde au même critère, mais que la couleur change si ce n'est pas le même numéro mais rencontre un numéro commun.
Par exemple : Facture 1 enregistrée 2 fois alors jaune
Facture 2 enregistrée 2 fois alors vert
J'espère avoir été clair sinon dites le moi.
Merci par avance

[ZeitnotZatopek]

Bonjour,
Ai je bien compris :

le code voulu est bien:

si sur la plage B7:B2126 on a déjà au moins une fois la valeur de B6, mettre B6en jaune?

[mayekeul]

pas trop mais je suppose que tu as deux condition donc.

ta formule n'en possede qu'une......

[fring]

Bonjour tlm,

En supposant que tu n'as pas plus de deux fois le même numéro de facture, ceci pourrait peut-être convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim i As Integer, x As Byte, c As Range, DerL As Integer
 
x = 3
DerL = Cells(Rows.Count, 2).End(xlUp).Row
 
For i = 1 To DerL - 1
    If x < 57 Then
        x = x
    Else
        x = 3
    End If
 
    Set c = Range("B" & i + 1 & ":B" & DerL).Find(what:=Cells(i, 2).Value, lookat:=xlWhole)
        If Not c Is Nothing Then
            Cells(i, 2).Interior.ColorIndex = x
            c.Interior.ColorIndex = x
            x = x + 1
        Else
            Cells(i, 2).Interior.ColorIndex = xlNone
        End If
Next
End Sub

[NEC14]

Bonjour tlm,

En supposant que tu n'as pas plus de deux fois le même numéro de facture, ceci pourrait peut-être convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim i As Integer, x As Byte, c As Range, DerL As Integer
 
x = 3
DerL = Cells(Rows.Count, 2).End(xlUp).Row
 
For i = 1 To DerL - 1
    If x < 57 Then
        x = x
    Else
        x = 3
    End If
 
    Set c = Range("B" & i + 1 & ":B" & DerL).Find(what:=Cells(i, 2).Value, lookat:=xlWhole)
        If Not c Is Nothing Then
            Cells(i, 2).Interior.ColorIndex = x
            c.Interior.ColorIndex = x
            x = x + 1
        Else
            Cells(i, 2).Interior.ColorIndex = xlNone
        End If
Next
End Sub

Je peux avoir jusqu'à 10 fois le même numéro puisque la facture peut-être divisée entre 10 bâtiments.

[fring]

Je peux avoir jusqu'à 10 fois le même numéro puisque la facture peut-être divisée entre 10 bâtiments.

et je suis censé le savoir comment ?

relis ce que tu as mis

Par exemple : Facture 1 enregistrée 2 fois alors jaune
Facture 2 enregistrée 2 fois alors vert

Est ce si compliqué de préciser tous les paramètres convenablement dès le départ ?

[NEC14]

et je suis censé le savoir comment ?

relis ce que tu as mis


Est ce si compliqué de préciser tous les paramètres convenablement dès le départ ?

Toutes mes excuses si cela te mets dans cet état.
Personne ne t'oblige à être agressif. J'ai indiqué 2 fois à titre d'exemple.(ça c'est sûr tu ne pouvais le savoir).
J'ai corrigé en apportant d'autres précisions je crois ?
On essaye de poser des questions en étant le plus précis possible mais il peut y avoir des oublis.

[mayekeul]

pq programmer quand on sait le faire directement dans excel

une formule du genre devrait y parvenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(AND(COUNTIF($A$1:$A$10;A1)>1;COUNTIF($B$1:$B$10;B1)>1);TRUE;TRUE)

[NEC14]

En fait si le numéro que je suis entrain de frapper existe déjà dans la colonne B6:B2126, alors la cellule prend une couleur.
Actuellement, si j'ai déjà frapper le 17 en B6 et que je le tape à nouveau la cellule B100, la cellule B100 prend la couleur jaune, mais cela reste valable pour n'importe quelle cellule de la colonne. Si je tape 18 en B200 et à nouveau 18 en B360 la cellule B360 prend la couleur jaune, et c'est là le problème. Je souhaiterai qu'elle prenne une autre couleur aléatoire. Ceci pour différencier les doublons.
A chaque ligne correspond un bâtiment sur lequel je mets sa dépense qui se trouve dans la même facture.
X000645 MD805073
X000645 MD805073
X000645 MD805073
X000644 MD805073
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000645 MD805071
X000643 MD805071
X000643 MD805071
X000644 MD805071