XL 2016 Fonction .select et curseur

[maroon]

Bonjour,

J'aurais besoin d'aide pour un problème avec la fonction .select.
J'ai écris les lignes suivantes pour mettre en couleur chaque ligne qui contient la valeur 0 en colonne 3. Les lignes correspondantes sont bien mises en couleur, sauf que je constate que la ou les lignes qui sont sélectionnées avec ma souris avant de lancer la macro sont aussi mises en couleur!!

X= Sheets("Feuil1").Range("A65000").End(xlUp).Row
    For i = 2 To X
        If Cells(i, 3) = "0" Then Cells(i, 1).Select
      .Range(Selection, Selection.End(xlToRight)).Interior.ColorIndex = 6
Next i

Est-ce que quelqu'un sait pourquoi et comment y remédier?? Ce code est inscrit dans un code un peu plus long mais je ne pense pas que ça pose problème.

Merci d'avance pour votre aide !!

 

[Phil69970]

Bonjour @maroon

A l'aveugle car pas de fichier et juste 5 lignes de ton code

X= Sheets("Feuil1").Range("A65000").End(xlUp).Row
For i = 2 To X
    If Cells(i, 3) = "0" Then  Cells(i, 3).Interior.ColorIndex = 6
Next i

*Merci de ton retour

@Phil69970

 

[maroon]

Bonjour @Phil69970,

Merci pour ta réponse!
Alors ta proposition réglait le problème du curseur, en revanche il n'y a que la cellule (i,3) qui était mise en couleur. En rectifiant pour prendre en compte toute la ligne ça fonctionne super!!

fin = Sheets("Feuil1").Range("A65000").End(xlUp).Row
    
    For i = 2 To X
         If Cells(i, 3) = "0" Then .Range(Cells(i, 1), Cells(i, 1).End(xlToRight)).Interior.ColorIndex = 6
    Next i

Ca fait un moment que je tournais en rond, merci beaucoup pour ton aide rapide!!

 

[TooFatBoy]

Bonjour,

J'aurais besoin d'aide pour un problème avec la fonction .select.
J'ai écris les lignes suivantes pour mettre en couleur chaque ligne qui contient la valeur 0 en colonne 3. Les lignes correspondantes sont bien mises en couleur, sauf que je constate que la ou les lignes qui sont sélectionnées avec ma souris avant de lancer la macro sont aussi mises en couleur!!

X= Sheets("Feuil1").Range("A65000").End(xlUp).Row
    For i = 2 To X
        If Cells(i, 3) = "0" Then Cells(i, 1).Select
      .Range(Selection, Selection.End(xlToRight)).Interior.ColorIndex = 6
Next i

Est-ce que quelqu'un sait pourquoi et comment y remédier?? Ce code est inscrit dans un code un peu plus long mais je ne pense pas que ça pose problème.

C'est la logique de ton code qui n'est pas bonne.

Dans l'état actuel, au premier tour de la boucle For, i est égal à 2 et si la cellule C2 n'est pas égale à zéro, tu passes à l'instruction suivante sans sélectionner la cellule A2, et tu colories la sélection, donc tu colories les cellules qui étaient sélectionnées avant de rentrer dans ta boucle For.

Au deuxième tour, i=3, et si la cellule C3 n'est pas égale à zéro, tu passes à l'instruction suivante sans sélectionner la cellule A3, et tu recolories la sélection, donc tu recolories les cellules qui étaient sélectionnées avant de rentrer dans ta boucle For.

Ainsi de suite jusqu'au moment où tu rencontres une cellule Cx qui est égale à zéro et où tu sélectionnes donc la cellule Ax que tu colories. Et que tu vas colorier de nouveau à chaque tour de la boucle For jusqu'à ce que tu rencontres une autre cellule Cy qui n'est pas égale à zéro.
etc.

Une correction de la logique du code pourrait être :

X= Sheets("Feuil1").Range("A65000").End(xlUp).Row
For i = 2 To X
    If Cells(i, 3) = "0" Then
        Cells(i, 1).Select
        .Range(Selection, Selection.End(xlToRight)).Interior.ColorIndex = 6
    End If
Next i

Mais les Select étant fortement déconseillés (car ils allongent la durée d'exécution de la macro), une meilleure solution est celle de @Phil69970.


Sinon, au lieu d'utiliser une macro, tu peux utiliser une MFC (Mise en Forme Conditionnelle).

 

[maroon]

Bonjour @Marcel32,

Merci beaucoup pour ton aide! Ca explique pourquoi je n'avais pas ce problème pour une requête en particulier et je constate effectivement qu'elle est présente dans la deuxième ligne! J'arrivais pas à croire que ça me posait problème pour toutes les requêtes sauf UNE! Maintenant je comprends!

Je suis encore débutant (même si ça fait des années que je bidouille) et je ne savais pas que "Then" fonctionnait différemment en fonction de sa position!

Merci encore pour toutes ces explications!

 

[Phil69970]

Bonjour @maroon et @Marcel32

@maroon
Je suis étonné que tu mettes ton propre post en résolu car tu n'as rien trouvé du tout

Ca fait un moment que je tournais en rond, merci beaucoup pour ton aide rapide!!

@Phil69970

 

[maroon]

Bonjour @maroon et @Marcel32

@maroon
Je suis étonné que tu mettes ton propre post en résolu car tu n'as rien trouvé du tout



@Phil69970

Désolé @Phil69970 je me suis trompé et j'étais tellement pris je viens de me reconnecter!