Mouvement du curseur en fonction de la couleur de la cellule

**capi81** · 27/04/2019, 03h48

Bonsoir le forum

Depuis 2 jours je cherche à personnaliser les mouvements de curseur d'une plage de cellule en fonction de la couleur de la cellule.
Si par exemple dans la plage de cellule, il y'a des cellules de couleur rouge, je souhaite que le curseur se positionne au fur et à mesure sur les cellules de couleur rouge (en suivant l'ordre des cellules de couleur rouge).
J'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub worksheet_Change(ByVal target As Range)
Dim cel As Range, cible As Range
    cible = cel.Font.ColorIndex = 3
        For Each cel In Range("D4:D32")
        If cel = cible Then
    cel.Select
    End If
Next cel
End Sub

Merci de m'aider à corriger mon code car c'est pas aussi simple.

**unparia** · 27/04/2019, 08h06

Bonjour

m'aider à corriger mon code car c'est pas aussi simple

Il me parait personnellement qu'avant de te lancer dans de telles démarches (dont l'utilité est incertaine), tu devrais plutôt te consacrer à l'étude des fondamentaux.
Le code que tu montres là met en exergue des carences trop fondamentales, parmi lesquelles :
- une variable cel non initialisée et qui ne correspond donc à rien
- une variable cible typée en Range mais à laquelle cette ligne de code :

Code :

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

cible = cel.Font.ColorIndex = 3

veut affecter une valeur booléenne
Tu trouveras sur ce forum d'excellents didacticiels ("tutos") destinés à accompagner les premiers pas.

**ARTURO83** · 27/04/2019, 09h31

Bonjour,

Hormis toutes les recommandations de unparia que je salue, je vous propose un exemple de ce que vous attendez.
Un pseudo curseur montre toutes les cellules sur fond rouge après avoir saisi une valeur dans la cellule A1.

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
16
17
18
Private Sub worksheet_Change(ByVal target As Range)
    Dim cel As Range, Couleur As Long
    If Not Intersect(target, Range("A1")) Is Nothing Then
        Couleur = 3
        ActiveSheet.Shapes("Flèche gauche 1").Visible = True
        For Each cel In Range("D4:D32")
            If cel.Interior.ColorIndex = Couleur Then
                With ActiveSheet.Shapes("Flèche gauche 1")
                    .Top = Range(cel.Address).Top
                    .Left = Range(cel.Address).Left + 10
                End With
                Application.Wait Now + TimeValue("00:00:01")
            End If
        Next cel
        Application.Wait Now + TimeValue("00:00:01")
        ActiveSheet.Shapes("Flèche gauche 1").Visible = False
    End If
End Sub

Avec le fichier en exemple
Pièce jointe 470288

Cdlt

**unparia** · 27/04/2019, 10h00

Bonjour, ARTURO83
(je n'ai pas ouvert ton classeur, mais l'analyse de ton code est suffisante)

Crois-tu que ce que tu proposes corresponde au but exprimé ? (encore que ... peut-être, si mal exprimé).

Amitiés

**patricktoulon** · 27/04/2019, 10h33

Bonjour
perso je cherche encore a décoder la question elle même

Depuis 2 jours je cherche à personnaliser les mouvements de curseur d'une plage de cellule en fonction de la couleur de la cellule.
Si par exemple dans la plage de cellule, il y'a des cellules de couleur rouge, je souhaite que le curseur se positionne au fur et à mesure sur les cellules de couleur rouge (en suivant l'ordre des cellules de couleur rouge).

1°

à personnaliser les mouvements de curseur d'une plage de cellule en fonction de la couleur de la cellule.

je ne savais pas que les cellules avaient des curseurs ca m'a l'air sympa ca

2°

Si par exemple dans la plage de cellule, il y'a des cellules de couleur rouge, je souhaite que le curseur se positionne au fur et à mesure sur les cellules de couleur rouge

au cas ou quelqu'un saurait me répondre pour le 1° faudra m'expliquer ce que veux dire au fur et a mesure dans ce contexte

3°

