VB excel, changer de ligne - Page 2

Résolu
Précédent
  • 1
  • 2
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
 
Re, de rien mais j'étais en train d'éditer mon dernier msg...donc :
autre remarque, ce code ne fait qu'une mise en forme en fonction de tes conditions, pourquoi ne pas utiliser une simple mise en forme conditionnelle ?
0
D-Rabbit
 
je ne savais pas qu'avec les mises en forme conditionnelles on pouvait faire ça, du moins tout ça.

et puis il fallait que ça s'exécute par un bouton et frenchement ça me tentait bien de me lancer là-dedans dans le cadre du boulot :)
0
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
je pense que tu peux simplifier ton code

avec une boucle for each..... next

je pense que tu devrais utiliser .Interior.colorindex = 3 ( ou une autre valeur)
ainsi tu aurais directement ta couleur.
par contre je ne comprends pas bien ton test and d < J

un exemple de boucle for each
si tu précises la référence de d et j je te l'écris

Sub test1()
Dim C As Variant

For Each C In Sheets("Feuil9").Range("G6:G55")
    If C.Value <> "Terminée" And d < j Then
            C.Interior.Color = 3
        ElseIf d > j - 7 Then
            C.Interior.Color = 4
        
        End If


Next
End Sub
0
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
bien comme c'est résolu!
bonne journée à tous.

en plus je dis colorindex et j'écris .color ....
besoin de vacances peut-être...
0
Précédent
  • 1
  • 2