Aide VBA

[moicla]

Bonjour,

j'aimerais savoir s'il est possible, en fonction d'une partie de la valeur de la celulle qui est en format TXT mais dans lequel se trouve des nombre colorer les celulles de droite

j'ai un nombre (N° OF 001586001000, puis un autre 001586001010 etc...)

Et je voudrais que tout les OF qui se finissent par 000 soit d'une couleur, ceux qui se finissent par 010 d'une autre etc...

sachant que je peux allez jusqu'a plus de 20 (donc des OF de l'ordre de 001586001200)

merci de votre aide

 

[job75]

Re : Aide VBA

Bonjour moicla, bienvenue sur le forum,

(...) sachant que je peux allez jusqu'a plus de 20

Donc plus de 20 couleurs possibles pour les cellules...

Mon avis : l'usage exagéré des couleurs dans une feuille ne fait que rendre celle-ci difficilement compréhensible.

Et il y a d'autres inconvénients...

A+

 

[moicla]

Re : Aide VBA

Bonjour moicla, bienvenue sur le forum,



Donc plus de 20 couleurs possibles pour les cellules...

Mon avis : l'usage exagéré des couleurs dans une feuille ne fait que rendre celle-ci difficilement compréhensible.

Et il y a d'autres inconvénients...

A+

En faite c'est que je pouvoir dissocier rapidement les OF, ils sont ranger dans l'ordre croissant, donc même s'il y a que 2 couleurs (par exemple gris et blanc) si il sont alterné ca me va

 

[job75]

Re : Aide VBA

Re,

Voici une macro qui inverse les couleurs (incolore et gris) des cellules en colonne A (qui contient les valeurs à tester) :

Sub Couleur()
Dim cel As Range
For Each cel In Range("A2", Range("A65536").End(xlUp))
If Right(cel, 3) <> Right(cel.Offset(-1), 3) Then
cel.Interior.ColorIndex = IIf(cel.Offset(-1).Interior.ColorIndex = 15, xlNone, 15)
Else
cel.Interior.ColorIndex = cel.Offset(-1).Interior.ColorIndex
End If
Next
End Sub

A adapter au besoin. Si l'on veut colorer toute la ligne, remplacer cel.Interior.ColorIndex par :

Cel.EntireRow.Interior.ColorIndex

A+

 

[moicla]

Re : Aide VBA

Re,

Voici une macro qui inverse les couleurs (incolore et gris) des cellules en colonne A (qui contient les valeurs à tester) :

Sub Couleur()
Dim cel As Range
For Each cel In Range("A2", Range("A65536").End(xlUp))
If Right(cel, 3) <> Right(cel.Offset(-1), 3) Then
cel.Interior.ColorIndex = IIf(cel.Offset(-1).Interior.ColorIndex = 15, xlNone, 15)
Else
cel.Interior.ColorIndex = cel.Offset(-1).Interior.ColorIndex
End If
Next
End Sub

A adapter au besoin. Si l'on veut colorer toute la ligne, remplacer cel.Interior.ColorIndex par :

Cel.EntireRow.Interior.ColorIndex

A+

Super! cela est parfait merci beaucoup 😉