temps de traintement

[arno44]

Suite à une macro comme ci dessous :

Case Is = "FA"
c.EntireRow.Range("A1:X1").Interior.ColorIndex = 15

Case Is = " "
c.EntireRow.Range("A1:X1").Interior.ColorIndex = 0

Je souhaiterais que si j'enlève FA la couleur s'efface, j'ai donc crée une ligne
pour enlever la couleur si la case est vide.
Le problème que j'ai avec cette commande c'est qu'elle met 10s à attendre,
y a t il une fonction permettant d'éviter ce délai ?

Merci à vous

 

[rainbow69006]

Re : temps de traintement

Je dois dire quelque chose d'idiot mais tu peu pas faire ce que tu veu avec l'outil format conditionnel?

En fait je suis pas sur de comprendre vraiment ce que tu veu faire!

Mais par exemple ce que tu peu faire (si j'ai bien compris)
tu selectionne ta ligne de A1 a X1, tu va dans format puis dans conditionnel
tu met cette valeur / egale a / =$A$7 , apres sans quitter tu va dans format juste en dessous et tu choisi ta couleur. apres tu clique sur ok.

Grace a cela si rien n'est ecrit en A7 alors les cases A1 a X1 sont colories et si il y a quelque chose d'ecrit en A7 alors elle ne sont plus colories.

Dit moi si c'est cela que tu voullais

 

[arno44]

Re : temps de traintement

En fait j'ai plusieurs conditions pour tout une colonne donc j'ai opté pour une macro.

Celle ci fonctionne très bien en revanche si j'indique une valeur la couleur appparait et au contraire quand je vide la cellule rien ne disparait.

 

[rainbow69006]

Re : temps de traintement

Est ce qu'il t'est possible de joindre ton fichier ?

 

[arno44]

Re : temps de traitement

voici l'exemple

 

[Excel_lent]

Re : temps de traintement

Bonsoir arno, rainbow, à tous,

Pourquoi testes-tu toutes les cellules de K ?
Indépendamment du reste, vois si cela t'inspire.

 

[arno44]

Re : temps de traintement

En fait je cherche à effacer le remplissage de mes lignes quand je supprime
l'indication en K.

Voici mon tableau avec les couleurs correspondant au codes

 

[Compte Supprimé 979]

Re : temps de traintement

Salut tout le monde, Arno44,

Voilà le code pour la suppression de la couleur si la cellule K est vide ou ne contient pas l'élément voulu

Private Sub Worksheet_Change(ByVal Target As Range)
derli = Range("K65536").End(xlUp).Row 'dernière ligne non videde la colonne K
For Each c In Range("K3:K" & derli)
    Select Case c
    Case Is = "AR"
    c.EntireRow.Range("A1:F1").Interior.ColorIndex = 43
        
    Case Is = "AC"
    c.EntireRow.Range("A1:T1").Interior.ColorIndex = 45
    
    Case Is = "AA"
    c.EntireRow.Range("A1:X1").Interior.ColorIndex = 15
    
    Case Is = "FA"
    c.EntireRow.Range("A1:X1").Interior.ColorIndex = 15
        
    Case Is = "HP"
    c.EntireRow.Range("A1:X1").Interior.ColorIndex = 15
    
    Case Is = "HD"
    c.EntireRow.Range("A1:X1").Interior.ColorIndex = 15
    
    Case Is = "CD"
    c.EntireRow.Range("A1:X1").Interior.ColorIndex = 24
    
    Case Else
    c.EntireRow.Range("A1:X1").Interior.ColorIndex = 0
    End Select
Next c
End Sub

Voilà 😉

 

[pierrejean]

Re : temps de traintement

bonjour arno44

Excel_lent a raison, il suffit de tester la cellule qui change

Vois si cela te convient

Edit

Salut Bruno

 

[arno44]

Re : temps de traintement

Ok, c'est parfait.

Merci à vous tous

Arno44