afficher automatiquement une cellule identique à celle sélectionner

[eldoncoy]

Bonjour

Je viens vers vous car je ne trouve pas ce que je souhaiterais avoir comme résultat
Je m'explique, je recherche un moyen de retrouver dans la feuille la cellule identique à celle que je sélectionne

Pour bien comprendre, j'essaye de faire un plan de brassage réseau et téléphonique de notre baie, cela me permettre de retrouver le bout d'un cable facilement sans devoir chercher dans le sac de noeud à l'arrière de la baie

Merci d'avance pour vos lumières car je seche vraiment

Eldoncoy

 

[Pierrot93]

Re : afficher automatiquement une cellule identique à celle sélectionner

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Cells.Find(ActiveCell, ActiveCell, xlValues, xlWhole, , , False).Select
End Sub

bonne journée
@+

 

[eldoncoy]

Re : afficher automatiquement une cellule identique à celle sélectionner

Merci pour le code

Je vois bien que la cellule identique est sélectionner mais uniquement quand on execute la macro, y a t il un moyen que cette cellule soit d'une couleur différente et que la macro s'execute dès que la cellule est sélectionnée ?

 

[Pierrot93]

Re : afficher automatiquement une cellule identique à celle sélectionner

Re,


pas compris ton histoire de couleur.... à placer dans le module de la feuille...

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
Cells.Find(Target, Target, xlValues, xlWhole, , , False).Select
Application.EnableEvents = True
End Sub

 

[eldoncoy]

Re : afficher automatiquement une cellule identique à celle sélectionner

C'est juste une question de visibilité rapide

Si je sélectionne une cellule contenant TEST, la cellule identique (qui correspond à l'autre bout du cable 🙂) contenant également TEST apparait avec un fond rouge par exemple pour un repérage plus rapide

Sinon, le principe du code est ce que je recherche, t'es un chef 🙂 manque jsute un changement de couleur de fond

 

[Pierrot93]

Re : afficher automatiquement une cellule identique à celle sélectionner

Re,

peut être ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
Cells.Find(Target, Target, xlValues, xlWhole, , , False).Select
If Target.Address <> ActiveCell.Address Then ActiveCell.Interior.ColorIndex = 3
Application.EnableEvents = True
End Sub

 

[eldoncoy]

Re : afficher automatiquement une cellule identique à celle sélectionner

Nickel, mais si je sélectionne une autre cellule, la couleur de la cellule précédement sélectionnée reste

 

[Pierrot93]

Re : afficher automatiquement une cellule identique à celle sélectionner

Re,

modifie comme suit :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static a As Range
If Not a Is Nothing Then a.Interior.ColorIndex = xlNone
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
Cells.Find(Target, Target, xlValues, xlWhole, , , False).Select
If Target.Address <> ActiveCell.Address Then ActiveCell.Interior.ColorIndex = 3
Set a = ActiveCell
Application.EnableEvents = True
End Sub

 

[eldoncoy]

Re : afficher automatiquement une cellule identique à celle sélectionner

Impeccable, t un chef

Un grand merci

 

[eldoncoy]

Re : afficher automatiquement une cellule identique à celle sélectionner

question subsidiaire, est ce possible que lorsque qu'on sélectionne une cellule, le curseur ne soit pas déplacé sur la cellule destination ?
en gros, que le seul le target change de couleur tout en restant sur la cellule initiale

 

[Pierrot93]

Re : afficher automatiquement une cellule identique à celle sélectionner

Re,

peut être ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static a As Range
Dim x As Range
If Not a Is Nothing Then a.Interior.ColorIndex = xlNone
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
Set x = Cells.Find(Target, Target, xlValues, xlWhole, , , False)
If Not x Is Nothing Then
    If Target.Address <> x.Address Then x.Interior.ColorIndex = 3
    Set a = x
End If
Application.EnableEvents = True
End Sub

 

[eldoncoy]

Re : afficher automatiquement une cellule identique à celle sélectionner

Merci bcp pour votre aide