Discussion :

[goldfinger13]

bonsoir à tout le monde
j'ai besoin d'aide
je n'arrive pas a écrire la ligne de code qui me permettra de changer la couleur d'une ligne si la valeur de la première cellule de la ligne précédente est différente

si valeur de A2 différente de A1 alors ligne 1 est d'une couleur différente et ainsi de suite je suis sur un fichier à 10000 lignes et je souhaiterais automatiser l'opération.

merci d'avance pour votre aide

[wilfried_42]

Bonjour

Une formule pour la MFC

En A2 :
Mise ne forme conditionnelle pour lignes paires

Code :

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

=Et($A1><$A2;Mod(ligne();2)=0)

Mise ne forme conditionnelle pour lignes impaires

Code :

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

=Et($A1><$A2;Mod(ligne();2)=1)

[bellande]

Bonjour,
Je n'ai pas bien compris le besoin mais dans le cas où vous voudriez un petit bouton bien artisanal avec du code dedans, voici un début ...
Désolé si je n'ai rien compris au besoin ...

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
Private Sub CommandButton1_Click()
Dim ligne As Integer
 
ligne = 2
Do
   If Range("A" & ligne).Value <> Range("A" & ligne - 1).Value Then
         ' la couleur 6 est un exemple. Il faudra gérer une variable ou un random
         ' je n'ai pas bien compris l'objectif exact
         ' un exemple aurait lever l’ambiguïté
         Range("A" & ligne - 1 & ":D" & ligne - 1).Interior.ColorIndex = 6
         ' Rows(ligne - 1 & ":"&ligne - 1  ).Interior.ColorIndex = 6
   End If
   ligne = ligne + 1
Loop Until Range("A" & ligne).Value = ""
End Sub

[goldfinger13]

C'est surement moi qui me suis mal exprimé
En fait vu le nombre de lignes ( environ 10.000) il s'agit par la suite de pouvoir se repérer plus facilement dans le fichier. Ce fichier est issu d'une extraction que je récupère régulièrement. j'ai mis un exemple en pièce jointe.

[bellande]

Bonjour,
Je ne suis pas certain de ce signifie "à chaque changement de valeur dans la colonne A" mais je me base sur l'exemple fourni pour proposer cela :

Code :

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

1
2
3
4
5
6
7
8
9
Dim ligne As Integer
 
ligne = 3
Do
   If Range("A" & ligne).Value <> Range("A" & ligne - 1).Value And Range("A" & ligne).Value <> Range("A" & ligne + 1).Value Then
        Rows(ligne & ":" & ligne).Interior.ColorIndex = 6
   End If
   ligne = ligne + 1
Loop Until Range("A" & ligne).Value = ""

[goldfinger13]

c'est parfait ainsi je te remercie