(en suivant l'ordre des cellules de couleur rouge).

ben la tant que le 1° et 2° ne sera pas vraiment défini on risque de ramer longtemps

perso j'ai l'intuition que "curseur" n'est pas le bon mot a employer

**ARTURO83** · 27/04/2019, 10h35

Bonjour unparia,

Crois-tu que ce que tu proposes corresponde au but exprimé ? (encore que ... peut-être, si mal exprimé)

D'après ce que dit capi81
Si par exemple dans la plage de cellule, il y a des cellules de couleur rouge, je souhaite que le curseur se positionne au fur et à mesure sur les cellules de couleur rouge (en suivant l'ordre des cellules de couleur rouge).

Il veut donc, d'après ce que j'ai crû comprendre, un pointage séquentiel de ces cellules rouges, c'est ce que fait ma proposition. Dès qu'une valeur est saisie et validée en A1, apparaît un curseur(flèche simulant le curseur de la souris) et passe de cellules rouge en cellule rouge. Après avoir pointé la dernière cellule rouge, le pseudo curseur disparaît.

Comme il n'a pas été précisé à partir de quelle action devait réagir la macro, j'ai pris la décision de la faire réagir suite à la modification de la cellule A1, mais cela peut s'adapter facilement à une autre plage de cellules.

J'avoue ne pas maîtriser la manipulation du curseur de la souris (sinon chercher et pomper un code sur internet, mais cela ne m'intéresse absolument pas), d'où l'idée de créer un pseudo curseur avec un objet dessiné et ainsi faire illusion.

Mais espérons que cap81 se manifestera pour nous éclairer davantage sur le sujet.

Salutations

PS: pointeur de souris à la place de curseur, serait plus approprié.

**patricktoulon** · 27/04/2019, 10h44

Bonjour Arthuro
je pense que le demandeur c'est mal exprimé

étant donné que un range/cells n'a pas de child(curseur) encore moins de propriété du même nom , peut être aurait il du mettre sur la table son contexte en entier
de façon a ce que les intervenants comprennent de quoi on parle

**ARTURO83** · 27/04/2019, 11h01

Bonjour PatrickToulon,

J'avais rajouté un PS dans mon précédent post: pointeur de souris à la place de curseur, serait plus approprié. Je pense que de cela que voulait parler capi81, mais attendons de ses nouvelles.

Cdlt

**boisgontierjacques** · 27/04/2019, 11h23

Bonjour,

Connaissez vous la méthode classique pour avoir une saisie guidée?

-Déverrouillage des cellules de saisie
-Protection de la feuille

Boisgontier

**capi81** · 27/04/2019, 11h27

Bonjour à tous

Merci pour le temps que vous avez voulu consacré à mon besoin.
Tenant compte de vos observations, je reformulerai tout simplement le sujet pour mieux me faire comprendre.
En effet, j'ai fait une MFC dans la plage indiquée de sorte qu'en renseignant la cellule H1, les cellules de la plage qui nécessitent d'être renseignées s’affichent en rouge.
Ce qui m'amène maintenant à vouloir personnaliser les mouvements du pointeur de souris en fonction des couleurs des cellules.
Donc lorsque la cellule H1 est renseignée, le pointeur de souris devrait se positionner sur la 1ère cellule rouge.
Après avoir renseigné la dite cellule, en validant par la touche ENTER, le pointeur de souris devrait se positionner sur la prochaine cellule rouge et ainsi de suite jusqu'à la dernière cellule rouge.
Espérant avoir pris en compte vos observations.
Merci et toutes mes excuses pour les désagrément causées dans la première formulation.

**unparia** · 27/04/2019, 11h49

Nous y voilà enfin

Il s'agit donc finalement de sélectionner à tour de rôle et dans l'ordre, après chaque saisie/modification d'une cellule, les cellules de la même couleur.
Sur ce : je vous laisse en réitérant les termes de mon tout premier message et en encourageant capi81 à dédier son énergie à l'apprentissage de l'essentiel d'abord..

**boisgontierjacques** · 27/04/2019, 12h48

Exemple de saisie guidée ( mais pas en fonction de la couleur)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveWorkbook.Names.Add Name:="Saisie", RefersTo:=Range("A4, C7, C12, E9, F12")
  If Not Intersect(Range("saisie"), Target) Is Nothing And Target.Count = 1 Then
     Range("saisie").Interior.ColorIndex = 4
     a = Split(Range("saisie").Address, ",")
     For Each c In Range("saisie")
       If c.Address = Target.Address Then
         p = Application.Match(c.Address, a, 0) - 1
         If p < Range("saisie").Count - 1 Then Range(a(p + 1)).Select Else Range(a(0)).Select
       End If
     Next c
  End If
End Sub

Boisgontier

**boisgontierjacques** · 27/04/2019, 13h19

Curseur en fonction de la couleur (verte)

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
16
Private Sub Worksheet_Change(ByVal Target As Range)
  For Each c In [A1:G20]
    If c.Interior.ColorIndex = 4 Then temp = temp & c.Address & ","
  Next c
  ActiveWorkbook.Names.Add Name:="Saisie", RefersTo:=Range(Left(temp, Len(temp) - 1))
  If Not Intersect(Range("saisie"), Target) Is Nothing And Target.Count = 1 Then
     Range("saisie").Interior.ColorIndex = 4
     a = Split(Range("saisie").Address, ",")
     For Each c In Range("saisie")
       If c.Address = Target.Address Then
         p = Application.Match(c.Address, a, 0) - 1
         If p < Range("saisie").Count - 1 Then Range(a(p + 1)).Select Else Range(a(0)).Select
       End If
     Next c
  End If
End Sub

Boisgontier

**patricktoulon** · 27/04/2019, 13h54

re
on a eu la même idée boisgontierjacques, je pense que c'est bien de ca qu'il parle quand il dit curseur au fur et a mesure

**patricktoulon** · 27/04/2019, 13h56

capi81
il ne s'agit pas la ni de curseur ni de pointeur mais d'auto sélection personnalisée tout simplement

**unparia** · 27/04/2019, 14h01

Pour mémoire :

En effet, j'ai fait une MFC dans la plage indiquée de sorte qu'en renseignant la cellule H1, les cellules de la plage qui nécessitent d'être renseignées s’affichent en rouge.

Vous ne croyez pas que la méthode specialcells (avec le paramètre xlCellTypeSameFormatConditions) aurait ici son utilité ?

(sans préjudice d'une autre démarche encore, selon que les cellules sont ou non dans une même colonne, ce qui n'a pas été précisé non plus

)

**boisgontierjacques** · 27/04/2019, 14h30

Saisie dans les cellules rouges (par MFC)

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
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
  If [H1] = "" Then Exit Sub
  For Each c In [F1:M20]
    If c.DisplayFormat.Interior.ColorIndex = 3 Then temp = temp & c.Address & ","
  Next c
  If temp = "" Then Exit Sub
  ActiveWorkbook.Names.Add Name:="Saisie", RefersTo:=Range(Left(temp, Len(temp) - 1))
  If Not Intersect(Range("saisie"), Target) Is Nothing And Target.Count = 1 Then
     a = Split(Range("saisie").Address, ",")
     For Each c In Range("saisie")
       If c.Address = Target.Address Then
         p = Application.Match(c.Address, a, 0) - 1
         If p < Range("saisie").Count - 1 Then Range(a(p + 1)).Select Else Range(a(0)).Select
       End If
     Next c
  End If
End Sub

Boisgontier

**RyuAutodidacte** · 27/04/2019, 17h26

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Exemple à adapter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cpt As Long, AC_Cpt As Long
    If Range("H1") > "" And Target.Count = 1 Then
        AC_Cpt = 0
        For Each Adr In Range("A1:E15")
            Cpt = Cpt + 1:
            If Adr.Address = Target.Address Then AC_Cpt = Cpt
            If AC_Cpt > 0 And Adr.DisplayFormat.Interior.ColorIndex = 3 And Cpt > AC_Cpt Then
                    Application.Goto Adr, True: Exit For
            End If
        Next
    End If
End Sub

**capi81** · 28/04/2019, 11h31

Bonjour Ryu, Jacque et le forum

Merci pour vos solutions.
Je rencontre un débogage dans le code de chacun "

Propriété ou méthode non géré par cet objet

la ligne suivante est sélectionnée dans le code de Ryu:

Code :

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

If AC_Cpt > 0 And Adr.DisplayFormat.Interior.ColorIndex = 3 And Cpt > AC_Cpt Then

Pour Jacque c'est cette ligne :

Code :

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

If c.DisplayFormat.Interior.ColorIndex = 3 Then

J'ai adapté la plage à mon cas réel mais le débogage s'affiche toujours.
Pouvez-vous revoir svp?

**unparia** · 28/04/2019, 11h54

Un coucou à tous
(ah !ah ! ... vous n'avez pas testé, hein ...

)

Bien
Vous êtes là confrontés à une imperfection de VBA/Excel en ce qui concerne notamment la version 2007 (celle utilisée par capi)

DispalyFormat n'est pas utilisable directement. Il est indispensable de l'utiliser via une fonction annexe.

Démo :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
  Dim adr As Range
  For Each adr In Range("A1:E15").Cells
    ''''''''MsgBox adr.DisplayFormat.Interior.ColorIndex '--> ne fonctionnera pas
    MsgBox toto(adr) ' ----->> fonctionnera
  Next
End Sub
Function toto(adr As Range) As Long
   toto = adr.Interior.ColorIndex
End Function